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EDITORIAL 




Geos 



Fieber 


M an schaltet den 

Computer ein und 
wird von einer gra¬ 
fischen Benutzeroberfläche empfangen. Ver¬ 
ständliche Symbole und eine gute Menüführung 
sorgen dafür, daß man von Anfang an den rich¬ 
tigen Überblick hat. Um dem Computer beizu¬ 
bringen, was er tun soll, braucht man nur einen 
»Zeiger« auf den entsprechenden Punkt bewe¬ 
gen und diesen anklicken. Ein Komfort, der bei 
der neuen Heimcomputer-Generation wie dem 
Amiga oder Atari ST vollkommen selbstverständ¬ 
lich ist. Demgegenüber steht man vor dem 
»Nichts«, wenn der C64 aktiviert wird. 

■ Berkeley-Softworks hat diesem Manko ein 
Ende bereitet - mit »Geos«. Diese neue Benut¬ 
zeroberfläche für den C64 erfreut sich immer 
größerer Beliebtheit. Seit Ende 1986 liegt die 
englische Version »Geos 1.2« jedem neuen C64 
auf Diskette bei. Eine wesentlich verbesserte 
deutsche Version (Geos 1.3) steigert diesen 
Komfort nochmals erheblich. 

■ In diesem Sonderheft sollen Sie erfahren, 
was man mit Geos alles machen kann und wel¬ 
che Erweiterungen für Geos bereits existieren. 
Wir wollen Ihnen auch helfen, Probleme mit 
Geos zu bewältigen. Viele Tips und Hinweise 
tragen dazu bei - nicht zuletzt ein umfangrei¬ 
cher Kurs, der sich intensiv mit der Program¬ 
mierung von Geos beschäftigt. * 


■ Einige Leckerbissen haben wir für Sie eben¬ 
falls parat. Die Sieger-Programme vom Geos- 
Programmier-Wettbewerb bieten wir Ihnen hier 
zurr: Abtippen. Der Knüller ist dabei ein komfor¬ 
tables Terminal-Programm unter Geos. Aber 
auch diversen Druckeranpassungen oder ein 
universelles Grafik-Konvertierprogramm für 
Geopaint ist dabei. 

■ Jeder, der programmiert, steht irgendwann 
vor dem Problem, größere Datenmengen zu 
verwalten. Ein sehr ausführlicher Kurs macht 
Sie mit dieser Thematik bestens vertraut. Ob 
Sie in Basic oder Maschinensprache program¬ 
mieren wollen - alles wird verständlich erklärt. 

■ Wenn Sie nur als Anwender Ihre Daten mit 
dem C64 archivieren wollen, finden Sie mit 
»Datec« ein hervorragendes Programm dafür in 
dieser Ausgabe. 

■ Also, viel Erfolg mit den Kursen und lassen 
Sie sich ebenso in den Geos-Bann ziehen, wie 
es die Sonderhefte-Redaktion bei dieser Aus¬ 
gabe getan hat. 


Ihr Gottfried Knechtei 
(Leitender Redakteur) 
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Geocalc 64/128 - gut gerechnet ist halb 
gewonnen 
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fach zu bedienen und volle Grafikunterstützung. 92 


Wenn Sie Programme auf dem C64 entwickeln, 
dann wollen Sie sicher auch irgendwann größere 
Datenmengen mit der Floppy oder 
Datasette archivieren. In zwei Kursen 
erlernen Sie alle Tricks dafür, in Ba¬ 
sic und auch in Maschinensprache. 

Seite 103 


1. Preis: Kinderleicht - DFÜ mit Geos 

Der Sieger des Geos-Programmierwettbewerbs: 
ein Terminalprogramm der Spitzenklasse. 


2. Preis: Druckertreiber nach Maß 

Mit Superprint V2.0 werden Ihre Geos-Ausdrucke __ 
zu kleinen Kunstwerken. H 19 


Mustergültig - eigene Zeichenmuster 
entwerfen 

Der »Pattern Editor« erzeugt neue Füllmuster für 

Geos. Lassen Sie Ihre Kreativität spielen. Hl 35 


»Select Printer« - klein, praktisch, gut 

Ein neuer Druckertreiber kann nun aus jedem . _ 

Programm heraus gewählt werden. H 40 


Geos-Druckertreiber für Citizen 120D 

Erwecken Sie die Qualitäten Ihres Citizen 120D .. 

unter Geos mit vier einstellbaren Druckdichten. H 42 


3. Preis: Geos Grafik-Konverter 

Verwenden Sie Ihre komplette Grafik-Sammlung 
in Geopaint oder Geowrite. 


128 


Mein Freund Geos 

Der Geos-Profi Florian Müller berichtet über . . 

seine ersten Erfahrungen mit dem Profi-System. 44 


Warum Geos 128? 

Ein Profi-System stellt sich vor. 


Geos-Programmieren hoch 4 
Es gibt viele Arten, unter und mit Geos zu 
programmieren. Wir zeigen Stärken und 
Schwächen von vier Systemen. 


Daten-Fernübertragung unter Geos. »Geoterm« ist der 
Sieger des Geos-Programmierwettbewerbs. Ein DFÜ- 
Programm, das kinderleicht zu bedienen ist, einen 
enormen Komfort bietet und Ihren C64 unter Geos 
mit dem Rest der Welt verbindet. Geoterm ist kom¬ 
plett menügesteuert und sogar für die Datenübertra¬ 
gung mit einem Modem vorbereitet. Seite 6 


Mit Geos In die Welt der Grafik 

Dieser Kurs zeigt, wie Geos Grafiken verwaltet. 


Geos kommunikativ - Datenaustausch unter 
der Lupe 

Aufbau von Geos-Dokumenten wie Geowrite- 

Texten, Geopaint-Bildern, Foto- und Textscraps _ _ 

werden aufs Byte genau erklärt. 65 

Der Schlüssel zu Geos 

Geosprogrammieren - kein Problem. Dieser Kurs __ 
liefert das nötige Handwerkszeug. Hl 69 


Der zweite Preis im 
Geos-Wettbewerb Ist 
eine flexible Drucker¬ 
anpassung. Mit »Su¬ 
perprint V2.0« können 
Sie Geos-Drucker¬ 
treiber für alle gängi¬ 
gen Drucker 
generieren. 

Seite 19 


Warum Geos 1.3? 

Lohnt sich der Umstieg von Geos 1.2 auf die 
deutsche Version 1.3? 


46 
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Geos-Grundlagen 


Geos-Listings 
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Dateiverwaltung Kurse 


Geowrite Workshop - ein tolles Textsystem für 
C64 und C128 

Was leistet Geowrite Version 2.1 in dem 
Software-Paket »Geowrite Workshop»? 


Eine Programmsammlung für Jedermann 

Sechs Programme für Geos auf einer Diskette. 


Starkes Duo für Geos V 1.2 

Arbeitskopien werden bootfähig und dem 
leidigen »System Error« wird ein Schnippchen 
geschlagen. 


99 


Rundschreiben mit Geos 

Serienbriefe mit Geowrite, Adressen aus Geodex . _ _ 
oder Geofile - dazu dient Geomerge. \\)c. 


Geopalnt - das bekannte Grafikprogramm 

unter Geos. Mit dem »Bit- map-Converter«, dem 

dritten Preis des Geos-Wett- bewerbs, können Sie 
jetzt alle Ihre Lieblings-Grafiken In das Geo- 
palnt-Format übertragen. Seite 28 


Effektives Kopieren mit Geos 

Es kann so einfach sein, Dateien mit Geos zu 
kopieren. Wir zeigen, wie's funktioniert. 


Mini-Publishing mit Geos 

Geowrite und Geopaint bilden als Team schon 
ein kleines Desktop Publishing-System. 


H103 
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komfortable Dateiverwaltung ~ ~~ “ 

für den C64. Seite 143 Kurs 2: Da,en verwalten in Assembler 

r>°'3n verwalten mit Assembler-Routinen noch 
komfortabler und schneller. 


Wollen Sie Ihr 
Videoarchiv oder Ihre 
Adreßkartei über 
den Computer verwal¬ 
ten? Dann ist »Datec« 
genau das richtige für 
Sie - eine schnelle und 


Kurs 1: Daten verwalten In Basic 

Grundlagen der Dateiverwaltung und ihre 
Programmierung in Basic. Für Floppy und 
Datasette anwendbar. 


Geos Tips&Tricks 
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Jetzt wird Geos zu einem Profi-System. Was das deutsche 
»Geos 1.3« kann, erfahren Sie auf Seite 46. Vollkommen neu 



ist »Geos 128« für den C128. 
Lesen Sie Näheres dazu auf 

Seite 48 


Dateiverwaltung - Listing 

Dateiverwaltung für höchste Ansprüche 

Datec: Ein super Datenbank-Programm mit 
leistungsfähigen Funktionen. 

0143 

Bücher 

Literatur zu den Themen Geos und 
Dateiverwaltung. 

155 

Eingabehilfen 

Geocheck - So tippt man Geos-Llstings ab 

So werden mit dem MSE abgetippte 

Programme unter Geos lauffähig. 

0156 

Wie gebe Ich Programme ein? 

Diesen Artikel sollten Sie unbedingt lesen, 
wenn Sie Programme aus diesem Sonderheft 
abtippen wollen. 

0159 

[Sonstiges 

Editorial 
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162 


Alle Programme aus Artikeln mll einem H -Symbol finden Sie auch 
auf der Programmservice-Diskette zu diesem Sonderheft 































































GEOSLISTINGS 





Der Geos-Programmier-Wettbewerb 
hat sich gelohnt! Der Gewinner 
des ersten Preises ist ein Termi¬ 
nal-Programm der Spitzenklasse: 
Lassen Sie sich von »Geoterm« - 
geschrieben von Carsten Clas- 
ohm - entführen in die faszinie¬ 
rende Welt der Daternfernüber- 
tragung. 


D ie Abkürzung DFÜ steht für den 
recht dehnbahren Begriff »Da¬ 
tenfernübertragung«. Darunter 
fallen sowohl die Trommelsigna¬ 
le der Naturvölker als auch die Übertra¬ 
gung von Satellitenbildern aus dem All. 

In unserem speziellen Fall, bezie¬ 
hungsweise auf dem Gebiet der Com¬ 
puter bedeutet DFÜ die Verbindung 
zweier oder mehrerer Computer über 
das Telefonnetz. 

»Nun gut,« werden Sie sagen, »aber 
wen rufe ich dann mit meinem Compu¬ 
ter und dem Terminal-Programm an?« 

An potentiellen Partnern zur DFÜ be¬ 
steht wirklich kein Mangel. An erster 
Stelle stehen hier die zahlreichen 
»Mailboxen«, die sich mittlerweile in 
Deutschland etabliert haben. Dies 
sind elektronische Briefkästen, die ent¬ 
weder von Computer-Freaks, Vereinen, 

Computer-Clubs oder auch Firmen 
betrieben werden. Dort gibt es, je 
nach Art des Betreibers, die verschie¬ 
densten Angebote an Informationen: 

Angefangen von Telefonnummern anderer Mailboxen, ak¬ 
tuellen News aus der Computer-Szene, Tausch- und Ver¬ 
kaufsrubriken, Veranstaltungskalender bis hin zum Bestell- 
Service bei Firmen. Die Palette der Möglichkeiten ist nahe¬ 
zu grenzenlos. Man kann sich in Mailboxen beim »Sysop«, 
dem Mailbox-Betreiber, einen sogenannten »Account« be¬ 
antragen und somit meist über einen eigenen Briefkasten 
zum Nachrichtenaustausch mit anderen »Usern«, wie Be¬ 
nutzer einer Mailbox auch genannt werden verfügen. 


Was braucht man zur DFÜ? 


Compu¬ 
ter jeweils 
verstehen. 

Bei einem Mo¬ 
dem, der schnelleren, 
sicheren, aber auch teueren Lösung, wird die Verbin¬ 
dung zwischen Telefon und Computer direkt, also gal¬ 
vanisch (zu deutsch: mit Draht) hergestellt. 


Beide Arten von Geräten müssen von der Post zugelas¬ 
sen sein, also eine sogenannte FTZ.-Nummer besitzen. 

Die andere Komponente der DFÜ-Ausrüstung finden Sie 
nun hier als Listing zum Abtippen: Geoterm. Hinweise zum 
Abtippen finden Sie am Ende dieses Artikels. 


Um an dieser fortschrittlichen Art der Kommunikation teil¬ 
zuhaben, brauchen Sie außer dem Computer zweierlei: 

Ein Gerät zum Anschluß des Computers an das Telefon 
und ein Programm zur Kommunikation mit dem anderen 
Computer. 

Das Gerät ist entweder ein Akustikkoppler oder ein Mo¬ 
dem. Beim Akustikkoppler wird die Verbindung auf akusti¬ 
schem Wege, wie der Name schon sagt, hergestellt. Der Te¬ 
lefonhörer wird auf den Koppler gelegt, der seinerseits ein 
Mikrofon und einen kleinen Lautsprecher eingebaut hat. 
Die Eletronik im Koppler wandelt die Tonsignale in digitale 
elektrische Signale um, die die beiden angeschlossenen 


Gestartet wird Geoterm unter Geos mit dem üblichen 
Doppelklick auf das Icon des Programms. Nach dem Laden 
präsentiert sich Geoterm wie in Bild 1 dargestellt. Der Bild¬ 
schirm, ist dann allerdings leer, da das Bild während eines 
DFÜ-Kontaktes mit einer Mailbox entstand. 

Wer sich schon in der Materie der DFÜ etwas auskennt, 
der findet sich in Geoterm sofort zurecht. Alle wichtigen Be¬ 
dienungspunkte des Programms finden sich in der Menü¬ 
leiste am oberen Rand des Bildschirms. Da sich hinter den 
einzelnen Punkten oft zahlreiche Unterfunktionen ver¬ 
stecken, finden Sie in Bild 2 eine Übersicht der Menüstruk¬ 
tur von Geoterm. 
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Funktionen des Programms 


Die einzelnen Funktionen werden angewählt 
durch das Anklicken des jeweiligen Menüpunktes. Hat 
man, etwa bei Parameter-Einstellungen die Wahl zwischen 
verschiedenen Möglichkeiten (zum Beispiel »Echo ein/ 
aus«), so ist die jeweils aktivierte im Menü mit einem Stern 
(»*«) gekennzeichnet. Der Übersichtlichkeit halber wollen 
wir uns bei der Erläuterung der einzelnen Programmfunk¬ 
tionen an die Gliederung in Bild 2 halten: 

Geos 

1.1. Geoterm Info: Der Name des Programmautors und 
ein Copyright-Verweis werden auf dem Bildschirm ausge¬ 
geben. 

1.2. Desktop: Beenden von Geoterm, Rückkehr zum 
Desktop 

1.3. Accessories: Maximal 8 Accessories wie etwa Uhr, 
Taschenrechner oder Notepad können hier, sofern sie sich 
auf der Arbeitsdiskette befinden, angezeigt und von Geo¬ 
term aus aufgerufen werden. 

Parameter 

In diesem Menüpunkt werden alle für den Betrieb von 
Geoterm wichtigen Parameter eingestellt. Dies betrifft in er¬ 
ster Linie die Einstellung der RS232-Schnittstelle und 


die Parameter für ei¬ 
nen eventuell ange¬ 
schlossenen Drucker. 

2.1. Laden: Geo¬ 
term besitzt die 
Struktur eines 
VLIR-FILES. 

Die aktuellen Parameter, 
wie sie zuletzt gespeichert wurden 
(siehe 2.7.) sind Teil dieses VLIR-Files 
werden beim Starten von Geoterm automatisch 
geladen. Sie sind wegen der VLIR-Struktur 
nicht als eigenes File auf Diskette sichtbar. 

2.2. RS232: Dieser Menüpunkt bildet 
das Kernstück der Datenübertragung. 
Zwei Computer, die über das Telefon mit¬ 
einander verbunden sind, können sich 
nur dann »verstehen«, wenn sie die glei¬ 
chen Parameter wie etwa Übertragungs¬ 
rate und Stopbits etc. verwenden. Ge¬ 
nau das wird hier eingestellt: 

2.2.1. Baudrate: Einstellung der Über¬ 
tragungsgeschwindigkeit in Bit/Sekun¬ 
de. Wählbar sind: 50, 75, 150, 300, 600 
und 1200 Baud. Voreinstellung: 300 
Bit/Sekunde (Bild 3) 

2.2.2. Datenbits: Länge eines übertra¬ 
genen Zeichens in Bit. Einstellbar zwi¬ 
schen 5 und 8 Bit. Voreinstellung: 8 Bit, 
also 1 Byte. 

2.2.3. Parität: Um die Übertragungssi¬ 
cherheit zu erhöhen, kann jedes über¬ 
tragene Zeichen durch ein zusätzliches 
Bit ergänzt werden, das eine Information 
(Quersumme) über das übertragene 
Zeichen enthält. 

Mögliche Einstellungen in der Paritäts¬ 
prüfung: 

Keine Parität (N) 

Gerade Parität (E) 

Ungerade Parität(O) 

Gesetzt, Gelöscht 
Voreinstellung: Keine Parität (N) 

2.2.4. Stop-Bits: Um dem empfangenden Computer mit¬ 
zuteilen, daß ein Zeichen zu Ende ist, werden 1 oder 2 Stop- 
Bit übertragen. Voreinstellung: Ein Stop-Bit. 

2.2.5. Duplex: 

Halb-Duplex: Empfangene Zeichen werden nicht »ge¬ 
echot«, also an den Sender zurückgeschickt. Gesendete 
Zeichen erscheinen sofort auf dem eigenen Bildschirm. 

Voll-Duplex: Empfangene Zeichen werden zur Kontrolle 
zum Sender zurückgeschickt, Gesendete Zeichen erschei- 


nuswalil Menue Befehl oder (RETURN)> 



nvahl Auswahl und Suchen 



Auswahl 

& Auswahl loeschen 

* Datum 

H Rubrik 

K Stichwort 

Suchen 

* Tvsuche starten 

* Lesen 

* Blaettern 

K Woerterbuch 

* Hilfe * Zurueck 

( ab 870181 ) 

( Alles suchen ) 

( geos ) 




:=> 





Bild 1. Die Benutzeroberfläche von Geoterm während einer DFÜ- 
Verbindung. Das Programm erklärt sich nahezu von selbst. 
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2.5.1.1. Schnell 


2.5,12, langsam 


2.52.1. Ja 


2.522. Nein 


253.1. Ja 


25.32. Nein 


26.1.1. Vier 


26.12. Fünf 


26.2.1. Nul 


2622 Ens 


2.623. Sieben 


2621. Ja 


2.6.32, Nein 


264.1. Ja 


26.42. Nein 


Überblick Menüstruktur 


1. Geos 


2 

Parameter 



□ 

1.1 Geoterm Info 


2.1. 

Laden 

1 


r 

12 Deeklop 


22 

RS232 


1.3. Mn 8 kcactw 


251. An 


232. Aus 


221 Baucfrato 


2.3. Echo 


22.2. Datenbus 


25.1. Tempo -p 25. Senden 


252 CR irtEnWdai - 


_ 


252 Konvertieren 


onur. . 

ivertieren |- 


262 SefarrtäiatessB - 


2.62 ASCII 


2.6.4, Llnefeod 


22.4. Stoppte 


2.2.5. Duplex 


26.1. Geräteactesse | -p 2.6. Drucker 


- 2212. 75 Baud 


- 221.3. 150 Baud 


22.1.1. 50 Baud 


- 22.1.4. 300 Baud 


- 22.1.5. 600 Baud 


2.21.6.1200 Baud 


- 2222 6 Bit 


2221. 5 Bll 


- 2225 7 Bit 


2224. 8 Bit 


2.4,1. An 

T 

2.4. Uneteed 


223. Parti« 

242 Aus 

J 






- 2232 Gerade R 


2251. Keile Paritä 


- 2233. Ungerade R 


- 223.4. Gesetzt 


223.5. Gelöscht 


224.1.1 StopBÜ 


2242 2 Stof>öits 


225.1. WDupfac 


2252 HabDuptec 


2.7. Speichern 


Bild 2. Die Menü¬ 
struktur von Geoterm 
auf einen Blick. 
Schraffierte Felder 
sind für eine spä¬ 
tere Erweiterung 
vorgesehen. 


nen erst als Echo des Emp¬ 
fängers auf dem eigenen 
Schirm. So ist auch eine gute 
Kontrolle über die Korrektheit 
der Übertragung möglich. 

Bei Vollduplex können beide 
Computer gleichzeitig sen¬ 
den und empfangen. 

Voreinstellung: Vollduplex. 

Nach dem Starten von Ge¬ 
oterm sind die derzeit von na¬ 
hezu allen Mailboxen benutz¬ 
ten Parameter schon vorein¬ 
gestellt: Voll-Duplex, 300 
Baud, 8 Datenbit, keine 
Paritätsprüfung, ein Stop-Bit 
(Abkürzung: 8N1). 

2.3. Echo: Bestimmt, ob ein 
empfangenes Zeichen wie¬ 
der an den Sender zur Kon¬ 
trolle zurückgeschickt wird. 

Einstellungen: An/Aus 

Voreinstellung: Echo ein. 

2.4. Linefeed: Bestimmt ob 
ein empfangener Code für Li¬ 
nefeed (Zeilenvorschub, $0A) 
auch als solcher am Bild¬ 
schirm ausgegeben wird. 

Manche Mailboxen senden 
am Zeilenende ein Carriage 
Return (CR, $0D) und einen 
Linefeed, was bei einge¬ 
schaltetem Linefeed einen 
doppelten Zeilenabstand 
beim Empfang zur Folge hät¬ 
te. Voreinstellung: Aus 

2.5. Senden 

2.5.1. Tempo: Dieser Punkt 
ist wichtig beim Senden von 
Text- oder Programmfiles. 

Um eine höhere Übertra¬ 
gungssicherheit zu erreichen 
kann zwischen »schnell« und 
»langsam« gewählt werden. 

Bei der Einstellung »lang¬ 
sam« wartet Geoterm nach 
jedem gesendeten Zeichen 
B /so Sekunden, um dem emp¬ 
fangenden Computer - vor al¬ 
lem wenn dieser keinen Emp¬ 
fangspuffer hat - Zeit zur Ver¬ 
arbeitung zu geben. Bei der 
Einstellung »schnell« wird ohne Pause gesendet. Die eigent¬ 
liche Datenübertragungsrate in Bit/Sekunde (siehe Punkt 
2.2.1.) bleibt davon unberührt. Voreinstellung: Schnell 

2.5.2. CR unterdrücken: Ebenfall wichtig beim Senden 
von Textfiles. Bei der Einstellung »Ja« werden die Codes für 
»Carriage Return« ($0D) nicht gesendet. Voreinstellung: 
»Nein« 

2.5.2. Konvertieren: Dieser Punkt entscheidet, ob beim 
Senden von sequentiellen Textfiles (siehe 6.1.1.) eine Kon¬ 
vertierung in den Standard-ASCII-Code vorgenommen 
werden soll, von dem sich das Commodore - ASCII be¬ 
trächtlich unterscheidet. Beim Senden von Geos- 
Textscraps ist die Einstellung nicht relevant, das Geos von 
Haus aus den Standard-ASCII-Code verwendet. 

2.6. Drucker 

Dieser Menüpunkt dient zur Einstellung der Druckerpa¬ 
rameter für den Ausdruck des Textpuffers von Geoterm, in 


welchem auf Wunsch die Kommunikation mit einer Mailbox 
mitprotokolliert werden kann (Näheres unter Punkt 7.). 

Wichtig: Geoterm verwendet hier die Standard- 
Ausgaberoutinen des C 64 und ist also unabhängig vom un¬ 
ter Geos eingestellten Druckertreiber. Die Ausdrucke erfol¬ 
gen also im normalen Draft-Modus des Druckers. 

2.6.1 Geräteadresse: Wählbar zwischen 4 und 5. Vorein¬ 
stellung: Geräteadresse 4 

2.6.2. Sekundäradresse: Wählbar zwischen 0, 1 und 7. 
Voreinstellung: 1 

2.6.3. ASCII: Hier kann entschieden werden, ob beim 
Ausdruck eine Wandlung in den Standard-ASCII-Code vor¬ 
genommen werden soll. Bei Commodore-Druckern ist 
»Nein« zu wählen. Wird ein Epson-kompatibler Drucker mit 
Commodore-Interface verwendet ist ebenfalls keine Kon¬ 
vertierung notwendig, wenn das Interface nicht im Linear- 
Modus (ohne Code-Wandlung) betrieben wird. 
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GEOS-LISTINGS 



Wichtig: Diese Festlegung gilt ebenfalls für das Format 
der SEQ-Files, in denen der Textpuffer (siehe 7.6) auf Dis¬ 
kette gespeichert wird. 

Voreinstellung: »Nein« 

2.6.4. Linefeed: Bestimmt, ob am Ende einer Zeile ein Li- 
nefeed ($0A) gesendet wird. Sollte Ihr Drucker also alles in 
einer Zeile drucken, so wählen Sie hier »Ja«. Voreinstel¬ 
lung: »Nein«. 

2.7. Speichern 

Wählen Sie diesen Punkt an, werden die von Ihnen ge¬ 
wählten Parameter auf Diskette gespeichert und sind beim 
nächsten Start von Geoterm sofort aktiv. 

3. Schrift 

Zwei Schriftarten (Fonts) sind wählbar, mit denen Geo¬ 
term die Kommunikation mit anderen Rechnern auf dem 
Bildschirm darstellt. Dies ist zum einen BSW 9 (der Geos- 
Systemzeichensatz mit einer Größe von 9 Punkt) und Uni- 
versity 6. Voreinstellung: University 6. 

4. Zeit 

Funktion noch nicht integriert. Es ist geplant, wahlweise 
die Uhrzeit, die Verbindungsdauer oder die angefallenen 
Telefongebühren (Zeit pro Einheit einstellbar) anzuzeigen. 

5. Tasten 

Ebenfalls noch nicht integriert. Geplant sind belegbare 
Funktionstasten, auf die man häufig gebrauchte Komman¬ 
dos in Mailboxen oder seine verschiedenen User-Namen 
und Paßwörter legen kann. 

6. Files 

Übertragen (Senden) und Empfangen von Files und Pro¬ 
grammen von beziehungsweise zu anderen Computern. 

6.1. Senden 

Übertragung von Files und Programmen zu anderen 
Computern. Derzeit realisiert ist die Übertragung von 
ASCII-Files und Text-Scraps. 

6.1.1 ASCII-Files: Dies sind zum einen Geos-Text-Scraps 
und sequentielle C64-Files. Sequentiell in der Geos- 
Terminologie beinhaltet sowohl normale Programme 
(PRG) als auch sequentielle Files (SEQ), die unter Geos mit 
dem C64-lcon dargestellt werden. 

Nach dem Anklicken einer dieser beiden Funktionen 
(Text-Scrap oder Seq.-Files) erscheint eine Dialogbox; in 
der Sie aufgefordert werden, eine Diskette mit dem zu sen¬ 
denden File einzulegen. 

Beim Senden eines Text-Scraps wird dies nach An¬ 
klicken von »OK« sofort übertragen, da sich ja nur ein File 
dieses Namens auf der Diskette befinden darf. 

Bei Seq.Files erscheint nach dem Anklicken des »OK«- 
Feldes eine Auswahlbox, in der das gewünschte File durch 
Anklicken markiert wird (Bild 4). Nach einem weiteren »OK« 
beginnt der Sendevorgang, der je nach Parametereinstel¬ 


lung (Duplex/Echo) auf dem Bildschirm mitverfolgt werden 
kann. 

Alle Aktionen erlauben auch einen Abbruch durch An¬ 
klicken des entsprechenden Feldes. Der Sendevorgang 
selbst läßt sich durch Drücken einer beliebigen Taste des 
C64, nicht jedoch mit der Maustaste unterbrechen. 

6.1.2. X-Modem: Für die Übertragung von Programmen 
gibt es sogenannte Ubertragungsprotokolle (nicht zu ver¬ 
wechseln mit den Übertragungsparametern unter 2.2.1), 
die einen fehlerfreien Datentransfer garantieren sollen, da 
bei Programmen schon ein falsch übertragenes Byte kata¬ 
strophale Folgen haben kann. Eines der am häufigsten ver¬ 
wendeten Protokolle ist das X-Modem-Protokoll. In der hier 
vorliegenden Version von Geoterm ist dieses leider noch 
nicfn integriert, die bald folgende Version wird es sicher be- 


Anmerkung der Redaktion 


Beim Betrachten von Bild 2 fallen Ihnen wahrscheinlich die schraf¬ 
fierten Flächen ins Auge. Diese bilden einen kleinen Wermutstropfen, 
den wir Ihnen nicht verheimlichen wollen: 

Da der Autor des Programms erst Anfang dieses Jahres mit der Ar¬ 
beit an Geoterm begann, ließen sich leider nicht alle Funktionen, die 
er einplante, bis zum Redaktionsschluß, der lange vor dem Erschei¬ 
nungstermin des Sonderheftes liegt, verwirklichen. Davon betroffen 
sind aber lediglich Sonderfunktionen, die dem zusätzlichen Komfort 
dienen. Diese werden noch in das Programm integriert und Ihnen 
baldmöglichst zugänglich gemacht. Auch an eine VT-52-Terminal- 
Emulatlon wird gedacht. Auf der Programmservice-Diskette zu die¬ 
sem Sonderheft wird sich die aktuellste Version von Geoterm befin¬ 
den, die sicher schon einige dieser Zusatzfunktionen beherrscht. 

Trotz dieses kleinen Mankos haben wir uns aber entschlossen, Ih¬ 
nen diese Software-Perle hier vorzustellen, denn den ersten Preis im 
Geos-Wettbewerb hat sich Geoterm auf jeden Fall verdient. 


herrschen. Geplant ist, daß sowohl normale C64-Files als 
auch Geos-Files (Geowrite-Texte, Geopaint-Bilder und Pro¬ 
gramme) inklusive Info-Sektor übertragen werden können, 
so daß sie vom Empfänger sofort weiterverwendet werden 
können. 

6.2. Empfangen 

Dieser Menüpunkt dient zum Empfangen (in der DFÜ- 
Fachsprache auch »Download« genannt) von Programmen 
und Texten mit dem X-Modem-Protokoll. Auch diese Funk¬ 
tion ist leider noch nicht integriert, da hierfür die gleichen 
Routinen wie beim Senden benötigt werden. 

7. Puffer 

Der Datenempfangspuffer von Geoterm mit über 13 
KByte Größe ist eine sehr schöne Einrichtung, mit dem Ver¬ 
bindungen mit Mailboxen protokolliert werden können. 
Wichtige Texte und Informationen lassen sich so dauerhaft 
speichern. 
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Bild 3. Die Einstellung der Übertragungsparameter ist 
vorbildlich menügesteuert. 

Um Sie immer über den Zustand des Puffers am Laufen¬ 
den zu halten bietet Geoterm ständig zwei Anzeigen: 

Dies ist zum einen das Icon oben rechts am Bildschirm 
mit der Beschriftung »Pf.«. Bei invertierter Darstellung 
(schwarzer Hintergrund), ist der Puffer geöffnet, bei norma¬ 
ler Darstellung geschlossen (Bild 1). Durch Anklicken des 

Verbindungen komfortabel protokollieren 


Icon kann der Puffer-Status während der Übertragung ge¬ 
ändert werden. Um über den »Füllungsgrad« des Puffers zu 
informieren, stellt Geoterm eine schmale Leiste direkt un¬ 
terhalb der Menüleiste dar. Je voller der Puffer ist, desto 
weiter zieht sich in dieser Leiste eine Linie von links nach 
rechts. 

7.1. Öffnen: Von diesem Zeitpunkt an werden alle ankom- 
menden Zeichen im Puffer protokolliert. Das Öffnen kann 
auf zwei verschiede Arten geschehen: 

1. Löschen: Der alte Pufferinhalt wird - so vorhanden - 
gelöscht. Es steht die volle Puffergröße von 13549 Byte zu 
Verfügung. 

2. Erweitern: Der Puffer wird ebenfalls aktiviert, der alte 
Inhalt bleibt jedoch erhalten. Sehr nützlich, wenn nur be¬ 
stimmte Passagen einer Verbindung protokolliert werden 
sollen. Dieser Punkt entspricht dem Aktivieren des Puffers 
über das »Pf.«-lcon rechts oben. 

7.2 Schliessen: Das Schliessen des Pufferspeichers 
kann alternativ - und bequemer - auch über das nochmali¬ 
ge Anklicken des »Pf.«-Icons geschehen; es erscheint dann 
wieder in normaler Darstellung. 

7.3 Restplatz: Der verbleibende freie Speicher im Puffer 
wird in einem Window durch die genaue Angabe der ver¬ 
bleibenden Bytes dargestellt. Ist der Puffer voll, so deakti¬ 
viert Geoterm ihn automatisch. Sein Inhalt bleibt dabei voll 
erhalten. 

7.4. Anzeigen: Der Inhalt des Puffers wird auf dem Bild¬ 
schirm ausgegeben. Eine beliebige Taste hält die Anzeige 
an, jeder weitere Tastendruck setzt es fort. Ist der Puffer 
leer, ignoriert Geoterm dieses Kommando. 

7.5. Drucken: Der Inhalt des Puffers wird an einen 
Drucker am seriellen Port des C64 ausgegeben. Maßgeb¬ 
lich sind die unter 2.6. eingestelten Parameter. Ein speziel¬ 
ler Geos-Druckertreiber wird nicht benötigt. Ein beliebiger 
Tastendruck bricht den Ausdruck ab. 

7.6. Speichern: Der Inhalt des Pufferspeichers wird als 
normales sequentielles C64-File auf Diskette im Laufwerk 
mit der Gerätenummer 8 (Drive A) gespeichert und kann 
von beliebigen Programmen, die die Verarbeitung solcher 
Files erlauben, weiterverwendet werden. Die Weiterverar¬ 
beitung in Geowrite ist nach der Konvertierung mit dem 


Programm »Text-Grabber« aus dem Programmpaket 
»Geowrite Workshop« möglich. Zur Konvertierung emp¬ 
fiehlt sich die Verwendung der Konvertierungstabelle 
»Generic II Form«. 

8. Telefonnummern 

Hier ist eine Speicher- und eventuell Wahlmöglichkeit 
(nur mit Modem) für häufig benutzte Telefonnummern vor¬ 
gesehen, jedoch noch nicht integriert. 

Eingabehinweise 


Geoterm ist, wie oben erwähnt, ein VLIR-File und somit 
nicht so einfach abtippfähig. Daher finden Sie hier ein Pro¬ 
gramm namens »GEÖTERM.INST«, das unter Geos gestar¬ 
tet werden muß und des läuffähige Programm »Geoterm« 
erzeugt. Dazu sind verschiedene Schritte zu beachten. 


1. Geben Sie »GEOTERM.INST« (Listing 1), »CHECK 
SCRAP« (Listing 2) und »CHANGE« (Listing 3) mit dem 
MSE ein und speichern diese auf eine neu formatierte, an¬ 
sonsten leere Diskette. Das Programm »GEOTERM.INST« 
muß sich an erster Stelle im Directory befinden. 

2. Falls etwas schiefgehen sollte: Fertigen Sie sich eine 
Sicherheitskopie dieser Diskette an. 

3. Laden Sie das Programm »CHANGE« und starten es 
mit RUN. Es fordert Sie auf, die Diskette mit »GEO¬ 
TERM.INST« einzulegen. Nach Bestätigung durch 
<RETURN> wird die Startadresse von »GEOTERM. IN¬ 
ST« auf den korrekten Wert geändert. Mit diesem Wert wäre 
jedoch keine Eingabe mit dem MSE möglich gewesen. 

4. Laden Sie das Programm »GEOCHECK«, das Sie in 
diesem Sonderheft auf Seite 156 finden und starten es mit 
RUN. Lh< )n Sie daraufhin die Diskette mit den abgetippten 


geos i Porometer j Schrift j Uhr j Tosten l * * * 5 6 7 ' urle( 1 Tein'. |[PfT 


pr 


I OK I 


;■ lem--, 

I lextscrop 

rüa 


|Abbruch| 


Bild 4. Das zu sendende File kann aus einer der unter 

Geos üblichen Dialogboxen ausgewählt werden. 

Programmen ein. Geocheck erzeugt nun aus »GEOTERM. 

INST« und dem »CHECK SCARP« ein unter Geos lauffähi¬ 
ges Programm, indem es den Info-Sektor erzeugt. 

5. Starten Sie nun Geos, legen Sie die so behandelte Dis¬ 
kette ein, öffnen sie und beantworten die Frage nach der 
Konvertierung ins Geos-Format mit »Ja«. 

6. Wählen Sie danach die Funktion »Aufräumen« (Valida- 
te) im Menü-Disk. 

7. Starten Sie nun »GEOTERM.INSTALL« unter Geos. 
Geoterm wird nun erzeugt und steht Ihnen nach etwa 30 
Sekunden zur Verfügung. Es kann nun durch Doppelklick 
gestartet werden. 

Vielleicht ist Geoterm sogar Ihr Einstieg in die faszinieren¬ 
de Welt der Datenfernübertragung. Wenn dem so ist: Einfa¬ 
cher als mit Geoterm geht es kaum - und glauben Sie uns: 
Es lohnt sich. (Carsten Clasohm/sk) 
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Name : geoterm.inst 0801 2ed8 


0801 : 

20 

al 

c2 

a9 

00 

85 

16 

20 

9c 

0809 : 

f6 

cl 

a5 

04 

8d 

38 

05 

a5 

c4 

0811 : 

05 

8d 

39 

05 

88 

88 

8c 

3e 

47 

0819 : 

05 

a9 

47 

85 

02 

a9 

05 

85 

02 

0821 : 

03 

a9 

00 

85 

04 

a9 

80 

85 

44 

0829 : 

05 

ad 

3e 

05 

85 

46 

a9 

00 

66 

0831 : 

85 

47 

18 

a5 

04 

65 

46 

85 

a4 

0839 : 

04 

a5 

05 

65 

47 

85 

05 

a9 

06 

0841 : 

20 

85 

06 

a9 

00 

85 

07 

20 

63 

0849 : 

7e 

cl 

a9 

01 

85 

08 

a9 

00 

72 

0851 : 

85 

09 

20 

92 

c2 

a5 

08 

ac 

88 

0859 : 

3e 

05 

99 

15 

80 

8d 

3a 

05 

8a 

0861 : 

a5 

09 

99 

16 

80 

8d 

3b 

05 

lf 

0869 : 

20 

4a 

c2 

a9 

01 

85 

08 

a9 

44 

0871 : 

00 

85 

09 

20 

92 

c2 

a5 

08 

60 

0879 : 

ac 

3e 

05 

99 

03 

80 

8d 

3o 

9c 

0881 : 

05 

a5 

09 

99 

04 

80 

8d 

3d 

c3 

0889 : 

05 

20 

4a 

c2 

a9 

00 

85 

Oa 

4e 

0891 : 

a9 

80 

85 

Ob 

ad 

38 

05 

85 

f9 

0899 : 

04 

ad 

39 

05 

85 

05 

20 

e7 

34 

08al : 

cl 

a9 

67 

85 

Oa 

a9 

05 

85 

ce 

08a9 : 

Ob 

ad 

3a 

05 

85 

04 

ad 

3b 

60 

08bl : 

05 

85 

05 

20 

e7 

cl 

a9 

00 

fl 

08b9 : 

85 

04 

a9 

80 

85 

05 

a9 

00 

e2 

08cl : 

85 

02 

a9 

01 

85 

03 

20 

78 

b4 

08c9 : 

cl 

a9 

ff 

8d 

01 

80 

a9 

00 

cb 

08dl : 

85 

Oa 

a9 

80 

85 

Ob 

ad 

3c 

b6 

08d9 : 

05 

85 

04 

ad 

3d 

05 

85 

05 

74 

08el : 

20 

e7 

cl 

a9 

3f 

85 

02 

a9 

16 

08e9 : 

05 

85 

03 

20 

74 

c2 

20 

89 

67 

08fl : 

c2 

a9 

67 

85 

10 

a9 

06 

85 

84 

08f9 : 

11 

a9 

66 

85 

06 

a9 

20 

85 

62 

0901 : 

07 

20 

8f 

c2 

20 

89 

c2 

a9 

01 

0909 : 

cd 

85 

10 

a9 

26 

85 

11 

a9 

f8 

0911 : 

16 

85 

06 

a9 

00 

85 

07 

20 

29 

0919 : 

8f 

c2 

20 

89 

c2 

a9 

e3 

85 

57 

0921 : 

10 

a9 

26 

85 

11 

a9 

f6 

85 

85 

0929 : 

06 

a9 

01 

85 

07 

20 

8f 

c2 

2a 

0931 : 

20 

77 

c2 

4c 

2c 

c2 

00 

00 

20 

0939 : 

00 

00 

00 

00 

00 

67 

65 

6f 

e9 

0941 : 

54 

65 

72 

6d 

00 

00 

00 

83 

99 

0949 : 

13 

01 

67 

65 

6f 

54 

65 

72 

77 

0951 : 

6d 

aO 

aO 

aO 

aO 

aO 

aO 

aO 

ld 

0959 : 

aO 

aO 

04 

00 

01 

06 

56 

Oa 

f8 

0961 : 

15 

Od 

01 

02 

00 

00 

ff 

03 

84 

0969 : 

15 

bf 

ff 

ff 

ff 

00 

00 

01 

60 

0971 : 

cO 

00 

01 

aO 

lf 

01 

aO 

3f 

81 

0979 : 

81 

cO 

ff 

cl 

01 

f7 

el 

el 

ad 

0981 : 

e7 

99 

83 

c3 

99 

c7 

dO 

29 

fb 

0989 : 

87 

88 

51 

07 

84 

al 

a7 

e3 

45 

0991 : 

4l 

03 

f2 

81 

a3 

f5 

01 

a7 

7e 

0999 : 

ea 

01 

ea 

94 

6d 

11 

68 

49 

e5 

09al : 

aO 

fO 

6d 

80 

00 

01 

ff 

ff 

2d 

09a9 : 

ff 

81 

06 

01 

00 

04 

00 

00 

2b 

09bl : 

02 

04 

54 

65 

72 

6d 

69 

6e 

8c 

09b9 : 

61 

6c 

70 

72 

67 

2e 

20 

56 

dO 

09el : 

31 

2e 

30 

00 

46 

00 

43 

61 

4a 

09c9 : 

72 

73 

74 

65 

6e 

20 

43 

6c 

8c 

09dl : 

61 

73 

6f 

68 

6d 

00 

4e 

49 

77 

09d9 : 

54 

4d 

45 

4e 

55 

20 

31 

35 

74 

09el : 

2c 

34 

34 

2c 

37 

36 

2c 

31 

f2 

09e9 : 

31 

31 

2c 

32 

2c 

43 

4c 

4f 

bl 

09fl : 

53 

49 

4e 

47 

2c 

56 

45 

52 

95 

09 f9 : 

54 

49 

4b 

4l 

4c 

Od 

4d 

50 

fO 

OaOl : 

4f 

49 

4e 

54 

20 

56 

6f 

72 

6a 

0a09 : 

76 

65 

72 

73 

69 

6f 

6e 

20 

49 

Oall : 

76 

6f 

6e 

20 

67 

65 

6f 

54 

e6 

0al9 : 

65 

72 

6d 

Od 

28 

6f 

68 

6e 

31 

0a21 : 

65 

20 

58 

2d 

4d 

6f 

64 

65 

ff 

0a29 : 

6d 

2c 

20 

54 

61 

73 

74 

65 

8d 

0a31 : 

6e 

2d 

20 

62 

65 

6c 

65 

67 

a8 

0a39 : 

2e 

2c 

20 

54 

65 

6c 

6e 

72 

68 


Oa4l 

72 

65 

67 

2e 

2c 

20 

5a 

65 

fd 

0a49 

69 

74 

61 

6e 

7a 

65 

69 

67 

5a 

Oa51 

65 

29 

00 

3b 

Od 

3a 

53 

55 

4d 

Oa59 

42 

32 

35 

Od 

49 

4e 

49 

54 

78 

0a6l 

4d 

45 

4e 

55 

20 

02 

04 

4c 

4a 

Oa69 

48 

05 

aO 

00 

bl 

7a 

fO 

3b 

85 

Oa71 

c9 

10 

fO 

48 

c9 

14 

fO 

5e 

45 

0a79 

c9 

15 

fO 

4l 

c9 

16 

fO 

64 

Ob 

Oa81 

c9 

17 

fO 

60 

c9 

4l 

90 

13 

2d 

Oa89 

c9 

5b 

bO 

05 

49 

20 

4c 

36 

00 

Oa91 

04 

c9 

cl 

90 

06 

c9 

db 

bO 

7c 

0a99 

02 

29 

7f 

91 

7a 

a9 

7a 

85 

2c 

Oaal 

7e 

a9 

00 

85 

7f 

20 

c7 

04 

c5 

Oaa9 

4c 

05 

04 

a9 

7a 

85 

7e 

a9 

cf 

Oabl 

00 

85 

7f 

20 

c7 

04 

aO 

00 

77 

0ab9 

bl 

7a 

dO 

ae 

60 

a9 

7a 

85 

f9 

Oacl 

7e 

a9 

00 

85 

7f 

20 

c7 

04 

e5 

0ac9 

a9 

7a 

85 

7e 

a9 

00 

85 

7f 

90 

Oadl 

20 

c7 

04 

4c 

05 

04 

a9 

7a 

6c 

0ad9 

85 

7e 

a9 

00 

85 

7f 

20 

c7 

6c 

Oael 

04 

4c 

58 

04 

a9 

7a 

85 

7e 

23 

0ae9 

a9 

00 

85 

7f 

20 

c7 

04 

4c 

cd 

Oafl 

71 

04 

8a 

c9 

Oa 

90 

lc 

a9 

29 

0af9 

ff 

85 

7e 

e6 

7e 

38 

e9 

Oa 

9d 

ObOl 

bO 

f9 

18 

69 

3a 

8d 

45 

05 

10 

0b09 

a5 

7e 

18 

69 

30 

8d 

44 

05 

ab 

Obll 

4c 

b9 

04 

18 

69 

30 

8d 

45 

17 

Ob 19 

05 

a9 

20 

8d 

44 

05 

a9 

04 

c8 

0b21 

85 

02 

a9 

05 

85 

03 

20 

56 

50 

0b29 

c2 

6c 

7c 

00 

aO 

00 

bl 

7e 

Oe 

Ob31 

aa 

e8 

8a 

91 

7e 

dO 

09 

aO 

f8 

0b39 

01 

bl 

7e 

aa 

e8 

8a 

91 

7e 

2e 

Ob4l 

60 

a9 

02 

20 

39 

cl 

20 

9f 

5c 

0b49 

cl 

00 

c7 

00 

00 

3f 

01 

60 

bb 

Ob51 

flh-sq 

a5 

18 

o 

85 

Oa 

a5 

19 

nc 

85 

85 

cl 

Ob 

Oc 

60 

f4 

e9 

35 

0b6l 

■ti 

01 

85 08 20er 

0b69 

06 

81 

Ob 

10 

10 

13 

05 

Ob 

b9 

0b71 

10 

34 

42 

05 

01 

11 

48 

00 

86 

0b79 

18 

c2 

45 

46 

45 

48 

4c 

20 

15 

0b81 

4l 

42 

47 

45 

42 

52 

4f 

43 

d8 

0b89 

48 

45 

4e 

20 

57 

45 

47 

45 

53 

0b91 

4e 

Od 

Od 

14 

50 

00 

c4 

49 

d6 

0b99 

53 

4b 

45 

54 

54 

45 

4e 

46 

a3 

Obal 

45 

48 

4c 

45 

52 

3a 

00 

c9 

51 

0ba9 

3a 

30 

30 

00 

00 

a9 

4c 

85 

91 

Obbl 

7a 

a9 

lf 

85 

7b 

20 

05 

04 

4d 

Obb9 

a9 

13 

85 

7a 

a9 

05 

85 

7b 

6c 

Obel 

20 

05 

04 

20 

al 

c2 

a9 

db 

f7 

0bc9 

85 

02 

a9 

23 

85 

03 

20 

74 

f8 

Obdl 

c2 

8a 

fO 

Ob 

a9 

5e 

85 

7c 

12 

Obd9 

a9 

05 

85 

7d 

4c 

8d 

04 

a9 

aa 

Obel 

01 

20 

80 

c2 

a9 

4f 

85 

10 

b6 

0be9 

a9 

24 

85 

11 

a9 

16 

85 

06 

95 

Ob fl 

a9 

00 

85 

07 

20 

8c 

c2 

8a 

63 

0bf9 

fO 

Ob 

a9 

5c 

85 

7c 

a9 
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62 

00 

66 

00 

68 

99 

2b21 : 

00 

6b 

00 

6e 

00 

72 

00 

75 

23 

2b29 : 

00 

79 

00 

7e 

00 

83 

00 

88 

e3 

2b31 : 

00 

8c 

00 

91 

00 

95 

00 

99 

89 

2b39 : 

00 

9e 

00 

a3 

00 

a5 

00 

a8 

7b 

2b4l : 

00 

ad 

00 

bl 

00 

b7 

00 

bc 

85 

2b49 : 

00 

cl 

00 

c6 

00 

cb 

00 

dO 

03 

2b51 : 

00 

d4 

00 

d8 

00 

dd 

00 

e3 

8d 

2b59 : 

00 

e9 

00 

ed 

00 

fl 

00 

f5 

87 

2b6l : 

00 

f8 

00 

fe 

00 

01 

01 

05 

d3 

2b69 : 

01 

0c 

01 

Of 

01 

13 

01 

17 

6d 


2b71 : 

01 

la 

01 

le 

01 

22 

01 

25 

f3 

2b79 : 

01 

29 

01 

2d 

01 

2f 

01 

32 

e7 

2b81 : 

01 

36 

01 

38 

01 

3e 

01 

42 

6f 

2b89 : 

01 

46 

01 

4a 

01 

4e 

01 

51 

60 

2b91 : 

01 

55 

01 

58 

01 

5c 

01 

60 

40 

2b99 ! 

01 

66 

01 

6a 

01 

6e 

01 

72 

c7 

2bal : 

01 

76 

01 

78 

01 

7c 

01 

81 

28 

2ba9 : 

01 

88 

01 

0a 

94 

4c 

90 

94 

87 

2bbl : 

: a8 

00 

00 

45 

98 

5c 

9c 

88 

f2 

2bb9 : 

: 00 

03 

18 

ce 

37 

3b 

9d 

29 

31 

2 bcl : 

: 4a 

22 

93 

38 

ce 

37 

4a 

2a 

2c 

2bc9 : 

: aa 

bb 

41 

80 

04 

08 

04 

08 

52 

2bdl : 

: 22 

51 

00 

00 

00 

02 

00 

00 

ac 

2bd9 : 

: 00 

Od 

62 

80 

00 

0a 

be 

6d 

2f 

2bel : 

; 24 

■b.2 

71 

00 

02 

ac 

44 

dl 

ed 

2be9 ; 

: 05 

54 

05 

dO 

a5 

29 

44 

a2 

6e 

2b fl : 

: 21 

29 

52 

36 

d4 

a5 

29 

42 

a6 

2b f9 : 

: 4a 

2a 

aa 

8a 

20 

80 

02 

6c 

3b 

2c01 ! 

: 4c 

99 

bO 

15 

69 

89 

8c 

9b 

35 

2c09 : 

: 55 

55 

55 

c9 

25 

00 

00 

08 

fa 

2cll : 

: 14 

c2 

le 

22 

fb 

87 

04 

a4 

a8 

2cl9 ! 

; 89 

59 

88 

8d 

28 

09 

2d 

2e 

fe 

2c21 : 

: 44 

bb 

al 

e9 

62 

2a 

b4 

a5 

7e 

2c29 : 

: 29 

22 

4a 

2a 

92 

92 

10 

90 

5a 

2c31 : 

; 00 

aa 

95 

52 

aa 

59 

55 

55 

ab 

2c39 i 

: 55 

32 

55 

54 

94 

91 

10 

00 

9d 

2c4l : 

; 00 

00 

3e 

65 

a4 

22 

71 

00 

9f 

2c49 : 

: 08 

a5 

05 

c5 

49 

44 

05 

dO 

8a 

2c51 : 

: 2d 

e9 

44 

a2 

25 

29 

52 

22 

01 

2c59 : 

: 94 

b9 

2e 

12 

49 

4a 

a9 

22 

6a 

2c6l : 

: 08 

a8 

00 

aa 

95 

92 

aa 

59 

5e 

2c69 : 

: 55 

55 

55 

la 

55 

54 

95 

11 

72 

2c71 : 

: 10 

00 

00 

08 

14 

c9 

9c 

22 

c9 

2c79 : 

: a8 

10 

50 

45 

d8 

58 

88 

89 

6c 

2c81 : 

: 20 

01 

11 

2e 

37 

3a 

ld 

2a 

3a 

2c89 : 
2c91 : 

: 4b 
: 29 

«ftJMMHI 

£ 

8a 

21 

2c99 : 

: aa 

55 

55 

49 

8d 

31 

32 

29 

ea 

2cal : 

: 4d 

c9 

20 

00 

00 

00 

00 

40 

5c 

2ca9 : 

: 00 

14 

00 

20 

00 

00 

00 

00 

b8 

2cbl : 

: 00 

00 

40 

00 

00 

00 

00 

00 

c2 

2cb9 

: 00 

00 

00 

00 

00 

00 

40 

00 

bb 


2ccl : 00 00 00 03 01 87 eO 00 f2 
2cc9 : 00 01 00 80 00 01 04 00 72 
2cdl : 00 00 08 Od 60 00 00 6e 58 

Listing 1. (Schluß) 


Name : 

: check 

scrap 



5806 590c 

5806 : 

: 03 

01 

ii 

le 

02 

04 

00 

ff 

d2 

580e : 

: 03 

15 

bf 

ff 

ff 

ff 

80 

00 

8e 

5816 : 

: 01 

99 

77 

71 

95 

22 

41 

99 

92 

581e : 

: 22 

61 

95 

22 

41 

99 

22 

71 

e7 

5826 ! 

: 80 

00 

01 

80 

00 

01 

9d 

c9 

09 

582e ! 

: cl 

90 

95 

41 

9c 

9d 

9d 

84 

fb 

5836 : 

: 95 

4l 

9c 

95 

41 

80 

00 

01 

60 

583e ! 

: 9d 

d2 

01 

89 

9a 

00 

89 

16 

b2 

5846 ! 

: 36 

89 

d2 

24 

80 

00 

36 

ff 

5b 

584e ! 

: ff 

80 

00 

06 

00 

00 

04 

00 

5e 

5856 ! 

: 00 

02 

04 

49 

6e 

73 

74 

61 

99 

585e : 

: 6c 

6c 

69 

65 

72 

70 

72 

67 

4b 

5866 ! 

: 2e 

00 

54 

4l 

58 

Od 

54 

43 

97 

586e ; 

: 61 

72 

73 

74 

65 

6e 

20 

43 

45 

5876 : 

: 6c 

61 

73 

6f 

68 

6d 

00 

44 

d8 

587e : 

: 45 

4e 

20 

57 

4l 

52 

54 

45 

60 

5886 : 

: 4e 

20 

2a 

Od 

3a 

57 

4l 

49 

07 

588e : 

: 54 

20 

4d 

20 

31 

20 

20 

20 

lf 

5896 : 

: 20 

20 

20 

3b 

28 

d3 

45 

4b 

03 

589e : 

: 55 

4e 

44 

45 

4e 

29 

Od 

4c 

cf 

58a6 : 

: 4f 

4l 

44 

57 

20 

40 

45 

72 

90 

58ae : 

: 7a 

65 

75 

67 

74 

20 

56 

4c 

5f 

58b6 : 

: 49 

52 

2d 

46 

69 

6c 

65 

20 

0c 

58be : 

: 76 

6f 

6e 

20 

67 

65 

6f 

54 

93 

58c6 : 

: 65 

72 

6d 

2c 

20 

62 

69 

74 

e9 

58ce : 

: 74 

65 

20 

73 

74 

61 

72 

74 

70 

58d6 : 

: 65 

6e 

21 

00 

00 

00 

00 

00 

bb 

58de : 

: 00 

00 

00 

00 

00 

00 

00 

00 

df 

58e6 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

e7 

58ee : 

: 00 

00 

00 

00 

00 

00 

00 

00 

ef 

58f6 : 

: 00 

00 

00 

00 

00 

00 

38 

34 

40 

58fe : 

: 39 

42 

Od 

4a 

4d 

50 

20 

24 

05 

5906 : 

: 43 

31 

43 

33 

Od 

2f 

9a 

9f 

Od 


Listing 2. »CHECK SCRAP« Enthält 
die Daten für den Info-Block. Bitte 
mit dem MSE (Seite 159) eingeben. 


10 N1 *= “ BEOTERM . INST “ <064> 

15 U=8sD=0 <093> 

60 PRINT "BITTE BEOTERM-DISK IN LAUFWERK 8 

EINLEBEN UND TASTE DRUECKEN" <1B5> 

65 POKE 19B,0:WAIT 19B,1 , <037> 

80 N*=N1*:P=1026 <255> 

110 V=16: 0=32s F=256: N$=LEFT*<N*,V) <147> 

120 H$="0123456709ABCDEF"s Z*=CHR*<0> <002> 

130 T*=RIGHT*<STR*<D>,1)s OPEN 1,U,15,"I"+ 

T*s BOSUB 620 <14B> 

140 ... OPEN 2,U,2,T*+",P,R" <012> 

150 INPUT#l,E,M*,J,Ks IF E=0 THEN 240 <091> 

160 CLOSE 1: CLOSE 2s PRINT "CDOWN,SPACE>P 

ROBRAMM "jN*; <249> 

170 IF E=62 THEN PRINT " NICHT BEFUNDEN "s 

GOTO 200 <104> 

180 IF E=64 THEN PRINT " FALSCHER FILETYP" 

s GOTO 200 <117> 

190 PRINT "<DDWN,SPACE}DISI< READ-ERROR"(Es 

END <173> 

210 J=INT(C/V)s K=C-J*V <122> 

220 M*=M*+MID*(H*,J+1,1)+MID*(H*,I<+1,1) <144> 

230 RETURN <032> 

240 GET#2,A*,B*3 IF ST THEN 190 <023> 

250 CLOSE 2s CLOSE ls M*="" <191> 

260 A=ASC<A*+Z*>8 B=ASC<B*+Z$) <168> 

270 C=Bs GOSUB 210s C=As GOSUB 210 <039> 

2B0 PRINT"CDOWN>DIE STARTADRESSE VON ";N*5 

" ISTs <15B> 

290 PRINT"CDOWNIHEXADEZIMALs ";M*5" DEZIMA 

L s C2SPACE >“;B*F+A < 245 > 

300 PR INT "UND WIRD BEAENDERT AUF DEZIMALs 

”;P <116> 


340 B=INT(P/F)s A=P-B*Fs P*=CHR*(A>+CHR*<B 

)s Mt="“ <133> 
350 C=Bs BOSUB 2108 C=As GOSUB 210 <119> 
360 PRINT "CDOWN,SPACEJHEXsC2SPACE5" 5 M*J"< 

4SPACE>DECIMALs ";B#F+A <170> 
390 J=LEN<N*)s IF J=V THEN 410 <210> 
400 FOR X=J+1 TO VsN*=N*+CHR$(160>sNEXT <171> 
410 OPEN 1,U,15s OPEN 2,U,2,"#" <007> 
420 GOSUB 620s T=lBs S=1 <010> 
430 PRINT«l,"UlB";2!D;T;St GOSUB 620 <166> 
440 PRINT#1,"B-Ps";2;0: GET#2,A*,B* <161> 
450 T=ASC(A*+Z*>s S=ASC<B*+Z*>5 H=2 <102> 
460 PRINT#1,"B-Ps "j2j Hs BET#2,T* <156> 
470 C=A8C<T*+Z«>s IF CO130 THEN 510 <234> 

480 BET#2,A*,B*s F*=. FOR X=1 TO V <06B> 

490 GET#2,T*s F*=F*+T*s NEXT <163> 
500 IF F*=N* THEN 530 <241> 
510 H=H+Qs IF H<F THEN 460 <192> 
520 GOTO 430 <012> 
530 A=ASC<A*+Z*>s B=ABC<B*+Z*> <1B4> 
540 PRINT#l,"Uls" 52 sD;A;Bs BOSUB 620 <106> 
550 PRINT#1,"B-Ps";2;2s PRINT#2,P* 5 <112> 
560 PRINT#1,"U2s";2;D;A;Bs BOSUB 620 <255> 
570 CLOSE 2s BOSUB 620s CLOSE 1 <250> 
610 PRINT"FERTIG! GEOTERM.INST KANN NUN BE 

STARTET C3SPACE >WERDEN“s END <152> 
620 INPUT#l,E,M*,J,KsIF E=0 THEN RETURN <207> 
630 PRINT "CDDWN,SPACETERRORS ";E;M*;J;K <114> 
640 CLOSE 2s CLOSE ls END <055> 


Listing 3. »CHANGE« verändert die Startadresse von 
»GEOTERM.INST« auf den korrekten Wert. 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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C 64, 0128 


GEOS-LISTINGS 


Nun können Sie mit Geos 
in Super-Qualität drucken. 
Schwarz ist Schwarz und 
Kreise sind auch wirklich 
rund. All das besorgt das 
tolle Utility »Superprint« 


Drudtertreiber 
nach Maß 


G eos ist ein äußerst leistungsfähiges System, was die 
Gestaltung von Texten und Grafiken angeht. Doch 
was nützt einem all das, wenn das Ergebnis auf dem 
eigenen Drucker doch recht blaß und kläglich aussieht, ob¬ 
wohl dieser doch zu weit höherer Druckqualität imstande 
wäre. Dieses Problems haben sich Heinz Joachim Ciprina 
und Ralf Bonse angenommen. Hier das Ergebnis, das viele 
Druckerbesitzer sicher dankbar aufnehmen (Bild 1): 



1lte0 nmtr ist, 
mu0» ttmir 
Wetten t 



Bild 1. Endlich - Kreise sind auch wirklich Kreise 


OT 



Weiterhin besteht die Möglichkeit, auch für andere 
Drucker den passenden Treiber zu erstellen, sofern diese 
Drucker zumindest über einen an die ESC/P-Norm ange¬ 
lehnten Befehlssatz verfügen. 

Installation der Drudtertreiber 


Kopieren Sie die vier Systemfiles »Superprint«, »EP1.2«, 
»FX1.3«, »NL1.3« (Listing 1 bis 4) und den Druckertreiber 
»Epson FX-80«, gegebenenfalls auch den Druckertreiber 
Star »NL-10 (com)«, unter Geos auf eine leere Diskette. 

Nach dem Laden und Starten von Superprint können Sie 
durch <F1> oder <F3> wählen, ob Sie den Epson 
FX-80- oder den Star NL-10-Druckertreiber anpassen wol¬ 
len. 

Superprint liest nun den gewählten Druckertreiber. Im 
Falle des Epson FX-80 erkennt Superprint automatisch, ob 
es sich um eine Version von Geos 1.2 oder 1.3 handelt. 

Danach lädt Superprint die Erweiterung nach. 

In dem nun erscheinenden Menü wählen Sie den von Ih¬ 
nen verwendeten Druckertyp, auf den der vorher gewählte 
Treiber angepaßt werden soll: 

< Fl > für den Star NL-10 mit Commodore-Interface 

<F3> für Epson FX-80 und Kompatible 

<F5> für andere Drucker 

In den ersten beiden Modi (<F1 > und <F2>) stellen 
Sie die Sekundäradresse, eventuell gewünschte Linefeed, 
den Zeilenabstand im Normal- und Exenteded-Modus, spe¬ 
zielle Codes für den Zeilenvorschub, die Codes für den 
Grafikdruck mit 640 oder 1920 Punkten pro Zeile, NLQ- 
Schrift etc. ein. Falls Sie <F5> gedrückt haben, können 
Sie Ihren Drucker individuell einstellen. Verwenden Sie 
hierzu die Codes aus Ihrem Druckerhandbuch. 


Einstellungshinweis für 
die Benutzer des Star NL-10 mit 
Parallelinterface: 

Wählen Sie die Sekundäradresse 0, falls Sie den 
Star NL-10 mit Parallelinterface benutzen, da sonst der Aus¬ 
druck mit dem Wert $20 EOR-verknüpft wird. 

Nach erfolgter Einstellung wird der neue Druckertreiber 
unter dem von Ihnen angegebenen Namen auf Diskette ge¬ 
neriert und die Daten für den neuen Infoblock angelegt. Zu¬ 
letzt geben Sie Datum und Uhrzeit ein. Der fertige Infoblock 
wird nun angelegt und Ihr neuer Druckertreiber ist fertig. 

Der Clou des neuen, daß unter Geos vor jedem Ausdruck 
die Druckqualität, der Druckmodus und Formfeed in einem 
Menü (Bild 2) bestimmt werden. 

- Man kann zwischen drei verschiedenen Druckqualitäts¬ 
stufen auswählen: 

a) Normal - Ausdrucksqualität wie bisher 

b) High - hohe Punktdichte 

c) Super - sehr hohe Punktdichte 

- Man kann den Druckmodus bestimmen: 

a) Normal-Kreise bleiben eiförmig, wie bisher 

b) Extended-Kreise werden durch diesen Modus kreis¬ 
rund ausgedruckt, die x-Koordinate wird gestreckt und so¬ 
mit in x-Richtung eine Punktdichte von 216 dpi simuliert. 
Dabei können bei Geopaint nur 576 statt 640 Punkte ausge- 
druc"r werden. 

- Man kann wählen, ob am Ende einer Seite ein Formfeed 
gesendet werden soll. Beim Erzeugen des neuen Drucker¬ 
treibers wurden Sekundäradresse, Linefeed und Zeilenvor¬ 
schub schon individuell eingestellt. 


| geos j Datei j Editieren j Optionen i Schriftarten | 
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Bild 2. Das vor dem Ausdruck erscheindende Menü läßt 
weitere Einstellungen zu 

Bewegen Sie dazu den Mauspfeil auf das gewünschte 
Feld und klicken es an. Nachdem Sie Ihre Wahl getroffen 
haben, klicken Sie das OK-Feld an. 

Internes 


Die Geos-Druckertreiber verfügen über eine Sprungtabel¬ 
le, wobei der erste Einsprung beim Epson FX-80 mit »RTS« 
endet. Hier haben wir einen Sprung zu unserer Menü-Rou¬ 
tine eingefügt, die die erforderlichen Veränderungen nach 
Anklicken des OK-Feldes ausführt. 
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GEOS-LISTINGS 


Sicherlich wird Sie interessieren, warum die Kreise im 
Extended-Modus rund ausgedruckt werden: 

Die maximale Punktdichte beträgt in der Breite 240 dpi, 
in der Länge aber nur 216 dpi (engl.: Dots per Inch, also 
Punkte pro Inch). Damit die Kreise rund werden, muß die In¬ 
formationsdichte in x- oder y-Richtung um 24 Punkte pro 
inch erniedrigt werden. 

Wir simulieren mit unserem Programm im Ex¬ 
tended-Modus eine Informationsdichte von 216 Informatio¬ 
nen pro Inch. Das Verhältnis von 240 dpi zu 216 dpi beträgt 
10:9, das heißt jeder neunte Punkt wird doppelt gedruckt. 
Bei diesem Verfahren werden 64 Punkte am rechten Rand 
abgeschnitten. 


Eingabehinweise 


Superprint besteht aus vier Files: 

1. Superprint, das Basic-Hauptprogramm (Listing 1), 

2. »EP1.2« (Listing 2), dieses File wird für die Anpassung 
von Geos 1.2 benötigt. 

3. »FX1.3« (Listing 3), File zur Anpassung des Druckertrei¬ 
bers Epson FX-80 von Geos 1.3. 

4. »NL1.3« (Listing 4), File zur Anpassung des Star NL-10 
(com) an Geos 1.3. 

Diese sind mit dem MSE beziehungsweise dem Check¬ 
summer einzugeben und auf eine leere Diskette zu spei¬ 
chern, die später ins Geos-Format konvertiert werden muß, 
damit die erzeugten Treiber korrekt auf Diskette geschrie¬ 
ben werden können. 

Auf der Programmservice-Diskette, die im Geos-Format 
ausgeliefert wird, finden Sie übrigens schon einige fertig 
angepaßte Druckertreiber, die sofort in Betrieb genommen 
werden können. (Heinz Joachim Ciprina/Ralf Bonse/sk) 


0 REM WRITTEN BY R. BONSE & H.J. CIPRINA 

IN 1987 <071> 

5 REM REVISION: 30.12.87 <098> 

10 POKE 55,255:POKE 56,120:REM BASIC ENDE <141> 
15 IF L7=l THEN 500 <220> 

20 POKE 532B0,0:POKE 53281,0:PRINT"CCLR,LI 

B.BREENJ”;CHR* <14 )5 CHR*( 8 ):RESTORE <222> 

25 PRINT TAB (15) * 1 2 3 4 * * * * * * 11 IDOMNI S.UPTLR.PJURT " <09B> 

30 PRINT TAB(15)"TfTTTTTTTT" <035> 

35 PR I NT " {DOWN, 3SPACE >WR ITTEN BY 11. £. £IPR 

INA S< fi. SDNSE" <0B2> 

40 PRINT TAB(7>"CDQWNI(C) 1988 BY MARKT & 

XECHNIK" <150> 

45 PRINT"<4D0WN>"TAB< 6 >“filESES ÜROERAMM ER 

STELLT SIR" <212> 

50 PRINT"IDOWNJ"TAB(18)"DEN":PRINT TAB(IB) 

"TTT" <079> 

55 PRINT TAB (7) " .5.1).KLK .BJ.0.5. .QRUCKERTREIBER" <032> 
60 PRINT TAB (4) " C3D0WNJFUER £PSON UND ÜJ3MP 

ATIBLE UND DEN" <043> 

65 PRINT TAB ( 6 ) " <DOWN>£TAR Mi,-10 MIT .CJM -X 

NTERFACE" <075> 

70 POKE 198,0:WAIT 19B,1 <042> 

75 PRINT"tCLR,2DOWN>MELCHER fiRUCKERTREIBER 

Listing 1. »SUPERPRINT V2.0«. Das Basic-Haupt¬ 


programm. Bitte mit dem Checksummer (Seite 159) einge¬ 
ben. 


Korrekturen zum Geos-Kurs, Seite 69 

1. Wie in letzter Sekunde bekannt wurde, hat sich die Adres¬ 
se der Routine CLS bei der ausgelieferten Version von Ge¬ 
os 1.3 geändert. Es ist dies jetzt Adresse $C49C statt, wie 
auf Seite 72 angegeben, Adresse $C48D. Bei manchen 
Exemplaren ist es möglicherweise noch diese Adresse. 

2. Geos-File-Linker, Seite 73 oben, Punkt 10: Es sind drei 
Adressen anzugeben, die sich auf die »End off Assembly- 
Meldung-' des Hypra-Ass beziehen. 

a) Startadresse: Base - 2 

b) Endadresse: Last Byte + 2 

c) Einsprungadresse: Base 



im Überblick 



Mit diesen Sammelboxen sind Ihre Ausgaben immer 

sortiert und griffbereit. 

Eine Sammelbox faßt 
einen vollständigen 
Jahrgang mit 12 Ausgaben 
und kostet 14,- DM. 


Diese 64'er-Ausgaben bekommen Sie noch bei 
Markt&Technik für jeweils 6,50 DM. 

Tragen Sie die Nummer der gewünschten 


äbo 


.B. 01/88) in den Bestellabschnitt 


derbeigehefteten Zahlkarte nach Seite 98 ein. 



( 330 * 
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Sonderhefte im Überblick 


Die 64er-Sonderhefte bieten 
Ihnen detaillierte Informa¬ 
tionen zu speziellen Themen 
rund um die Commodore- 
Computer. 

Bestellen Sie bitte die 
gewünschten Sonderhefte zum 
Preis von jeweils 14,- DM 
mit der beigehefteten 
Zahlkarte nach Seite 98. 


C128 


C 64-Einstieg 



SONDERHEFT 0005: SONDERHEFT 0016: SONDERHEFT 0019: 

C 64 GRUNDWISSEN EINSTEIGER 2 EINSTEIGER 3 

Vom ersten Einschal- Spriteanimation: Basic-Kurs/Pro¬ 

ton bis zum eigenen Zeichentrickfilm mR gramm-überslcht 
Programm/Grund- dem Computer/ 
lagen, Tips und GEOS, die neue Cniolo 

Tricks Benulzeroberflächo JpiCIC 



SONDERHEFT 0001: 

C128 

Das können C128 
und C 128 D/Ver- 
glelch: C128-C64/ 
die passende 
Peripherie 


SONDERHEFT 0010: 

C128II 

Die Geheimnisse 
von CP/M/Kom¬ 
pletter C 128-Schalt- 
plan/Grafik für 
Einsteiger 


SONDERHEFT 0022: 
C 128 III 

Farbiges Scrolling 
Im 80-Zelchen- 
Modus/8-Sekun- 
den-Koplerpro- 
gromm 





Tips & Tricks, Anwendungen 


SONDERHEFT0004: SONDERHEFT 9903: SONDERHEFT 0017 

ABENTEUERSPIELE SPIELE SPIELE FÜR C 64 UND 

Kurs: Programmie- Top-Spiele-Listings C128 

rung von Grafik, für C 64 und VC So programmiert 

Parser und Künst- 20/ Große Spiele- man Scrolling / 

licher Intelligenz/ Marktübersicht Strategiespiele: 

Viele Adventures Grips ist gefragt 

C16, C116, VC 20, Plus/4 


SONDERHEFT 0018; 
DRUCKER 

Listlng: professionel¬ 
le Textverarbeitung 
für den MPS80I/ 
Matrlxdrucker im 
Tost 


SONDERHEFT 9904; 
GRAFIK I DRUCKER 

80-Zelchen-Karte 
zum Abtippen/ 
Hardcopy-Routinen 
für viele Drucker 


SONDERHEFT 0006: 
GRAFIK 

Giga-CAD: 3-D- 
Konstruktionspro- 
gramm/Grofikpro- 

? rammlerung von 
64 und C 128 


SONDERHEFT 0020: 
GRAFIK 

Grafik-Programmie¬ 
rung / Bewegungen 


SONDERHEFT 0003: 

C16/116, VC 20 

Grundlagen: Grafik 
und Soundprogram¬ 
mierung mit dem 
C 16/tistings: An¬ 
wendungen, Spiele. 


SONDERHEFT 0008 
PLUS/4 UND C16 

Übersicht: Zero¬ 
page und wichtige 
Syslemadressen/ 
Grundlagen und 
viele listlngs 


Floppy, Datosette, Dateiverwaltung 


SONDERHEFT 0014 
C16 UND PLUS/4 

VC 1551-Floppy- 
Kurs/Listlng: 3-D- 
Konstruklionspro- 
gramm/Hardware: 
Joysticks Im Test 


Programmiersprachen, Maschinensprache 


Hardware 


SONDERHEFT 9908: SONDERHEFT 0012: 

ASSEMBLER PROGRAMMIER¬ 
UNG Seiten Assem- SPRACHEN 

bler-Kurs / Listlngs: Pascal, Comal, 

Assembler, Reassem- Prolog, C und 

bler, Monitor, Forth / Vergleich: 

Utilities Basic-Compiler 


SONDERHEFT 9901: 
TIPS & TRICKS 

Befehlserweiterun¬ 
gen für Betriebs¬ 
system und Floppy/ 
Unentbehrliche 
Proqrammierhilfen 


ogri 


SONDERHEFT 0002: 
TIPS & TRICKS 

Zeichensatz- und 
Sprite-Editor/Inler- 
rupt-Joystickabfra- 
ge/27 nützliche 
Einzeiler 


Drucker, Grafik, Sound 


SONDERHEFT 0024: 
TIPS, TRICKS & TOOLS 

Automatische Text¬ 
korrektur / Utilities / 
Basic-Compiler zum 
Abtippen 


SONDERHEFT 9907: 
ANWENDUNGEN/DFU 

Terminal-_und MaiJ^ 
boxprögramm-zu 
Abtippen/DerC64 
als Winzer 


SONDERHEFT 9902: 
ABENTEUERSPIELE 

45 Seiten Adven- 
ture-Progrommier- 
Kurs/Listings und 
‘ ' t-T/hrltt- 
äsungen 


SONDERHEFT 0021: 
ASSEMBLER UND BASIC 

Giga-Ass: Hypra- 
Ass hoch 2/Parado- 
xon-Basic: 50000 
Basic Bytes free 


SONDERHEFT 0007: 
PEEKs UND POKEs 

Die wichtigsten 
Speicherstellen von 
C 64, C128 und 
C16/Listings: 

Tips & Tricks 


SONDERHEFT 0025: 
FLOPPT / DATASETTE 

Kurse: Floppy-Pro- 
grammierung für Ein- 
sleiger und Profis 


SONDERHEFT 0009: 
FLOPPY l DATEI- 
VERWALTUNG 

Floppy-Beschleuni- 
ger im Vergleichs¬ 
lest/Arbeiten mit 
dBase II/C128- 
Diskmonitor 


SONDERHEFT 0015: 
FLOPPY & DATASETTE 

Reparaturanleiiung: 
Erste Hilfe für die 
Diskettenslation/ 
Hypratape: das 
Super-Turbotape 


SONDERHEFT 0013: 
HARDWARE 

Ein-Chip-Mikrocom- 
puter / Bauanleitun¬ 
gen: MIDI-Interface, 
Speicheroszilloskop, 
IC-Tester 









































GEOS-LISTINGS 


C64, C 128 


SOLL ANGEPASST"sPRINT"WERDEN ?" 

80 EP*="£PSON £fl-80"sPRINT"{3DOWN,RVSONX£ 
1> {RVOFF,BPACE>"}EP* 

90 NL*“"£TAR ÜL-10(COM)":PRINT"CDOWN,RVSDN 
}< £3 >(RVOFF,SPACE }"5 NL* s POKE 198,0 

92 PRINT" {2D0WN),BER NEUE ÜRUCKERTREIBER WI 
RD AUCH AUF" 

93 PRINT"DIESE filSKETTE GESCHRIEBEN!" 

95 BET A*sIF A*=""THEN 95 

100 IF A*="{F3)"THEN 200 
105 IF A*<>"{F1)"THEN 95 

110 IN*=EP*sPRINT"{CLR,2D0WN)... READING " 
; EP* 

115 GOBUB 10000sSU*=OU*sGOSUB 5000 

120 IF PEEK(30980)=112 THEN V*="3":G0T0 15 

0 

125 IF PEEK(30980) =>101 THEN V*="2"sB0T0 15 
0 

130 PRINT"(DOWNlfllESER SRUCKERTREIBER KANN 
NICHT VON" 

135 PRINT"DIESEM UROGRAMM ANGEPASST WERDEN 
."IEND 

150 PRINT" <D0WN>2RUCKERTREIBER VON 01,0-5 Ml 
■ " I V* 

155 IF V*="2"THEN LN*="EP1.2" 

160 IF V*="3"THEN LN*="FX1.3" 

162 FOR F=1 TO 1000sNEXT 

165 PRINT"{DOWN)... LOADING ";LN* 

170 L7=lsLOAD LN*,8,lsREM NACHLADEN 

200 IN*=NL*s PRINT"CCLR,2D0WN)... READING " 

] NL* 

205 GOSUB 10000sSU*=OU*sGOSUB 5000 
210 V*= " 1" s LN*=> “ NL 1.3 " s GOTO 165 
400 T=0 

405 READ As T=T+1s GOTO 405 
500 IF V*=" 1 "THEN 1800 

502 RESTORE s PRINT"{CLRIHAEHLE 5 "s PRINT"TTTf 

TTT" 

505 PRINT"(3D0WN,RVS0NX£1>{RVOFF,SPACE}= 
STAR HL-10 MIT P-grt--INTERFACE" 

510 PRINT"{DOWN,RVSONX£3>{RVOFF,SPACE}= £ 
PSON £fl-B0 & KOMPATIBLE" 

515 PRINT" {DOWN,RVS0NX£5>{RV0FF,SPACE>= fl 
NDERE flRUCKER“s POKE 198,0 
520 BET A*5IF A*=""THEN 520 
525 A=ASC(A*)sIF A<133 OR A>135 THEN 520 
530 A=2*A-217sPRINT"{CLR>SJ HAST £";CHR*CA 
);" GEWAEHLT." 

535 PR I NT " TTTTTTTTTTTTTTTTTtTT” 

537 AA=A 

540 IF V*=" 1 "THEN 1200 
545 IF V*="3"THEN 1000 

550 IF A=53 THEN GOSUB 700:GOSUB 985sGOTO 
986 

555 IF A=51 THEN 610 

556 GOSUB 560 

557 READ A,B,C,D,E,FsPOKE A,B:POKE C.DsPOK 
E E,Fs GOTO 5100 

560 FOR F=1 TO 9s READ AsNEXTsREM 9 UEBERLE 
SEN 

565 GOSUB 3000s REM BEKUND. ADR 

570 GOSUB 3100s REM LINEFEED 

575 GOSUB 3200s REM EINSPRUNG 

580 GOSUB 3205s REM ZEILENVOR N/216 

600 READ A,B,C,DsPOKE A.BsPOKE C,DsRETURN 

610 GOSUB 560 

620 FOR F=1 TO 6sREAD AsNEXT:GOTO 5100 

699 REM EIGENE ANPASSUNG 

700 A2>=1 sPRINT "(DOWN) HAT DER flRUCKER EINEN 

640 BJNKTE flDDUS? (J/N) " 

705 BET Al*sIF A1*=""THEN 705 
710 IF Al*< >"J"THEN IF Al*< >"N"THEN 705 
715 PRINT"(DOWN}flAT DER DRUCKER EINEN 1920 
£UNKTE flDDUS?(J/N)" 

720 GET A2*sIF A2*=""THEN 720 
725 IF A2*< >"J"THEN IF A2*< >"N"THEN 720 
730 IF Al*="N"THEN IF A2*="N"THEN 990 
735 IF A1*="N"THEN IF A2*="J"THEN AA=49sRE 
AD B,B s REM NL 

740 IF A1*="J"THEN IF A2*="J"THEN AA=51sRE 
M FX 

745 IF A1*="J"THEN IF A2*="N"THEN 990 
775 IF AA=49 GOTO 870 

780 PRINT"(DOWNIäETZT WIRD DER 640 .PUNKTE 
flDDUS DES" 

785 PRINT"DRUCKERS EINGESTELLT." 

790 PRINT"£UER DEN Efl-80 SIND ES 5 HERTEs" 


<020> 



795 

< 177> 

800 

<023> 

B05 

<1B9> 

810 

<000> 


<010> 

815 

<1BB> 

820 

<089> 



825 

<023> 


<227> 

830 


835 

<0B2> 



840 

<231 > 



845 

< 139> 

850 


855 

<183> 

860 

<236> 

865 

< 167> 

870 

< 1B9> 


<053> 

875 

<017> 

8B0 

<04B> 



885 

< 184> 

890 

<061 > 


<070> 

B95 

< 123> 

900 

<152> 


< 141 > 

905 

<011> 

907 


910 

<245> 


<126> 

915 

0 

' r S^ 

<057> 


< 141 > 

91B 

< 136> 

919 

< 160> 

920 

<019> 

921 

< 127> 


< 135> 

922 

<125> 

924 

< 173> 

925 

< 175> 

930 

< 120 > 



935 

<216> 



940 

<042> 

945 

<054 > 


<096> 

950 

<109> 

955 

<241 > 


<0S9> 

960 

< 174> 


<024> 

965 

< 117> 



970 

< 1B3> 


< 139> 

975 

<086> 



976 

<148> 

980 

< 164> 

982 

< 177> 

983 

<251 > 

9B5 

<0B6> 



9B6 

<079> 

9B7 

<006> 

990 

< 174> 



995 

<091 > 

1000 

<134> 

1005 


3 PRINT"27 42 4 128 2"SPRINT 


GEBEN." 

..INPUT"HIEVIELE MERTE WILLST SU 

EINGEBEN "Wl*s W1=VAL <W1*) 


O 805 
F= 


1 TO Wl 


1(F)=VAL(W1*(F>> 
IF Wl(F)<0 OR Wl 
P)" SS GOTO 820 


F) j sNEXT 


KT (J/N)?" 


1(Wl-F+1):NEXTsREM GRAFC0DE2 -1+F 


flDDUS DES" 


sPRINT"27 42 3 128 7"SPRINT 


1(Wl-F+1)sNEXTsREM GRAFCODE -1+F 


UB IN N/216" 

PRINT"FUER DEN HDRMAL-flDDUS EINBESTELI 
T. " 

/*<>"2"THEN 916 

JT"£DER DEN £fl-B0 SIND ES 3 HERTEs" 
s PRINT"27 51 24(3SPACE}(24/216)"SPRINT 
5: GOSUB 800 s GOTO 924 
"T"£UER DEN EX-B0 SIND ES 5 HERTEs" 
IT"27 64 27 51 24{3SPACE}(RESET + 2 
4/216)"SPRINT 


NE DEN" 


5 THEN PRINT"{2UP}":GOTO 921 
> Rs POKE R,RC 

) BsFOR F=W1 TO 1 STEP-lsPOKE B+F,W 
1(Wl-F+1) 5 NEXTsREM VORCODE -1+F 


/216." 

PRINT"EDER DEN £Ä-B0 SIND ES 3 HERTEs 
:PRINT"27 51 1{3SPACE)(1/216 )"5 PRINT 
5 s GOSUB 800 

) Bs FOR F=W1 TO 1 STEP-lsPOKE B+F,W 
1(Wl-F+1)sNEXTsREM CODE -1+F 


B FÜER" 

PRINT"DEN £XTENDET—flDDUS, HIERBEI BITT 
E NUR" 

>RINT"DEN -N’-HERT DES ZEILENVORSCHUBS 
(N/216)"| 

*RINT"EINGEBEN. £UER DEN £fl-80 IST DIE 
S 24"sPRINT"(24/216)"sWl*“"" 


P)";sGOTO 975 


<050> 

<242> 

<15B> 

< 167> 

<132> 

< 195> 

<021 > 

< 14B> 
<07B> 

<063> 

<130> 

<056> 

<007> 

< 151 > 

< 1B9> 

< 10B> 

<215> 

<224> 

<118> 

<055> 

<215> 

<069> 

<251 > 

< 022 > 

<092> 

< 151 > 
<075> 

< 1B3> 

<093> 

<08B> 

<198> 

<092> 

<239> 

<103> 

<206> 

<244> 

< 137> 

< 193> 
<046> 

< 020 > 

<074> 

<150> 

<240> 

<045> 

<169> 

< 012 > 

< 113> 
< 222 > 
< 000 > 
<023> 


UB 3200sFOR F=1 TO 8s READ BsNEXTsRETUR 
N 


R KANN NICHT" 


< 10B> 

< 171 > 
<225> 

<0B2> 

<019> 

<004 > 
<001 > 
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GEOS-LISTINGS 


C64, CI28 


1010 

IF A=53 THEN 1100 

< 116> 


ZE 

< 114 > 

1015 

READ A,B,C,D,EsBOSUB 560 

<0B5> 

3240 

IF ZE<3 OR ZE>255 THEN 3230 

< 180> 

1020 

READ A,B,C,D:PQKE A,B:POKE C,D 

< 109> 

3245 

READ A:POKE A,ZA:READ A,B:POKE A,B 

<009> 

1025 

IF LF*="N“THEN READ A:FOR F=0 T0 4:P0 


3250 

READ A:POKE A,ZE:RETURN 

<045> 


KE A+F,234:NEXT:GOTO 1040 

< 156> 

3999 

REM ANPASSUNG AN NLQ + ZEILENABSTAND 


1030 

READ A 

<054> 


IM NORMALMODUS 

<058> 

1040 

IF AA=49 THEN READ A,B:P0KE A,B»GOT0 


4000 

IF V*="1"GOTO 4100 

<237> 


5100 

<240> 

4005 

PRINT"{CLR>SITTE DEN £ODE FUER WJJl-.SC 


1045 

READ A, B: GOTO 5100 

< 121 > 


HRIFT BZW." 

<044> 

1050 

READ A,B,C,D,E:G0SUB 560sFQR F=1 TO 4 


4010 

PRINT"SOLD UND ££TTDRUCK EINBEBEN. SE 



sREAD B:NEXT:GOTO 1025 

< 174 > 


IM" 

<252> 

1100 

GQS1JB 700:GOSUB 4000:GOBUB 905 

<104> 

4012 

PRINT"£PSON ££ -80 SIND ES 4 WERTE:" 

<221 > 

1103 

IF AA=49 THEN READ A,B,C,D:POKE A,B:P 


4015 

PRINT"27 69 27 71 (AOLD s, ££TT) " 

<077> 


OKE C, D:GOTO 1025 

<103> 

4020 

MA=4:GOSUB 800 

<110> 

1110 

FOR F=1 TO 4:READ B:NEXT:GOTO 1025 

<030> 

4030 

READ B:FOR F=W1 TO 1 8TEP-1:P0KE B+F, 


1200 

FOR F=1 TO 74:READ B:NEXT 

<20B> 


W1(W1—F+1):NEXT:REM BOLD + FETT 0. NL 


1205 

IF A=53 THEN 1300 

<061 > 


Q 

<215> 

1210 

FOR F“1 TO 14:READ A:NEXT:FOR F=1 TO 


4035 

READ B:POKE B,W1:REM ANZ. B+F 0. NLQ 

<132> 


3:READ A,B:POKE A,B:NEXT:GOSUB 565 

<036> 

4040 

PRINT"{CLRJüCTZT FEHLT NOCH DER ZEILE 


1215 

IF LF*“"N“THEN READ A:FOR F=0 TO 4:PO 



NVORSCHUB IM" 

<24B> 


KE A+F,234:NEXT:GOTO 1225 

< 162> 

4045 

PRINT".BOLD/fjETT- BZW. WA£-flODUS. SEIM 


1220 

READ A 

<244> 


0.-80" 

< 161 > 

1225 

PRINT"(DOWN,RVSON>a<RVOFF>££ ü ODER{ 


4050 

PRINT"SIND ES 4 WERTE:" 

< 198 > 


SPACE,RVSON>£{RVOFF>OMMODORE BETRIEBS 


4055 

PRINT"27 64 27 50{2BPACEJ(RESET + 1/6 



ART?":POKE 198,0 

<213> 


) " 

<012> 

1230 

GET A*: IF A*=" "THEN 1230 

< 136> 

4060 

MA=4:GOSUB 800 

<150> 

1235 

IF A*="C"THEN READ A:BOTO 5100 

< 102> 

4065 

READ B:FOR F=W1 TO 1 STEP-1:P0KE B+F, 


1240 

IF A*<>"A"THEN 1230 

< 142> 


W1(Wl-F+i):NEXT:REM ZEILENABSTAND 

<216> 

1245 

READ A:POKE A,234:POKE A+1,234:GOTO 5 


4070 

READ B:POKE B,W1:R£M ANZ. ZEILENAB 

<015> 


100 

<106> 

4075 

RETURN 

<067> 

1300 

GOSUB 1400:GOSUB 4000:READ A,B:FOR F= 


4100 

PRINT" {CLRJJJITTE DEN £ODE FUER Hkä-SC 



1 TO 2:READ A,B:POKE A,B:NEXT 

<024> 


HRIFT EIN-" 

<066> 

1305 

PRINT"<CLR>":GOSUB 3000:GOSUB 3100:GO 


4105 

PR INT "GEBEN. SEIM STAR WS.-10 SIND ES 



SUB 3200:FOR F=1 TO 4:READ B:NEXT 

<059> 


3 WERTE:" 

< 175> 

1310 

READ A,B,C,D:POKE A,B:POKE C,D:GOTO 1 


41 10 

PRI NT"27 120 49{3SPACE>(HLB)" 

< 127> 


215 

< 103> 

4120 

MA=3:GOSUB 800 

< 180> 

1400 

PRINT"{CLRJHAT DER 3RUCKER EINEN 1920 


4130 

READ B:FOR F=W1 TO 1 STEP-1:POKE B+F, 



.PUNKTE aODUS?(J/N> ": POKE 198,0 

<013> 


W1(Wl—F+l):NEXT:REM BOLD + FETT 0. NL 


1405 

GET A*:IF A*=""THEN 1405 

<062> 


Q 

<061 > 

1410 

IF A*="N"THEN 990 

<044> 

4135 

READ B:POKE B,W1:REM ANZ. B+F 0. NLQ 

<234> 

1415 

IF A*<>"J"THEN 1405 

<073> 

4140 

PRINT"{CLRJZETZT FEHLT NOCH DER SODE 


1420 

PRINT"{CLR>£S WIRD DIE VIERFACHE £UNK 



FUER DIE" 

<024> 


TDICHTEBENOE—" 

<02B> 

4R3 PRINT"SRUCKERINITIALISIERUNG (&ESET). 


1425 

PRINT"TIGT. BIESE IST AUF 960 SRUCKPU 



" 

<236> 


NKTE EIN—"; 

<178> 

4146 

PRINT"ALTERNATIV KANN AUCH EIN ANDERE 


1430 

PRINT"ZUSTELLEN!" 

<044> 


R ZEILEN—VORSCHUB EINGESTELLT WERDEN. 


1435 

PRINT"{DOWN>SEIM STAR H£~10 SIND ES 5 



" 

<060> 


WERTE:" 

<053> 

4150 

PRINT"£UER DEN RL.-10 SIND ES 2 WERTE: 


1440 

PRINT"27 42 3 192 3":GOTO 795 

< 160> 


" 

<111> 

1000 

RESTORE:PRINT"{CLR >WAEHLE:":PRINT"TTT 


4155 

PRINT"27 64 (RESET)" 

<054> 


TTTT" 

<041 > 

4157 

PRINT"£S MUESSEN GENAU 2 WERTE EINBEG 


1805 

PRINT"{3D0WN,RVSON X £1 >CRVOFF,SPACE >= 



EBEN" 

<100> 


STAR WA.-10/£PSON £Ä-B0 (& £OMP.)":PR 


4158 

PRINT"WERDEN.<DOWN>" 

<235> 


INT 

<07B> 

4160 

W1$="":INPUT"WERT 1: ";Wl«:W1=VAL(Wl* 


1010 

PRINT"(DOWN,RVSON > < £5 > <RVOFF,SPACE >= 



) 

< 103> 


ANDERE SRUCKER":POKE 19B,0 

<002> 

4165 

IF W1<0 OR W1>255 THEN PRINT"<2UP> ": G 


1B15 

BET A*:IF A*-""THEN 1815 

<093> 


OTO 4160 

< 163> 

1020 

IF A*="{Fl>"OR A*="{F5>"THEN 525 

<20B> 

4170 

READ B:POKE B,W1:REM 1. WERT 

<091 > 

1825 

BOTO 1815 

<212> 

4180 

W1 *•= " ": INPUT " WERT 2: "; Wl*: W1=VAL (Wl* 


3000 

READ A:SA=PEEK ( A)—240 

<049> 


) 

<252> 

3005 

POKE 211,17:POKE 214,5:SYS 50732:PRIN 


4105 

IF W1<0 OR Wl>255 THEN PRINT"{2UP>" : G 



T SA 

<072> 


OTO 4180 

<1B5> 

3010 

INPUT"CUPISEKUNDAERADREBSE" ; SA 

<1B3> 

4190 

READ B:POKE B,W1:REM 2. WERT 

<127> 

3015 

IF SA<0 OR SA>255 THEN SA=5:G0T0 3005 

<236> 

4195 

PRINT"(DOWN>WERTE KORREKT (J/N)":POKE 


3020 

POKE A,240+SA 

<204> 


198,0 

< 195> 

3025 

READ A:POKE A,224+SA 

<034 > 

4200 

GET A*:IF A*== " "THEN 4200 

<025> 

3030 

READ A:POKE A,96+SA:RETURN 

<246> 

4205 

IF A*="N"GOTO 4140 

<227> 

3100 

LF*="N":PDKE 2U,23:P0KE 214,7:BYS 50 


4210 

IF A*< >"J"THEN 4200 

<001> 


732:PRINT LF* 

< 142> 

4215 

RETURN 

<209> 

3105 

INPUT " {UP >£I NEFEED ERFORDERE ICH"; LF* 

<207> 

4999 

REM LADEROUTINE 

< 131 > 

3110 

IF LF*<>“J" AND LF*<>"N"THEN 3100 

<006> 

5000 

OPEN 15,8,15,"I0":OPEN 8,B,B,0U*+",U, 


3115 

READ A:IF LF*°"N"THEN POKE A,96:REM R 



R":PRINT 

<059> 


TS 

<026> 

5005 

INPUT»15,EN,EN*,ET,ES: IF ENO0 THEN P 


3120 

RETURN 

<130> 


RINT EN;EN*,ET;ES:CLOSE 8:CL0SE 15:GO 


3200 

FOR F=1 TO 3: READ A,B:POKE A,B:NEXT : R 



TO 6000 

< 131 > 


ETURN 

<162> 

5010 

LA=30976:REM LADEADRESSE 

<254> 

3205 

PRINT"{DOWN5ZEILENVORSCHUB (N/216 INC 


5015 

GET#0,A*:IF A*=""THEN A*=CHR*(0> 

<106> 


H FUER DEN" 

<243> 

5020 

POKE LA,ASC(A*> : LA=LA+1:IF BT=0 THEN 


3210 

ZA=24:POKE 211,24:POKE 214,10:SYS 587 



5015 

<22B> 


32:PRINT ZA 

<235> 

5025 

INPUTK15,EN,EN*,ET,ES:PRINT"{DOWN>" ; E 


3215 

INPUT"IUPJWORMAL—flODUS (640 AKT.)";ZA 

<136> 


N;EN*;ET;ES 

<167> 

3220 

IF ZA<3 OR ZA>255 THEN 3210 

<092> 

5030 

CLOSE 8:CLOSE 15:RETURN 

<003> 

3225 

PRINT"{DOWN>ZEILENVORSCHUB (N/216 INC 


5099 

REM SAVE ROUTINE 

<097> 


H FUER DEN" 

<007> 

5100 

PRINT"{CLR,2D0WN>UNTER WELCHEM WAMEN 


3230 

ZE=24:P0KE 211,26:POKE 214,13:SYS 507 



SOLL DER NEUE" 

< 114> 


32:PRINT ZE 

<103> 




3235 

INPUT"{UP>£XTENDET-flDDUS (576 £KT. ) "; 


Llsting 1. (Fortsetzung) 
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GEOS-LISTINGS 



5105 

PRINT"SRUCKERTREIBER ABGESPEICHERT WE 


53B0 CLOSE 8:CLOSE 9:CLOSE 15 

<105> 


RDEN?" 

<045> 

53B5 PRINT"C4DOWN>äER NEUE SRUCKERTREIBER 


5110 

INPUT IN*:GOSUB 10000:NA*=OU* 

<0S7> 

IST FERTIG !" 

<136> 

5115 

PRINT"(2D0WN>... WRITINß ";IN* 

<241 > 

5390 PRINT"(DQWNJXIEL SPASS BEIM AUSDRUCKE 


5120 

PRINT" <DQWN>-DO NOT DISTU 


N !!":END 

<231 > 


RB-” 

< 194> 

5900 PRINT"CDOWN>aCSHIFT-SPACE>£CSHIFT-SPA 


5125 

OPEN 15,8,15,"I0"sOPEN B,B,B,NA*+",U, 


CE >S<SHIFT-SPACE >J(,C4SPACE >£CSHIFT-SPA 



W" 

<206> 

CEJ&CSHIFT—SPACEI&CSHIFT—SPACE>fl,CSHIF 


5130 

INPUT #15,EN,EN*,ET,ES: IF ENO0 THEN C 


T—SPACE>& !" 

<049> 


LOSE 8:CLOBE 15:GOTO 5900 

<036> 

5905 PRINT"CDOWN >";EN;EN*,ET,ES:END 

<22B> 

5135 

READ EA: REM ENDADR. 

<070> 

6000 PRINT"CDOWNIAOCH MAL VERSUCHEN (J/N) 


5136 

HI=INT(A/256):L0=A-256*HI 

<123> 

?":POKE 198,0 

< 184 > 

5140 

FOR F=30976 TO EA:WE=PEEK<F>:PRINT#B, 


6005 GET A*:IF A*=""THEN 6005 

<249> 


CHR*(WE>J 

<094> 

6010 IF A*="J"THEN 5000 

<244> 

5145 

NEXT:CLOSE 8:INPUT#15,EN,EN*,ET,ES:IF 


6015 END 

<175> 


ENO0 THEN CLOSE 15: GOTO 5900 

< 147 > 

6999 REM NACHLADEN 

<06S> 

5150 

PRINT" CDOWNJIäUCHEN DES ALTEN iMFOBLOC 


7000 LOAD OU*,B,1 

<228> 


KS" 

<110> 

9997 END 

<093> 

5155 

OPEN 8,8,8,"#2":0PEN 9,8,9,"#1":FL-0 

< 176> 

999B REM ROUTINE VERWANDELT TEXT IN GEOS F 


5160 

INPUT#15,EN,EN*,ET,ES:IF EN< >0 THEN C 


ORMAT UM 

< 133> 


LOSE B:CLOSE 9:CLOSE 15:GOTO 5900 

<079> 

9999 REM EINGABE IN IN* AUSGABE IN OU* 

<236> 

5165 

EE*="":FOR F=0 TO 15:EE*=EE*+CHR*<160 


10000 IL=LEN(IN*): IF IL=0 THEN RETURN 

<071> 


>:NEXT 

<017> 

10005 OU*="”:FOR F=1 TO IL 

< 133> 

5170 

SU*"LEFT*(SU*+EE*,16>:G09UB 5175:B0T0 


10010 AS=ASC(MID*(IN*,F,1>) 

<053> 


5230 

< 176> 

10015 IF AS<65 THEN 10030 

<250> 

5175 

TR=1B:SE=1 

<238> 

10020 IF ASC91 THEN AS°AS+32:GOTO 10030 

<073> 

51B0 

PRINT#15,"Ul 8 0"s TR,BE 

< 143> 

10025 IF AS>192 THEN IF ASC219 THEN AS=AS- 


5185 

GET#B,NT*:NT*=NT*+CHR*(0) 

<150> 

12B 

<034 > 

5190 

GETttB , NS*: NS*=NS*+CHR* < 0) 

< 145> 

10030 DU*=OU*+CHR*(AS >:NEXT:RETURN 

< 102> 

5195 

FOR F=0 TO 7:PRINT#15,"M—R"CHR*(F*32+ 


18999 REM DATEN FUER EIGENE ANPASSUNG 



5)CHR*(5)CHR*(27):DE*(F)="" 

<024> 

BEOS 1.2 (9 STK.) 

<126> 

5200 

FOR G=1 TO 27: GET#15,A*:IF A*=" "THEN 


19000 DATA 32236 

<195> 


A*=CHR*(0) 

<105> 

19005 DATA 31530 

<021 > 

5205 

DE* <F)=DE* <F)+A*:NEXT:NEXT:F=0 

< 1B4> 

19010 DATA 31319 

<222> 

5210 

IF SU*=LEFT* <DE*(F),16)THEN RETURN 

<041 > 

19015 DATA 31316 

<09B> 

5215 

F=F+1:IF F<8 THEN 5210 

< 113> 

19020 DATA 31303 

< 165> 

5220 

TR=ASC(NT*>:BE=ASC(NS*):IF TR=0 THEN 


19025 DATA 31300 

<041 > 


CLOSE B:CLOSE 9:CLOSE 15:GOTO 5900 

<001 > 

19030 DATA 31603 

<015> 

5225 

GOTO 5180 

< 134> 

19035 DATA 31616 

<214> 

5230 

IT=ASC(MID* <DE*(F),17,1) ) 

<238> 

19040 DATA 32236 

<235> 

5235 

IS=ASC(MID*(DE*(F),18,1)) 

<237 > 

19999 REM DATEN FUER FX-80 UND NL-10 


5240 

PRINT#15,"U1 9 0";IT,IS G <255>IU 

ID»*" GEDS 1 - 2 <25 STK.) 

<054> 

5245 

SU*=LEFT*< NA*+EE* , 16 > :GOSUB 5175 

<246 > 

200W0 DATA 31020,31034,3104B 

< 167> 

5250 

TN=1:SN=0 

< 104> 

20005 DATA 31348 

<010> 

5255 

PRINT#15," B—A 0";TN;SN 

<247> 

20010 DATA 30976,76,30977,198,30978,122 

<073> 

5260 

INPUT#15,EN,EN*,ET,ES:PRINT"CDOWNI";E 


20015 DATA 31304,31305,51 

< 127> 


N;EN*;ET;ES 

< 14B> 

20020 DATA 32236 

< 199> 

5265 

IF EN=0 THEN 5285 

<076> 

20025 DATA 31320,7,31322,3 

<044> 

5270 

TN=ET:SN=ES:IF TN=0 THEN CLOSE 8:CLOS 


20030 DATA 31333,147,31334,122 

< 192> 


E 9:CLOSE 15:GOTO 5900 

<055> 

20035 DATA 31466,67 

<059> 

5275 

GOTO 5255 

<16B> 

20040 DATA 32241 

< 153> 

5280 

REM SCHREIBEN DES NEUEN INFOBLOCKS 

< 168> 

20999 REM DATEN FUER EIBENE ANPASSUNG 


52B5 

PRINT"CDOWN5HELCHES ÜATUM HABEN WIR H 


GEOS 1.3 (14 STK.) 

<054 > 


EUTE ?CDOWNI" 

<012> 

21000 DATA 32487 

<165> 

5290 

INPUT"AAHR «SPACE >:";JA* 

<092> 

21005 DATA 31737 

<1B4> 

5295 

INPUT"ÜQNAT : 11 ;MO* 

<229> 

21010 DATA 31509 

< 190> 

5300 

INPUT"XAG <3SPACE>: "; TA* 

< 155> 

21015 DATA 31506 

<066> 

5305 

INPUT"STUNDE:";H* 

<215> 

21017 DATA 31887 

<039 > 

5310 

INPUT"HI NUTE:";MI* 

<230> 

21020 DATA 31451 

<229> 

5315 

PRINT" U)OWN»ANLEGEN DES NEUEN JJMFOBLO 


21025 DATA 31435 

<107> 


CKS " 

< 143> 

21030 DATA 31823 

< 176> 

5320 

PRINT#15,"M-W"CHR*(F*32+21)CHR*(5)CHR 


21035 DATA 31836 

< 119> 


*(2)CHR*(TN)CHR*(SN) 

< 133> 

21040 DATA 32487 

<205> 

5325 

PRI NT#15,"M-W"CHR*(FW32+23)CHR*(5)CHR 


21045 DATA 31252 

<063> 


* ( 3 > CHR* (0 > CHR* (9 > CHR* (VAL (J A* > ) 

< 120 > 

21050 DATA 31242 

<004> 

5330 

PRINT#15,"M-W"CHR*(F*32+26)CHR*(5)CHR 


21055 DATA 31456 

< 139> 


*(2 > CHR*(VAL(MO*))CHR*(VAL(TA*>) 

<036> 

21060 DATA 31448 

<081 > 

5335 

PRINT #15,"M-W"CHR*(F*32+2B)CHR*(5)CHR 


21999 REM DATEN FUER FX-80 UND NL-10 



*(2)CHR*(VAL(H*))CHR*(VAL(MI*)) 

<002> 

BEOS 1.3 (26 STK.) 

< 152> 

5340 

IF V*="2"THEN PRINT#15,"M-W"CHR*(F»32 


22000 DATA 31031,31045,31059 

<080 > 


+30)CHR*(5)CHR*(2)CHR*(6)CHR*(0) 

<051 > 

22010 DATA 31538 

<236> 

5341 

IF V*="3"THEN PRINT#15,"M-W"CHR*(F*32 


22020 DATA 30976,76,30977,132,30978,123 

<227> 


+30)CHR*(5)CHR*(2)CHR*(7)CHR*(0) 

<052> 

22025 DATA 31452,31453,51 

< 225> 

5342 

IF V*="1"THEN PRINT#15,"M-W"CHR*(F«32 


22030 DATA 32487 

< 179> 


+30)CHR*(5)CHR*(2)CHR*(8)CHR* <0) 

< 181 > 

22035 DATA 31510,7,31512,3 

<022> 

5345 

PRINT#15,"U2 8 0";TR;SE 

< 188> 

22040 DATA 31523,81,31524,123 

<221 > 

5350 

IN*="3JRRAN & filPRINA":GOSUB 10000:OU 


22045 DATA 31278 

<17B> 


*=OU*+CHR*(0> 

<013> 

22047 DATA 31656,10 

<001> 

5355 

PRINT #15,"M-W"CHR*(97)CHR*(4)CHR*(17) 


22050 DATA 32493 

<005> 


;OU* 

<015> 

22999 REM DATEN FUER EIBENE ANPASSUNG 


5360 

PRINT#15,"M-W"CHR*(73)CHR*(4)CHR*(2)C 


GEOS 1.3 (13 STK.) NL 

< 159> 


HR*(LO)CHR*(HI):REM ENDADR. 

<042> 

23000 DATA 32498 

<068> 

5365 

PRINT#15,"M-W"CHR*(160)CHR*(4)CHR*(1) 


23005 DATA 31698 

< 121 > 


CHR*(0):REM INFOTEXT LOESCHEN 

< 172> 

23010 DATA 31527 

<027> 

5370 

PRINT#15,"U2 9 0";TN;SN 

<232> 

23015 DATA 31524 

< 159> 

5375 

INPUT#15,EN,EN*,ET,ES:PRINT"CDOWN >"EN 





;EN*;ET;ES 

<069 > 
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GEOS-LISTINGS 


23017 

DATA 

31916 

<227> 

24002 

DATA 

31288,103,31289,123 

<134> 

23020 

DATA 

31452 

<06B> 

24005 

DATA 

31035,31049,31063 

<140> 

23025 

DATA 

31439 

<075> 

24010 

DATA 

31560 

< 137> 

23030 

DATA 

31852 

<207> 

24020 

DATA 

30976,76,30977,166,30978,123 

<025> 

23035 

DATA 

31865 

< 149> 

24025 

DATA 

31453,31454,51 

<095> 

23040 

DATA 

32498 

<110> 

24030 

DATA 

32498 

<0B2> 

23045 

DATA 

31256 

<033> 

24035 

DATA 

31178,67 

<21S> 

23050 

DATA 

31246 

<230> 

24040 

DATA 

31346,45 

<082> 

23055 

DATA 

31444 

<042> 

24045 

DATA 

31595 

<239> 

23060 

DATA 

31449 

< 177> 

24050 

DATA 

31285 

< 084 > 

23999 

REM DATEN FUER NL-10 

BEDS 1.3 

< 162> 

24060 

DATA 

32504 

<076> 

24000 

DATA 

31524,5 

<022> 

Listing 1. (Schluß) 



Name 

epl.2 





7a93 7df2 

7bb3 

09 

4c 

f9 

79 

81 

01 

Od 

48 

75 

7ce3 

: eb 

7d 

20 

3d 

7d 

ad 

ea 

7d 

28 











7bbb 

12 

01 

20 

16 

7c 

12 

01 

34 

dd 

7ceb 

: 8d 

e8 

7d 

60 

a9 

04 

8d 

ea 

le 

7a93 

20 

a8 

ff 

a9 

00 

20 

a8 

ff 

eO 

7bc3 

le 

7c 

12 

01 

48 

26 

7c 

12 

90 

7c f 3 

: 7d 

ae 

e8 

7d 

ec 

ea 

7d 

fO 

af 

7a9b 

20 

a8 

ff 

60 

20 

a8 

ff 

20 

a3 

7bcb 

09 

20 

2e 

7c 

12 

09 

34 

36 

a6 

7c fb 

: Oc 

8e 

eb 

7d 

20 

3d 

7d 

ad 

36 

7aa3 

a8 

ff 

20 

a8 

ff 

60 

03 

20 

b7 

7bd3 

7c 

12 

11 

20 

3e 

7c 

12 

11 

d3 

7d03 

: ea 

7d 

8d 

e8 

7d 

60 

a9 

05 

b8 

7aab 

9f 

7a 

ce 

a9 

7a 

dO 

08 

20 

ff 

7bdb 

34 

46 

7c 

Ob 

lc 

28 

97 

7d 

Of 

7d0b 

: 8d 

ea 

7d 

ae 

e9 

7d 

ec 

ea 

56 

7ab3 

a8 

ff 

a9 

03 

8d 

a9 

7a 

60 

f6 

7be3 

Ob 

lc 

3c 

9e 

7d 

Ob 

lc 

50 

20 

7dl3 

: 7d 

fO 

Oc 

8e 

eb 

7d 

20 

3d 

83 

7abb 

20 

93 

7a 

ce 

a9 

7a 

dO 

f7 

bf 

7beb 

a3 

7d 

Ob 

5a 

28 

97 

7d 

Ob 

a6 

7dlb 

: 7d 

ad 

ea 

7d 

8d 

e9 

7d 

60 

b8 

7ac3 

4c 

b2 

7a 

a9 

b7 

85 

02 

a9 

3f 

7b f 3 

5a 

3c 

a9 

7d 

Ob 

9c 

28 

b2 

21 

7d23 

: a9 

06 

8d 

ea 

7d 

ae 

e9 

7d 

80 

7acb 

7b 

85 

03 

aO 

6e 

a9 

c8 

85 

40 

7b fb 

7d 

Ob 

9c 

3c 

b6 

7d 

Ob 

08 

40 

7d2b 

: ec 

ea 

7d 

fO 

Oc 

8e 

eb 

7d 

ea 

7ad3 

18 

a9 

00 

85 

19 

38 

20 

4e 

el 

7c03 

18 

b9 

7d 

Ob 

48 

18 

c3 

7d 

08 

7d33 

: 20 

3d 

7d 

ad 

ea 

7d 

8d 

e9 

ab 

7adb 

cl 

20 

56 

c2 

ae 

e8 

7d 

eO 

84 

7c0b 

Ob 

88 

18 

cb 

7d 

Ob 

34 

Oa 

ef 

7d3b 

: 7d 

60 

18 

Oa 

6d 

ea 

7d 

Oa 

68 

7ae3 

04 

fO 

55 

ac 

e7 

7d 

fO 

2a 

cd 

7cl3 

d6 

7d 

00 

69 

7c 

Oa 

32 

02 

ba 

7d43 

: aa 

aO 

06 

bd 

6d 

7d 

99 

05 

aa 

7aeb 

a9 

9f 

8d 

65 

7a 

a9 

7a 

8d 

6e 

7clb 

Oa 

87 

7c 

4e 

7c 

Oa 

32 

02 

b7 

7d4b 

: 00 

e8 

88 

dO 

f6 

20 

2a 

cl 

98 

7af3 

66 

7a 

cO 

02 

dO 

35 

20 

05 

48 

7c23 

Oa 

al 

7c 

4e 

7c 

Oa 

32 

02 

cc 

7d53 

: ad 

eb 

7d 

18 

Oa 

6d 

eb 

7d 

Of 

7afb 

7b 

ce 

48 

7a 

ce 

48 

7a 

4c 

fO 

7c2b 

Oa 

bb 

7c 

69 

7c 

Oa 

32 

02 

44 

7d5b 

: Oa 

aa 

aO 

06 

bd 

6d 

7d 

99 

14 

7b03 

2e 

7b 

a9 

84 

8d 

fl 

79 

a9 

8b 

7c33 

Oa 

d5 

7c 

4e 

7c 

Oa 

32 

02 

f6 

7d63 

: 05 

00 

e8 

88 

dO 

f6 

20 

2a 

4d 

7b0b 

7b 

8d 

f2 

79 

a9 

4c 

8d 

fO 

4e 

7c3b 

Oa 

ef 

7c 

69 

7c 

Oa 

32 

02 

6e 

7d6b 

: cl 

60 

00 

56 

00 

49 

48 

4l 

15 

7b 13 

79 

60 

a9 

a8 

8d 

65 

7a 

a9 

7d 

7c4 3 

Oa 

09 

7d 

4e 

7c 

Oa 

32 

02 

eO 

7d73 

: 00 

56 

00 

49 

5c 

55 

00 

56 

e5 

7blb 

ff 

8d 

66 

7a 

a9 

7d 

8d 

4c 

lf 

7c4b 

Oa 

23 

7d 

82 

ff 

ff 

82 

80 

al 

7d7b 

: 00 

49 

70 

69 

00 

96 

00 

89 

31 

7b23 

7a 

a9 

ed 

8d 

50 

7a 

a9 

05 

28 

7c53 

01 

82 

80 

01 

82 

80 

01 

82 

Ob 

7d83 

: 48 

4l 

00 

96 

00 

89 

5e 

55 

a7 

7b2b 

8d 

54 

7a 

ad 

e9 

7d 

e9 

05 

f2 

7c5b 

80 

01 

82 

80 

01 

82 

80 

01 

35 

7d8b 

: 00 

d6 

00 

c9 

48 

4l 

00 

d6 

6c 

7b33 

fO 

05 

a9 

60 

8d 

7a 

7a 

60 

74 

7c63 

82 

80 01.82. 80 01 82 f" 

dO 

7d93 

: 00 

c9 

5c 

55 

6e 

6f 

72 

6d 

4l 

7b3b 

ac 

e7 

7d 

fO 

la 

a9 

aa 

8d 

Od 

7c6b 

ff 

82 

ff 

ff 

82 

ff 

ff 

82 

d8 

7d9b 

: 61 

6c 

00 

68 

69 

67 

68 

00 

b 3 

7b43 

65 

7a 

a9 

7a 

8d 

66 

7a 

cO 

16 

7c73 

ff 

ff 

82 

ff 

ff 

82 

ff 

ff 

26 

7da3 

: 73 

75 

70 

65 

72 

00 

65 

78 

47 

7b4b 

01 

fO 

16 

ce 

ec 

7d 

ce 

ec 

f3 

7c7b 

82 

ff 

ff 

82 

ff 

ff 

82 

ff 

57 

7dab 

: 74 

65 

6e 

64 

65 

74 

00 

79 

e7 

7b53 

7d 

20 

05 

7b 

4c 

64 

7b 

a9 

ba 

7c 83 

ff 

82 

ff 

ff 

a9 

00 

8d 

ea 

6a 

7db3 

: 65 

73 

00 

6e 

6f 

00 

Oe 

18 

ff 

7b5b 

bb 

8d 

65 

7a 

a9 

7a 

8d 

66 

f7 

7c8b 

7d 

ae 

e7 

7d 

ec 

ea 

7d 

fO 

07 

7dbb 

: 51 

55 

4l 

4c 

49 

54 

59 

00 

2d 

7b63 

7a 

ad 

ec 

7d 

8d 

48 

7a 

a9 

f7 

7c93 

Oc 

8e 

eb 

7d 

20 

3 d 

7d 

ad 

ce 

7dc3 

: Oe 

18 

4d 

4f 

44 

55 

53 

00 

57 

7b6b 

47 

8d 

fa 

79 

4c 

2e 

7b 

00 

8b 

7c9b 

ea 

7d 

8d 

e7 

7d 

60 

a9 

01 

28 

7dcb 

: Oe 

18 

46 

4f 

52 

4d 

46 

45 

94 

7b73 

00 

01 

33 

lb 

a9 

7b 

85 

09 

c3 

7ca3 

8d 

ea 

7d 

ae 

e7 

7d 

ec 

ea 

ce 

7dd3 

: 45 

44 

00 

19 

18 

43 

48 

4f 

b9 

7b7b 

a9 

74 

85 

08 

a9 

03 

4c 

51 

47 

7cab 

7d 

fO 

Oc 

8e 

eb 

7d 

20 

3d 

lb 

7ddb 

: 4f 

53 

45 

20 

4f 

50 

54 

49 

85 

7b83 

79 

68 

8d 

72 

7b 

68 

8d 

73 

fa 

7cb3 

7d 

ad 

ea 

7d 

8d 

e7 

7d 

60 

40 

7de3 

: 4f 

4e 

53 

00 

00 

03 

05 

00 

5a 

7b8b 

7b 

20 

77 

7b 

20 

4b 

7a 

20 

ea 

7cbb 

a9 

02 

8d 

ea 

7d 

ae 

e7 

7d 

Oe 

7deb 

: 00 

18 

02 

80 

04 

2a 

lb 

ff 

86 

7b93 

aa 

7b 

20 

6f 

7a 

20 

4b 

7a 

bc 

7cc3 

ec 

ea 

7d 

fO 

Oc 

8e 

eb 

7d 

82 







für 

die 



7b9b 

20 

aa 

7b 

20 

6f 

7a 

20 

3b 

b5 

7ocb 

20 

3d 

7d 

ad 

ea 

7d 

8d 

e7 

3f 

Listing 2. »EP1.2 

< wird 

Anpas- 

7ba3 

7a 

20 

4b 

7a 

4c 

aa 

7b 

ad 

b3 

7cd3 

7d 

60 

a9 

03 

8d 

ea 

7d 

ae 

cf 

sung 

von Geos 1 

.2 benötigt. 

Bitte 

7bab 

72 

7b 

85 

08 

ad 

73 

7b 

85 

ad 

7c db 

e8 

7d 

ec 

ea 

7d 

fO 

Oc 

8e 

c7 

mit dem MSE 

(Seite 

159) eingeben. 


Name 

fxl.3 





7b51 7eed 

7b fl 

7e 

99 

16 

7b 

88 

10 

f7 

a9 

6d 

7cal : 

ea 

8d 

63 

7a 

8d 

64 

7a 

8d 

7b 











7b f 9 

05 

8d 

12 

7b 

ad 

e4 

7e 

c9 

48 

7ca9 : 

65 

7a 

8d 

66 

7a 

60 

43 

26 

7f 

7b51 

20 

a8 

ff 

a9 

00 

20 

a8 

ff 

9e 

7c01 

05 

fO 

05 

a9 

60 

8d 

38 

7b 

3f 

7cbl : 

42 

81 

01 

Od 

48 

12 

01 

20 

ef 

7b 59 

20 

a8 

ff 

60 

20 

a8 

ff 

20 

61 

7c09 

60 

a9 

09 

8d 

59 

7a 

a9 

7b 

39 

7cb9 : 

11 

7d 

12 

01 

34 

19 

7d 

12 

54 

7b6l 

a8 

ff 

20 

a8 

ff 

60 

03 

20 

75 

7cll 

8d 

5a 

7a 

20 

aO 

7c 

ac 

e2 

d4 

7ccl : 

01 

48 

21 

7d 

12 

09 

20 

29 

lb 

7b69 

5d 

7b 

ce 

67 

7b 

dO 

08 

20 

c3 

7c 19 

7e 

fO 

la 

a9 

68 

8d 

23 

7b 

42 

7cc9 : 

7d 

12 

09 

34 

31 

7d 

12 

11 

82 

7b71 

a8 

ff 

a9 

03 

8d 

67 

7b 

60 

a6 

7c21 

a9 

7b 

8d 

24 

7b 

cO 

01 

fO 

13 

7cdl : 

20 

39 

7d 

12 

11 

34 

41 

7d 

e2 

7b79 

20 

51 

7b 

ce 

67 

7b 

dO 

f7 

80 

7c29 

16 

ce 

e7 

7e 

ce 

e7 

7e 

20 

d6 

7cd9 : 

Ob 

lc 

28 

92 

7e 

Ob 

lc 

3c 

78 

7b81 

4c 

70 

7b 

a9 

b2 

85 

02 

a9 

cc 

7c31 

dO 

7b 

4c 

40 

7c 

a9 

79 

8d 

fO 

7cel : 

99 

7e 

Ob 

lc 

50 

9e 

7e 

Ob 

Oa 

7b89 

7c 

85 

03 

aO 

6e 

a9 

c8 

85 

ff 

7c39 

23 

7b 

a9 

7b 

8d 

24 

7b 

ad 

37 

7ce9 : 

5a 

28 

92 

7e 

Ob 

5a 

3c 

a4 

89 

7b91 

18 

a9 

00 

85 

19 

38 

20 

4e 

9f 

7c4l 

e7 

7e 

8d 

de 

7a 

a9 

48 

8d 

97 

7cfl : 

7e 

Ob 

9c 

28 

ad 

7e 

Ob 

9c 

55 

7b99 

cl 

20 

56 

c2 

ae 

e3 

7e 

eO 

le 

7c49 

62 

7a 

4c 

fd 

7b 

00 

00 

01 

75 

7c f 9 : 

3c 

bl 

7e 

Ob 

08 

18 

b4 

7e 

20 

7bal 

04 

fO 

66 

ac 

e2 

7e 

fO 

37 

al 

7c51 

33 

lb 

a9 

7c 

85 

09 

a9 

50 

f4 

7d01 : 

Ob 

48 

18 

be 

7e 

Ob 

88 

18 

al 

7ba9 

a9 

5d 

8d 

23 

7b 

a9 

7b 

8d 

d7 

7c59 

85 

08 

a9 

03 

4c 

5c 

79 

68 

Ob 

7d09 : 

c6 

7e 

Ob 

34 

Oa 

dl 

7e 

00 

81 

7bbl 

24 

7b 

a9 

09 

8d 

59 

7a 

a9 

ff 

7c61 

8d 

4e 

7c 

68 

8d 

4f 

7c 

20 

c7 

7dll : 

64 

7d 

Oa 

32 

02 

Oa 

82 

7d 

72 

7bb9 

7b 

8d 

5a 

7a 

20 

aO 

7c 

cO 

5b 

7c69 

53 

7c 

20 

09 

7b 

20 

93 

7c 

24 

7dl9 : 

49 

7d 

Oa 

32 

02 

Oa 

9c 

7d 

c8 

7bcl 

02 

dO 

39 

20 

dO 

7b 

ce 

de 

5c 

7c71 

20 

2d 

7b 

20 

09 

7b 

20 

93 

lf 

7d21 : 

49 

7d 

Oa 

32 

02 

Oa 

b6 

7d 

38 

7bc9 

7a 

ce 

de 

7a 

4c 

fd 

7b 

a9 

27 

7c79 

7c 

20 

2d 

7b 

20 

86 

7c 

20 

29 

7d29 : 

64 

7d 

Oa 

32 

02 

Oa 

dO 

7d 

c3 

7bdl 

60 

8d 

59 

7a 

a9 

7c 

8d 

5a 

07 

7c81 

09 

7b 

4c 

93 

7c 

a9 

7a 

85 

d7 

7d31 : 

49 

7d 

Oa 

32 

02 

Oa 

ea 

7d 

19 

7bd9 

7a 

a9 

4c 

8d 

58 

7a 

60 

a9 

lb 

7c89 

09 

a9 

de 

85 

08 

a9 

03 

4c 

cl 

7d39 : 

64 

7d 

Oa 

32 

02 

Oa 

04 

7e 

a2 

7bel 

a8 

8d 

23 

7b 

a9 

ff 

8d 

24 

al 

7c91 

5c 

79 

ad 

4e 

7c 

85 

08 

ad 

4e 

7d4l : 

49 

7d 

Oa 

32 

02 

Oa 

le 

7e 

f8 

7be9 

7b 

ea 

ea 

ea 

aO 

04 

b9 

e8 

d4 

7c99 

4f 

7c 

85 

09 

4c 

61 

7a 

a9 

b6 

7d49 : 

82 

ff 

ff 

82 

80 

01 

82 

80 

36 


26 
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GEOS-LISTINGS 


7d51 

01 

82 

80 

01 

82 

80 

01 

82 

09 

7d59 

80 

01 

82 

80 

01 

82 

80 

01 

33 

7d6l 

82 

80 

01 

82 

ff 

ff 

82 

ff 

be 

7d69 

ff 

82 

ff 

ff 

82 

ff 

ff 

82 

d6 

7d71 

ff 

ff 

82 

ff 

ff 

82 

ff 

ff 

24 

7d79 

82 

ff 

ff 

82 

ff 

ff 

82 

ff 

55 

7d81 

ff 

a9 

00 

8d 

e5 

7e 

ae 

e2 

d9 

7d89 

7e 

ec 

e5 

7e 

fO 

Oc 

8e 

e6 

3e 

7d91 

7o 

20 

38 

7e 

ad 

e5 

7e 

8d 

lc 

7d99 

e2 

7e 

60 

a9 

01 

8d 

e5 

7e 

19 

7dal 

ae 

c2 

7e 

ec 

e5 

7e 

fO 

Oc 

2c 

7da9 

8e 

e6 

7e 

20 

38 

7e 

ad 

e5 

48 

7dbl 

7e 

8d 

e2 

7e 

60 

a9 

02 

8d 

f5 

7db9 

e5 

7e 

ae 

e2 

7e 

ec 

e5 

7e 

c9 

7dcl 

fO 

Oo 

8e 

e6 

7e 

20 

38 

7e 

fe 

7dc9 

ad 

e5 

7e 

8d 

e2 

7e 

60 

a9 

bl 

7dd.l 

03 

8d 

e5 

7e 

ae 

e3 

7e 

ec 

c2 

7dd9 

e5 

7e 

fO 

Oc 

8e 

e6 

7e 

20 

15 

7del 

38 

7e 

ad 

e5 

7e 

8d 

e3 

7e 

61 

7de9 

60 

a9 

04 

8d 

e5 

7e 

ae 

e3 

a5 

7dfl 

7e 

ec 

e5 

7e 

fO 

Oc 

8e 

e6 

a6 

7df9 

7e 

20 

38 

7e 

ad 

e5 

7e 

8d 

84 

7e01 

e3 

7e 

60 

a9 

05 

8d 

e5 

7e 

c2 

7e09 

ae 

e4 

7e 

ec 

e5 

7e 

fO 

Oc 

95 

7ell 

8e 

e6 

7e 

20 

38 

7e 

ad 

e5 

bO 

7el9 

7e 

8d 

e4 

7e 

60 

a9 

06 

8d 

ed 

7e21 

e5 

7e 

ae 

e4 

7e 

ec 

e5 

7e 

71 

7e29 

fO 

Oc 

8e 

e6 

7e 

20 

38 

7e 

66 

7e31 

ad 

e5 

7e 

8d 

e4 

7e 

60 

18 

16 

7e39 

0a 

6d 

e5 

7e 

Oa 

aa 

aO 

06 

c7 

7e4l 

bd 

68 

7e 

99 

05 

00 

e8 

88 

Oa 

7e49 

dO 

f6 

20 

2a 

cl 

ad 

e6 

7e 

04 

7e51 

18 

Oa 

6d 

e6 

7e 

Oa 

aa 

aO 

cb 

7e59 

06 

bd 

68 

7e 

99 

05 

00 

e8 

bb 

7e6l 

88 

dO 

f6 

20 

2a 

cl 

60 

00 

45 

7e69 

56 

00 

49 

48 

41 

00 

56 

00 

88 

7e71 

49 

5c 

55 

00 

56 

00 

49 

70 

a9 


7e79 

69 

00 

96 

00 

89 

48 

4l 

00 

68 

7e81 

96 

00 

89 

5c 

55 

00 

d6 

00 

b6 

7e89 

c9 

48 

41 

00 

d6 

00 

c9 

5c 

14 

7e91 

55 

6e 

6f 

72 

6d 

61 

6c 

00 

db 

7e99 

68 

69 

67 

68 

00 

73 

75 

70 

ef 

7eal 

65 

72 

00 

65 

78 

74 

65 

6e 

8a 

7ea9 

64 

65 

74 

00 

79 

65 

73 

00 

6e 

7ebl 

6e 

6f 

00 

Oe 

18 

51 

55 

41 

7d 

7eb9 

4c 

49 

54 

59 

00 

Oe 

18 

4d 

56 

7ecl 

4f 

44 

55 

53 

00 

Oe 

18 

46 

4f 

7ec9 

4f 

52 

4d 

46 

45 

45 

44 

00 

ed 

7edl 

19 

18 

43 

48 

4f 

4f 

53 

45 

17 

7ed9 

20 

4f 

50 

54 

49 

4f 

4e 

53 

2e 

7eel 

00 

00 

03 

05 

00 

00 

18 

02 

a7 

7ee9 

80 

04 

2a 

lb 

ff 

00 

01 

ff 

5d 


Listing 3. »FX1.3«. Das File zur 
Anpassung des Druckertreibers 
Epson FX-80 von Geos 1.3. 


Name 

nll.3 





7b28 7ef8 

7b28 

07 

80 

03 

2a 

lb 

a2 

00 

8a 

51 

7b30 

48 

bd 

28 

79 

20 

73 

7b 

68 

ec 

7b38 

aa 

e8 

eO 

08 

dO 

fl 

60 

43 

34 

7b40 

26 

42 

ea 

a9 

Od 

20 

a8 

ff 

ec 

7b48 

a9 

Oa 

20 

a8 

ff 

60 

a9 

Oc 

d5 

7b50 

20 

a8 

ff 

60 

78 

aO 

07 

bl 

de 

7b58 

08 

a2 

07 

6a 

7e 

28 

79 

ca 

65 

7b60 

10 

f9 

88 

10 

f2 

58 

60 

c9 

98 

7b68 

Od 

dO 

05 

20 

a8 

ff 

a9 

Oa 

68 

7b70 

4c 

a8 

ff 

20 

a8 

ff 

a9 

00 

45 

7b78 

20 

a8 

ff 

20 

a8 

ff 

60 

20 

3c 

7b80 

a8 

ff 

20 

a8 

ff 

20 

a8 

ff 

e9 

7b88 

60 03 20 7f 7b er .9 

7b 

ad 


7b90 

dO 

08 

20 

aß 

ff 

a9 

03 

8d 

f6 

7b98 

89 

7b 

60 

20 

73 

7b 

ce 

89 

5c 

7b aO 

7b 

dO 

f7 

4c 

92 

7b 

a9 

bd 

32 

7b a8 

85 

02 

a9 

7c 

85 

03 

aO 

6e 

f8 

7bbO 

a9 

c8 

85 

18 

a9 

00 

85 

19 

05 

7bb8 

38 

20 

4e 

cl 

20 

56 

c2 

ae 

e9 

7bcO 

ee 

7e 

eO 

04 

fO 

4c 

aO 

04 

a2 

7bc8 

b9 

f3 

7e 

99 

28 

7b 

88 

10 

ee 

7bd0 

f7 

a9 

05 

8d 

24 

7b 

ac 

ed 

3c 

7bd8 

7e 

fO 

2a 

a9 

7f 

8d 

35 

7b 

be 

7be0 

a9 

7b 

8d 

36 

7b 

cO 

02 

dO 

d8 

7be8 

lc 

20 

f5 

7b 

ce 

dd 

7a 

ce 

64 

7b fO 

dd 

7a 

4c 

05 

7o 

a9 

7d 

8d 

e4 

7b f8 

5d 

7a 

a9 

7c 

8d 

5e 

7a 

a9 

95 

7c00 

4c 

8d 

5c 

7a 

60 

ad 

ef 

7e 

a9 

7c08 

c9 

05 

fO 

05 

a9 

60 

8d 

4e 

al 

7cl0 

7b 

60 

a9 

lb 

8d 

5d 

7a 

a9 

8a 

7cl8 

7b 

8d 

5e 

7a 

a9 

ea 

8d 

67 

38 

7c20 

7a 

8d 

68 

7a 

8d 

69 

7a 

8d 

f3 

7c28 

6a 

7a 

ac 

ed 

7e 

fO 

24 

a9 

Ob 

7c30 

8a 

8d 

35 

7b 

a9 

7b 

8d 

36 

57 

7c38 

7b 

cO 

01 

fO 

20 

ce 

f2 

7e 

b3 

7c40 

ce 

f2 

7e 

a9 

lb 

8d 

89 

7c 

99 

7c48 

a9 

7b 

8d 

8a 

7c 

20 

f5 

7b 

fb 

7c50 

4c 

5d 

7c 

a9 

9b 

8d 

35 

7b 

91 

7c58 

a9 

7b 

8d 

36 

7b 

ad 

f2 

7e 

d7 

7c60 

8d 

dd 

7a 

a9 

48 

8d 

66 

7a 

2f 

7c68 

4c 

05 

7c 

00 

00 

01 

33 

lb 

61 

7c70 

a9 

7c 

85 

09 

a9 

6d 

85 

08 

06 

7c78 

a9 

03 

4c 

60 

79 

68 

8d 

6b 

aa 

7c80 

7c 

68 

8d 

6c 

7c 

20 

70 

7c 

a5 

7c88 

20 

e2 

7a 

20 

bO 

7c 

20 

43 

b2 

7e90 

7b 

20 

lb 

7b 

20 

bO 

7c 

20 

Ob 

7c98 

43 

7b 

20 

a3 

7c 

20 

lb 

7b 

42 


Listing 4 »NL1.3«. File zur Anpassung 
des Star NL-10 (com) an Geos 1.3. 



•A; 
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GEOS-LISTINGS 


C64 


7ca0 

4c 

bO 

7c 

a9 

7a 

85 

09 

a9 

e4 

7d08 

08 

18 

bf 

7e 

Ob 

48 

18 

c9 

c3 

7d70 

ff 

ff 

82 

ff 

ff 

82 

ff 

ff 

23 

7ca8 

dd 

85 

08 

a9 

03 

4c 

60 

79 

86 

7dl0 

7e 

Ob 

88 

18 

dl 

7e 

Ob 

34 

df 

7d78 

82 

ff 

ff 

82 

ff 

ff 

82 

ff 

54 

7cb0 

ad 

6b 

7c 

85 

08 

ad 

6c 

7c 

7b 

7dl8 

0a 

de 

7e 

00 

6f 

7d 

0a 

32 

9f 

7d80 

ff 

82 

ff 

ff 

82 

ff 

ff 

82 

ed 

7cb8 

85 

09 

4c 

65 

7a 

81 

01 

Od 

53 

7d20 

02 

0a 

8d 

7d 

54 

7d 

0a 

32 

f8 

7d88 

ff 

ff 

82 

ff 

ff 

a9 

00 

8d 

90 

7cc0 

48 

12 

01 

20 

lc 

7d 

12 

01 

4e 

7d28 

02 

0a 

a7 

7d 

54 

7d 

0a 

32 

87 

7d90 

fO 

7o 

ae 

ed 

7e 

ec 

fO 

7e 

39 

7cc8 

34 

24 

7d 

12 

01 

48 

2c 

7d 

ae 

7d30 

02 

0a 

cl 

7d 

6f 

7d 

0a 

32 

c7 

7d98 

fO 

0c 

8e 

fl 

7e 

20 

43 

7e 

63 

7cd0 

12 

09 

20 

34 

7d 

12 

09 

34 

ea 

7d38 

02 

0a 

db 

7d 

54 

7d 

0a 

32 

a4 

7da0 

ad 

fO 

7e 

8d 

ed 

7e 

60 

a9 

be 

7cd8 

3c 

7d 

12 

11 

20 

44 

7d 

12 

b8 

7d40 

02 

0a 

f5 

7d 

6f 

7d 

0 a 

32 

e4 

7da8 

01 

8d 

fO 

7e 

ae 

ed 

7e 

ec 

aa 

7oe0 

11 

34 

4c 

7d 

Ob 

lc 

28 

9d 

3c 

7d48 

02 

0a 

Of 

7e 

54 

7d 

0a 

32 

al 

7db0 

fO 

7e 

fO 

Oc 

8e 

fl 

7e 

20 

50 

7ce8 

7e 

Ob 

lc 

3c 

a4 

7e 

Ob 

lc 

ld 

7d50 

02 

0a 

29 

7e 

82 

ff 

ff 

82 

9f 

7db8 

43 

7e 

ad 

fO 

7e 

8d 

ed 

7e 

cd 

7c fO 

50 

a9 

7e 

Ob 

5a 

28 

9d 

7e 

70 

7d58 

80 

01 

82 

80 

01 

82 

80 

01 

32 

7dc0 

60 

a9 

02 

8d 

fO 

7e 

ae 

ed 

cl 

7cf8 

Ob 

5a 

3c 

af 

7e 

Ob 

9c 

28 

38 

7d60 

82 

80 

01 

82 

80 

01 

82 

80 

ce 

7dc8 

7e 

ec 

fO 

7e 

fO 

Oc 

8e 

fl 

56 

7d00 

b8 

7e 

Ob 

9c 

3c 

bc 

7e 

Ob 

07 

7d68 

01 

82 

80 

01 

82 

80 

01 

82 

20 

7dd0 

7e 

20 

43 

7e 

ad 

fO 

7e 

8d 

76 



Bitmap-Converter 

Das Spitzenutility »Bitmap Converter« - ebenfalls vom Gewinner des 
Geos-Wettbewerbs, Carsten Clasohm - wird auch Sie begeistern: 
Blitzschnell überträgt es bestehende Grafiken von Hi-Eddi, 
Diashows und vielen weiteren Programmen in Foto-Scraps von Geos. 


W ollten Sie schon immer Ihre alten Grafikdateien von 
Hi-Eddi und anderen Programmen mit Geos weiter¬ 
verwenden? Kein Wunder, denn unter Geos gibt es 
unzählige Möglichkeiten, Grafiken zu verwenden: 

Doch um alle diese nutzen zu können, ist man in der Re¬ 
gel darauf angewiesen, jede benötigte Grafik selbst zu ent¬ 
werfen. Deshalb hat Berkeley Softworks den »Graphics 
Grabber« (Bestandteil des »Desk Pack«) entwickelt, der 
Grafiken aus den Programmen »Print-Shop«, »Printmaster« 
und »Newsroom« in Geos-Foto-Scraps konvertiert. Aber 
das wichtigste und gängigste Grafik-Format wurde nicht 
berücksichtigt: das Bitmap-Format. Dieses Grafikformat, 
das lediglich im Speichern eines Bitmap-Speicherbereichs 
besteht und deshalb meist Dateien mit 32 oder 33 Blöcken 
Länge erzeugt, findet bei Hi-Eddi, Doodle, Koala-Painter, 
Blazing Paddies, Paint Magic sowie den meisten Dia- 
Shows Verwendung. Deshalb gibt es dafür eine uner¬ 
schöpfliche Menge bereits bestehender Grafiken, die nicht 
nur dem bequemen Anwender, der nicht jede Grafik selbst 
zeichnen will, die Arbeit erleichtern. 

Mit Hilfe des Programms »Bitmap Converter« steht nun 
jedem Geos-Anwender diese Grafik-Welt offen: Er über¬ 
trägt Grafiken aus dem Bitmap-Format in Foto-Scraps. 

Doch bevor Sie dieses erstklassige Programm einsetzen 
können, ist noch einiges an Tipparbeit zu verrichten (es sei 
denn, Sie bestellen mit der in diesem Heft abgedruckten 
Zahlkarte die Programmservice-Diskette). 

Zuerst tippen Sie mit dem MSE die Listings 1 und 2 ab. 
Achten Sie darauf, daß Sie bei Listing 2 exakt den Filena¬ 
men »CHECK SCRAP« eingeben. Nun folgen Sie bitte den 
Hinweisen im Artikel »GeoCheck - So tippt man Geos-Li- 
stings ab« auf Seite 156. In Kurzform eine Zusammenfas¬ 
sung aller nötigen Vorgänge: 

1. Zusätzlich »GEOCHECK« abtippen. 

2. Programm »BITMAP CONVERTER« und »CHECK 
SCRAP« auf eine frisch formatierte Diskette speichern. Der 
»BITMAP CONVERTER« muß im Directory an erster Stelle 
stehen. 

3. Geocheck laden und mit RUN starten. Dann die Diskette 
mit den beiden Dateien einlegen und <SHIFT> drücken. 



Bild 1. Der Infobildschirm 

Es wird nun eine unter Geos lauffähige Version des Pro¬ 
gramms erzeugt und mit Info-Block versehen (Bild 1). 

Anschließend Geos starten, die Diskette mit dem Bitmap- 
Converter ins Geos-Format konvertieren und dann die 


Funktion »AUFRÄUMEN« (validate) wählen, die Datei »BIT¬ 
MAP CONVERTER« unter Geos auf eine Arbeitsdiskette 
kopieren oder gleich unter Geos starten. 

Der Bitmap-Converter ist in Maschinensprache ge¬ 
schrieben, etwa 5 KByte lang und läuft vollständig unter 
Geos ab. Dadurch verbindet er hohe Ablaufgeschwindig¬ 
keit (auch bei Floppy-Zugriffen) mit maximaler Bediener¬ 
freundlichkeit. 

Das Programm wird unter Geos als Applikation gehand- 
habt. Man startet es - wie üblich - durch Doppelklick. 

Der Bitmap-Converter läuft gleichermaßen unter Geos 
1.2 und Geos 1,3, da er sich konsequent der Geos- 
Sprungtabelle bedient. 

In der jetzigen Fassung ist ein Ablauf unter Geos 128 al¬ 
lerdings nicht möglich. Dateien, die mit dem Bitmap- 
Converter erstellt werden, können jedoch auch unter Geos 
128 verwendet werden. 

Nach dem Laden erscheint eine Startbox (Bild 2), die an 
Programme wie Geowrite oder Geopaint angelehnt ist. Sie 
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Llstlng 4. (Schluß) 


Grafiken klauen mit Geos 



Bild 2. Die Startbox mit der Sprachauswahl 

haben die Wahl zwischen englischer oder deutscher Be¬ 
nutzerführung (übrigens das einzige Geos-Programm, das 
diese Auswahl zuläßt!), können aber auch zum Desktop zu¬ 
rückkehren. 

Nach der Startbox meldet sich das Informationsfenster, 
welches bereits in der zuvor selektierten Sprache gehalten 
ist und nur mit »OK- bestätigt werden muß. Nun geht es zur 
Sache: 

Der Bitmap Converter fordert Sie dazu auf, eine Diskette 
mit C64-Grafiken im Bitmap-Format einzulegen. Sie kön¬ 
nen auch vorzeitig abbrechen (»cancel« oder »Abbruch«). 

Anschließend wählen Sie in einer üblichen Datei-Aus¬ 
wahlbox die gewünschte Bitmap aus, indem Sie sie an¬ 
klicken und dann auf »öffnen« beziehungsweise »open« ge¬ 
hen; »Abbruch« oder »cancel« ermöglicht einen Disketten¬ 
wechsel. Es erscheinen nur die ersten 15 Dateien einer Dis¬ 
kette; diese Geos-spezifische Einschränkung kennen Sie 
vielleicht auch von der Auswahl innerhalb Geowrite oder 
Geopaint. Falls Sie also eine Datei konvertieren wollen, die 
weiter hinten im Directory steht, ist sie zuerst unter Desktop 
an den Anfang des Inhaltsverzeichnisses zu legen oder auf 
eine andere Diskette mit weniger als 15 Fileeinträgen im 
Directory zu kopieren. 

Nach der Dateiauswahl erscheint auf jeden Fall die se¬ 
lektierte Grafik am Bildschirm. Als einzuladende Bitmap 
gelten alle Files im Format »Old C 64«, bei denen eine unge- 
packte Bitmap (normalerweise 8000 Byte) im File an erster 
Stelle (also vor Farbinformationen) steht, also zum Beispiel 
Hi-Eddi, Koala, Blazing Paddies, Doodle und viele andere. 


Farbinformationen wie beim Koala-Painter werden nicht be¬ 
achtet (Foto-Scraps von Geos sind schwarzweiß!). 

Da es jedoch durchaus möglich ist, daß man eine falsche 
Grafikdatei ausgewählt hat, erscheint kurze Zeit nach Dar¬ 
stellung der eingelesenen Grafik ein Fenster mit einer Si¬ 
cherheitsabfrage (Bild 3). Die zeitliche Verzögerung ist nö¬ 
tig, damit Sie die ganze Grafik betrachten können und nicht 
von Anfang an ein bestimmter Bildbereich vom Fenster 
überdeckt ist. 

Handelt es sich um die richtige Grafik, ist nun der ge¬ 
wünschte Ausschnitt auszuwählen. Dazu eine Bemerkung 
vorweg: Die Konvertierung ganzer Grafikseiten ist deshalb 
nicht möglich, weil Foto-Scraps bestimmten Beschränkun¬ 
gen hinsichtlich des Formats unterliegen. Aber gerade hier 
zeigt der Bitmap Converter die beste Seite seines durch¬ 
dachten Konzepts. 

Zunächst entscheiden Sie, ob Sie die Funktion »Auto¬ 
stop« wünschen oder nicht. Beim nächsten Schritt ersehen 
Sie sofort, warum dies nützlich ist: Nun markieren Sie den 
gewünschten Ausschnitt wie in Geopaint, also durch An- 



Bild 3. Die Sicherheitsabfrage nach dem Einlesen der Grafik 

klicken der beiden Ecken, wobei der jeweils eingegrenzte 
Bereich invertiert wird und durch ein bewegliches Recht¬ 
eck markiert ist (Bild 4). 

Bei der Auswahl achtet der Bitmap Converter nun auf die 
richtige Größe: Ist »Auto-Stop« aktiviert, können Sie den 
Mauszeiger nur so weit bewegen, wie es die Geos-Aus- 
schnittsgröße zuläßt. Ohne »Auto-Stop« verfärbt sich der 
Rahmen (rot), sobald Sie jedoch Ihre Bereichswahl korri¬ 
gieren, nimmt er die alte Farbe an. Sie sollten niemals 
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»übergroße« Ausschnitte markieren, da die Geos-Program- 
me diese ohnehin nicht verwenden können. Um eine größe¬ 
re Grafik zu übertragen, bleibt immer noch die Möglichkeit, 
eine Bitmap in mehrere Foto-Scraps aufzuspalten und an¬ 
schließend unter Geos wieder zusammenzufügen. 

Nun zum Speichern. Nach der Bereichswahl gerät der 
Bildschirm kurzzeitig in »Unordnung«, weil die Konvertie¬ 
rung erfolgt. Anschließend erscheint der gewünschte Aus¬ 
schnitt und nach kurzer Wartezeit eine erneute Sicherheits¬ 
abfrage, ob dies der richtige Bereich ist. Bei positiver Ant¬ 
wort wird um Einlegen der Zieldiskette gebeten. Dort spei¬ 
chert der Bitmap Converter die Grafik als »Foto Scrap«, so 
daß eine Archivierung in einem Fotoalbum ebenso möglich 
ist wie die direkte Übernahme in Geowrite, Geopaint, Geo- 
file, Geopublish oder Geoprogrammer. In Geopaint mar¬ 
kiert man dazu beispielsweise den gewünschten Bereich 
und klickt »Einkleben« (Paste) unter »Editieren« (Edit) an. 

Grundsätzliches zum Speichern 


Bevor der Bitmap Converter einen Grafikbereich speichert, 
erweitert er ihn in horizontaler Richtung um bis zu 7 Pixel 
auf volle Byte-Werte, damit das Speichern schneller ab¬ 
läuft. Die Farben für den Grafikbereich entnimmt er nach 
Möglichkeit dem »preferences«-File, falls eines auf der Ziel¬ 
diskette vorhanden ist, ansonsten verwendet er die aktuel¬ 
len, sichtbaren Farbeinstellungen. 

Bei Auswahl von »Auto-Stop« wird die richtige Größe ein¬ 
gehalten und gegebenenfalls noch ein wenig verkleinert. 
Spätestens an dieser Stelle hat der Bitmap Converter alle 
Bereichsüberschreitungen abgefangen. 

Haben Sie jedoch einen zu großen Ausschnitt (ohne 
»Auto-Stop«) markiert, kann es sein, daß alle weiteren Pro¬ 
gramme, die Ihr »Foto-Scrap« einiesen sollen, entweder ab- 



Bild 4. Der aktuell ausgewählte Bereich Ist Invertiert und 
wird von einem Rechteck begrenzt. 


stürzen (wie etwa Geowrite, wenn der Ausschnitt zu hoch 
ist) oder selbsttätig Verkleinerungen vornehmen (Geopaint 
könnte rechts und links Teile »abschneiden«).Für Geowrite 
ist jedoch beispielsweise die horizontale Ausdehnung nicht 
von Belang. Bei sehr großen Grafiken dürfen Sie also 
durchaus ein wenig mit der Ausschnittsgröße experimen¬ 
tieren. Doch im Normalfall, bei sinnvollerweise eingeschal¬ 
tetem »Auto-Stop«, kann garantiert nichts schiefgehenl 

Im übrigen fängt der Bitmap Converter alle Floppy-Fehler 
ab und teilt sie in speziellen Dialogboxen mit. 

Der Bitmap Converter ist nicht nur ein hervorragendes 
und nützliches Programm, sondern auch ein Lehrbeispiel 
für effektive Geos-Programmierung. Da der Quelltext mit 
über 100 Blocks für einen Abbruch aber leider zu lang ist, 
haben wir uns entschlossen, Ihnen den kompletten Quell¬ 
text auf der Programmservice-Diskette zur Verfügung zu 
stellen. 

Der besondere Wert des Quelltextes liegt darin, daß alle 
(!) Geos-Bereiche abgedeckt werden: Menüs, Dialogbo¬ 
xen, Icons, Windows, Grafik, Floppy-Zugriff, Maussteue¬ 
rung, Ttwir.usgabe und Fehlerbehandlung. 

(Carsten Clasohm/Florian Müller/sk) 
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SONDERHEFT 28 









Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 

Programme und Utilities zu Geos 

64'er Sonderheft 28 Datec: 

Geoterm: Ein Datenverwaltungsprogramm der Superlative (kein 

Erschließen Sie sich die Welt der Datenfernübertragung Geos-Programml). Freie Dateneingabe-und Druckmasken 
mit Geos. Geoterm ist ein Terminalprograrhm der Spitzen- (beispielsweise für Etiketten) sind definierbar. Umfangreiche 
klasse. Alle Funktionen sind wie von Geos gewohnt mit Such-und Indexfunktionen sowie frei definierbare Zeichen- 
Maus und Pull-down-Menüs steuerbar. So leicht war DFÜ sätze (natürlich mit deutschen Umlauten) sind nur einige der 
noch nie. Glanzpunkte dieses Programms. 

Sie wollen Ihre Grafiken, die Sie im Hi-Eddi-, Koalbpainter-, 

Doodle-Format etc. vorliegen haben, in Geowrite, Geo- 

Diskette für C 64/C128 
Bestell-Nr. 15828 

DA/l29,90 ^(sFr24,90*/ÖS299,-*) 

* Unverbindliche Preisempfehlung 



paint Geofile verwenden? Kein Problem, der Bitmap- 
Converter macht's möglich. Das Programm arbeitet 
vollständig unter Geos und speichert Ihre Grafiken im 
Format von Geos-Foto-Scraps. Diese können mit nahezu 
jedem Geos-Programm weiterverarbeitet werden. 

Ärger mit dem Drucker? Erstklassige Qualität erhalten Ihre 
Ausdrucke unter Geos mit den verschiedensten Drucker¬ 
treibern für den StarNL-10, Epson-Drucker und Kompatible 
und den Citizen 120D. Mit Superprint V2.0 läßt sich 
zudem nahezu jeder störrische Druckeran Geos anpassen. 

Geos-Icon-Editor und Geos-Pattern-Editor: 

Zwei Programme, die in keiner Geos-Programmsammlung ^ 

fehlen dürfen. Sie erlauben es, eigene Programme mit 

Icons (Piktogrammen) zu versehen. Mit dem Pattern-Editor Wenn Sie Fragen zu diesen Programmen oder zu 
kann jeder seine eigenen Füllmuster für Geopaint nach anderen Angeboten aus unserem Programm- 
Wunsch definiensn. . SeMce haberli mfen Sfe uns an . 

Eine Seite der Diskette wird im Geos-Format tnao l aa AAn 

ausgeliefert. Alle Geos-Progmmme sind ohne Telefon (089) 46 13-640 _ 

Zusatzaufwand unter Geos sofort lauffähig. 



Markt&Technik 

Zeilschriften • Bücher 

_ Softwore • Schulun g_ 

Markt&Technik Verlag AG, Buchverlag, Hans-Plnsel-Straße 2,8013 Haar bei Mönchen, Telefon (089) 4613-0 
Bestellungen im Ausland bittean: SCHWEIZ; Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300Zug, Telefon (042) 415656 • ÖSTERREICH; Markt&Technik Verlag 
Ges.m.b.H.,Große Neugasse28, A-1040 Wien,Telefon (0222)5879455; Rudolf fochner&Sohn, Heizwerkstraße 10, A-1232 Wien,Telefon (0222)677526. 



64i<i-onllno,tl« 

04 or-onlin»,n*t 











PROGRAMMSERVICE 






Sie suchen packende 
Spiele, hilfreiche Utilities 
und professionelle An¬ 
wendungen für Ihren 
Computer? Sie wünschen 
sich gute Software zu 
vernünftigen Preisen? 
Hier finden Sie beidesl 
Unser stetig wachsendes 
Sortiment enthält interes¬ 
sante Listing-Software 
für alle gängigen 
Computertypen. Jeden 
Monat erweitert sich 
unser aktuelles Angebot 
um eine weitere interes¬ 
sante Programmsamm¬ 
lung für jeweils einen 
Compulertyp. 

Wenn Sie Fragen zu den 
Programmen in unserem 
Angebot haben, rufen 
Sie uns an: 

Telefon (089) 4613-640 
oder (089) 4613-133. 


ßostollungon bitte nur gegen 
Vorauskasso an: Markt&Technilc 
Verlag AG, Unternehmens- 
boreicn Buchverlag, Hans-Pinsel- 
Slraßo 2, D-8013 Haar, 

Telefon (089) 4613-0. 

Schweiz: Markt&Technik 
Vortriebs AG, Kollerstrasse 3, 
CH-6300 Zug, Telefon (042) 
415656. 

Österreich: Markl&Technik 
Verlag Gos.m.b.H., Große Nou- 
gasse 28, A-1040 Wion, Telefon 
(02 22) 5 8794 55. 
Microcompul-iquo, E. Schiller, 
Fasangasso 24, A1030 Wion, 
Telefon (0222) 785661; 

Büchorzentrum Meidling, 
Schönbrunner Straße 261, 

A l 120 Wion, 

Telefon (0222) 833196. 

Bostollungon aus anderen 
Ländern bitte nur schriftlich an: 
Markt&Tochnik Vorlag AG, 

Abt. Buchvorlriob, Hans-Pinsol- 

Straßo 2, D-8013 Haar, und 
gegen Bezahlung einor Rech¬ 
nung im voraus. 


64'er Sonderheft 27: 

Ein unglaubliches Muiticoior-Mai- und 
Zeichenprogramm 

Amica-Paint: Dieses Programm bietet Funktionen, die man vorher nur 
dem Amiga zugetraut hatte: Amica-Paint dreht, kippt und spiegelt 
beliebige Bildausschnitte und berechnel selbständig Farbverläufe. 
Definition von Makros, eine eingebaute Diashow-Funktion und 
natürlich komfortable Maussteuerung sind nur einige wenige Featu¬ 
res dieses absolut sensationellen Programms. 

Schreibmaschine: Entlocken Sie Ihrem Drucker bltern in einer Quali¬ 
tät und Schönheit, die Sie ihm nicht zugetraul hätten. Viele Schrift¬ 
arten befinden sich aus Plalzgründen nur auf Diskette. 

Pic-Change: Darauf haben die Grafik-Fans schon lange gewartet: 
Ob HiRes oder Mulicolor - Pic-Change macht Schluß mit dem Wirr¬ 
warr verschiedener Grafikformate. Jedes übliche Grafikformat kann 
in jedes andere übersetzt werden. 

Grafik 2001: Eine leistungsfähige Eiweiterung zur Basic-Erweitorung 
»Grafik 2000« mit vielen neuen Befehlen. Grafik 2000 (aus dem 
Sonderheft 4) ist autraer Programmservice-Diskette ebenfalls ent¬ 
halten. 

Weiterhin finden Sie alle Programme auf Diskette, die im Inhalts¬ 
verzeichnis mit einem Diskettensymbol gekennzeichnet sind. 
Zwei Disketten fürG6' 1/r l0n 
Bestell-Nr. 15827 


I 34,90 * sFr 29,50'/öS 349,- * Beslell-Nr. 


64'er Sonderheft 24: 

Tools, Utilities, Tips&Tricks 

Hypra-Comp: Ein Basic-Compiler, der Ihre ßasic-Programme in 
schnellen Maschinencode wandelt. Die kompilierten Programme 
sind selbstverständlich alleine lauffähig. 

Alan V7.2: Mit dieser ßasic-Erweiterung beherrschen Sie die Gra¬ 
fikfähigkeitendes C 64. Einfache Befehle naben verblüffende Effekte, 
Faszinierende Grafikdemos auf der Programmservice-Diskette 
beweisen das. 

Master-Spell: Nie wieder Tipp- und Flüchtigkeitsfehler. Diese auto¬ 
matische Rechtschreibkorreklur überprüft Ihre Texte anhand einer auf 
Diskette milgelieferten Worlbibliolhek, die jederzeit erweiterbar ist. 
Viza-Speller: Ein Rechlschreibkorreklur-Programm speziell für 
Vizawrife. Der Clou: Das Programm kann Innerhalb von Vizawrile 
aufgerufen werden und überprüft Ihren aktuell im Speicher befind¬ 
lichen Text. 

Der 64'er-Packer: Verpassen Sie Ihren Programmen eine Diät! 
Haben Sie sich schon über lange Programme und Grafiken ge¬ 
ärgert, die unnötig Platz auf der Diskette oder im Speicher ver¬ 
geuden? Der64'er-PackermachtSchlußdamil. Durchausgefeilteste, 
Individuell anpaßbaro Packverfahron werden Programme und Gra¬ 
fiken erheblich gekürzt. 

Eine Diskette für C64/C128 
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64'er Sonderheft 23: ^ 

Grafik- und Anwendungsprogramme 
der Spitzenklasse 

Paint Magic: Dieses professionelle Multicolor Mal- und 
Zeichenprogramm entlockt Ihrem C 64 die farbenprächtigsten Bilder. 
Trotzdem ist es so einfach zu bedienen, daß Sie von der eisten 
Minute an Ihre Freude an Paint Magic haben werden. 
Movie-Show: Ein Programm, das hochauflösende Grafik zum leben 
erweckt. Dank trickreicher Programmierung werden bis zu 99 HiRes- 
Grafiken im Speicher gehalten, so daß fjie. beispieIsvyeise perfekte. 
Simulationen von Wellenbewegungen und änderen physikalischen 
Phänomenen erzeugen können. 

Börse Plus: Schnell reich werden ohne zu arbeiten - der C64 hilft 
Ihnen dabei, Boise PJtfs, programmiert von einem Börsenexperten, 
ist ein vielseitiges Aktienverwaltungsprogramm. Grafische Anzeige 
der Kuisverläüfe, Gewinnberechnungen, professionelle Charis und 
vieles mehr bietet Börse Plus. 

Als kostenlose Zugabe befinden sich die Kurse wichtiger AGs der 
letzten Monate ebenfalls auf der Programmservice-Disketle. Natür¬ 


lich finden ,Sie auch in die 
spielsweise Hardcopy-Prograrfimierung tür j. 
gramm zum Suchen und I ‘ 

Kurs ztir Saoll-Programmiert „ 
die Pfogiümmservice-Diskette auch alle 
Diskettensytiibol gekennzeichnet sind. 
Eine Diskette für C64/C128 


ziele Tips &Tricks, bei¬ 
den Drucker, ein I 
ites auf Diskette, einen 
reßr. Natürlich. enthält 
iromme, die mit einem 


64'er Sonderheft 21: 
Assembler-Programmierung einfach 
wie in Basic 

GIGA-ASS: Ein neu gestalteter Makro-Assembler der Spitzenklasse 
erlaubt es, Maschinensprache-Programme so komfortabel wie in 
Basic zu schreiben. Durch ein milgeliefertes Konverlierungspro- 
gramm können auch Hypra-Ass-Quelltexte mit Giga-Ass verarbeitet 
weiden. Eine große Hilfe beim Schreiben eigener Maschinenpro¬ 
gramme ist auch die Makro-Bibliothek auf Diskette, die oft ver¬ 
wendete Routinen bereitstellt. Auch für den Basic-Programmierer 
wird einiges geboten: 

DMA-BASIC. Mit diesem Programm können Sie die 512-Kbyte- 
RAM-Erweiterung von Commodore am C 64 verwenden und somit 
über 576 Kbyte Speicherplatz verfügen. 

PARADOXON-BASIC. Eine weitere Basic-Ervveiterung, stellt dem 
Basic Programmierer 50 Kbyte für seine Programme una eine Reihe 
neuer mächtiger Befehle zur Verfügyng. 

REKURSIV-BASIC. Diese Erweiterung ist von einer anderen Quali¬ 
tät: Sie erlaubt, wie der Name schon sagt, rekursive Programmie¬ 
rung durch, einen vergrößerten Stack und vor allem die Definition von 
Prozeduren wie in Pascal. 

OBSESS V3.1. Dieses Programm erlaubt es, auf einfache Weise mit 
normalen Matrixdruckem Mullticolor-Grafiken in strahlenden Farben 
auch zu Papier zu bringen. Ergänzt werden die Programme durch 
eine Reihe von Tips&Tricks. Für den ambitionierten Programmierer 
befinden sich des weiteren sämtliche Quell-Codes der Maschinen¬ 
programme auf Diskette. 
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Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die abge¬ 
druckte Postgiro- 
Zahlkarte, oder senden 
Sie uns einen 
Verrechnungs-Scheck mit 
Ihrer Bestellung. Sie 
erleichtern uns die 
Auftragsabwicklung, und 
dafür berechnen wir 
Ihnen keine Versand¬ 
kosten. 




64'er Sonderheft 25: 

Hilfsprogramme für Ihre Floppy 

TOP-FLOP: Endlich ein Monitor, der sich auf das angeschlossene 
bufwerk automatisch einstellt. Nun können Sie mit einem 
1571-bufwerk auch die Spuren 36 bis 70 auf der Rückseite unter¬ 
suchen, editieren und sogar nach Sprites absuchen. Auch das 
CP/M-Format der Floppy 1571 läßt sich bearbeiten. 
Mastor-Copy-Parallel: Unglaublich, aber wahr - ein kompletter 
Disk-Backup mit der Floppy 1541 in nur !8Sekunden. Dabei ist ledig¬ 
lich das weitverbreitete Parallel-Kabel nötig. Der Rest des »Wunders« 
geschieht rein soflwaremößig. 

X-DOS: Dieses komfortable Dlskelten-Utility bringt alles untbr einen 
Hut. Es stellt eine komfortable grafische Benutzeroberfläche für 
nahezu alle bufwerk-Funktionen dar und gibt Ihnen zudem genauen 
Aufschluß über die interne Struktur Ihrer Disketten. 

Ullraformal: Ein zweites Directory auf Ihren Disketten, das 95 wei¬ 
tere Blöcke bereilstellt, und auf das Sie nun zugreifen können. »Ultro- 
format« macht dies möglich. 

Disc-Scanner 40: Den »illegalen Spuren« 36 bis 40 auf den leib 
rücken - dies ist mit dem Disc-Scanner 40 kein Problem. Dort ver¬ 
stecken sich bei vielen Programmen raffiniert geschützte Daten, die 
sich sonst Ihrem Blick entziehen. 

Eine Diskette für C64/C128 
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64'er Sonderheft 22: 

Super-Software für Ihren C128 

Double-Ass: Der komfortable Assembler »Double-Ass« eröffnet 
Ihnen den Zugang zu beiden Prozessoren des C128. Nicht nur, daß 
Sie den 8502 und den Z80 programmieren können - es sind auch 
beide Codes in einem Programm mischbar! Color-Pack: Mit diesem 
Programm erhallen Sie eine umfangreiche Grafikerweilerung, mit 
der sich im 80-Zeichen-Modus auf einfache Weise komplizierteste 
Farbgrafiken erstellen lassen. Ein bekerbissen: Beschriflungen sind in 
jeder beliebigen Größe und bge möglich. 

Double Toucn: Der Weltrekord im Diskettenkopieren. Mit »zwei 
1571-bufwerken dauert die Kopie einer Diskette nur noch 8 Sekun¬ 
den. Das versetzt sogar die Besitzer eines Personalcomputers in 
Erstaunen. 

MSG: Hochauflösende Grafiken benötigen üblicherweise viel 
Speicherplatz. Anders beim »MSG«: bis zu 999 Farbgrafiken 
können gleichzeitig im Speicher des CI28 stehen. 

Video-Archiv: Jeder Besitzer eines Videorecorders hat irgendwann 
das Bedürfnis, Ordnurig in seinen Kassettenberg zu bringen. Auf 
komfortabelste Weise unterstützt der C128 Sie dabei. 

Vektors: Ein faszinierendes Action-Spiel. Es greift die Spielidee aus 
dem Computer-Film »Tron« auf und setzt diese so auf dem C128 um, 
daß auch Sie begeistert sein werden. 

1 Diskette für C128 
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Listing 2. Die Datei »CHECK SCRAP« 
enthält alle Daten, die GeoCheck zur 
Installation des Hauptprogramms 
benötigt 


Listing 1. (Schluß) 


Name : check scrap 5806 590c 


-r^Fir. nm inj»-..-- 

Mustergültig - eigene 
Zeidienmuster entwerfen 


Die Füllmuster von Geos - auch »Patterns« ge¬ 
nannt - erlauben sehr schöne Bildeffekte. Mit 
dem hiervorgestellten Programm können Sie nun 
eigene Patterns entwerfen. Es funktioniert glei¬ 
chermaßen mit den Geos-Versionen 1.2 und 1.3. 

E ine wichtige Rolle in der Welt der Geos-Graflk spielen 
die »Patterns«. Dies sind kleine Grafiken in der Größe 
von 8 x 8 Bildpunkten, mit denen Geos Bildbereiche 
»füllt«. Geopaint stellt 32 solche Füllmuster zur Verfügung 
(Bild 1), ohne die ein solches Bild wohl kaum möglich ist. 

Muster - immer und überall in Geos 


Im C64-Bereich haben Füllmuster erst durch Geos Popula¬ 
rität erlangt, während Amiga- oder ST-Besitzer von Anfang 
an diese Funktion zu schätzen wußten. Der große Wert von 
Füllmustern tritt nicht nur bei Zeichenprogrammen wie 
Geopaint auf, sondern zeigt auch in anderen Anwendun¬ 
gen Vorteile. So kann man in der Datei Verwaltung »Geofile« 
zwischen drei verschiedenen Hintergrundarten wählen, 
die allesamt durch Füllmuster realisiert werden. 

Falls es Ihnen noch nicht aufgefallen ist: Jede Geos-Soft- 
ware, beginnend mit dem Desktop, baüt ihre Arbeitsbild 


schirme mit Füllmustern auf. Auch »weiße« Flächen entste¬ 
hen durch Verwendung des »leeren« Füllmusters. 

Doch im Gegensatz zu Amiga- und ST-Programmen fehl¬ 
te Geos bislang eine sinnvolle Funktion: das Editieren die¬ 
ser Muster, um auch eigene Kreationen zu verwenden. Die 
Erstellung eigener Geopaint-Bilder wird dadurch noch ef¬ 
fektiver. Doch auch das äußere Erscheinungsbild jeder 
Geos-Applikation wird von geänderten Patterns beeinflußt. 


geos PoteMEditiefenJODUoneniSehfirtaften^^^^^^ poVterri' ^— 



Bild 1. Musterleiste von Geopaint mit vielen Eigenschöp¬ 
fungen, die Grafiken abwechslungsreicher gestalten 
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Gesagt, getan: Der »Geos Pattern-Editor«, welcher ver¬ 
hältnismäßig schnell abzutippen ist, besticht durch einfa¬ 
che Bedienung und effektive, lehrreiche Programmierung. 

Mit einem komfortablen Editorprogramm, dem eigentli¬ 
chen »Pattern Editor«, manipuliert man die bereits beste¬ 
henden Füllmuster nach Belieben. Anschließend stehen 
diese als »Schreibtischzubehör« (Desk Accessory) auf Dis¬ 
kette und sind dadurch sowohl unter Desktop als auch un¬ 
ter jeder anderen Geos-Applikation - insbesondere Geo- 
paint - verfügbar. Die Möglichkeit der blitzschnellen Rück¬ 
schaltung auf die Standard-Füllmuster ist eine Selbstver¬ 
ständlichkeit. 

Bild 1 zeigt, wie eigene Füllmuster in Geopaint Verwen¬ 
dung finden (beachten Sie die veränderte Musterleiste so¬ 
wie das Zeichenfeld), Bild 2 demonstriert die Möglichkeit, 
auch den Desktop-Bildschirm etwas umzugestalten. Ihrem 
persönlichen Geos sind damit Tür und Tor geöffnet. 

Abtippen, aber richtig 


Nun zur Eingabe dieses Listings. Dazu folgen Sie bitte ge¬ 
nau den Anweisungen (Besitzer der Programmservice- 
Diskette erhalten an späterer Stelle Instruktionen). 



leos j Datei j Anzeige j Diskette j speziell 


!□□□! 


!□□□! 


!□□□! 


Bild 2. Der alte Desktop im neuen Gewand 


1. Geben Sie die beiden Basic-Programme (Listing 1 und 
2) mit dem Checksummer ein. Manche Befehlszeilen 
müssen unter Abkürzung einiger oder aller Basic- 
Kommandos geschrieben werden. Die beiden Listings 
können Sie jetzt auf einer beliebigen Diskette spei¬ 
chern; heben Sie beide Programme auf, Sie werden 
diese öfters benötigen. 

2. Halten Sie eine Leerdiskette bereit oder eine solche, 
deren Inhalt Sie nicht mehr benötigen. Verwenden Sie 
nicht die Diskette, auf der sich die beiden Listings oder 
andere wichtige Daten befinden. 

3. Laden Sie das INSTALL-Programm (als Listing 2 bereits 
eingegeben) und starten Sie es. 

4. Bei der Aufforderung, eine zu löschende Diskette ein¬ 
zulegen, schieben Sie die in Schritt 1 angesprochene 
Diskette ins Laufwerk und drücken < RETURN >. 

5. Mit erneutem < RETURN > müssen Sie bestätigen, 
daß es sich um die richtige Diskette handelt. Bei einem 
Irrtum Ihrerseits ist hier also die letzte Gelegenheit, das 
Programm noch abzubrechen. 

6. Das INSTALL-Programm formatiert jetzt Ihre Diskette 
mit dem Namen »G.P.E. VI.2« und der ID »64«. An¬ 
schließend wird darauf eine Datei namens »A« erzeugt. 
Falls dies nicht ordnungsgemäß funktioniert und Sie ei¬ 
nen Floppy-Speeder verwenden, so schalten Sie die¬ 
sen bitte ab. 

7. Wenn die rote Laufwerkslampe (LED) erlischt, gibt das 


Programm weitere Erläuterungen. Diese werden in die¬ 
ser Beschreibung ausführlich erläutert, dienen Ihnen 
am Bildschirm aber als Gedächtnishilfe bei späteren 
Arbeitsgängen. 

8. Kopieren Sie das Programm »PATTN-EDITOR«, das Sie 
als Listing 1 eingegeben haben, auf die neue Arbeits¬ 
diskette. Auf dieser befinden sich nun die beiden Datei¬ 
en »A« und »PATTN-EDITOR«. 

9. Laden Sie Geos und öffnen Sie die Arbeitsdiskette. Die 
Frage nach der Konvertierung ins Geos-Format beant¬ 
worten Sie unbedingt mit »Ja« (Yes). 

10. Benennen Sie die Datei »A« in »STD PATTNS« um. Ach¬ 
ten Sie auf jedes Zeichen des neuen Dateinamens, ins¬ 
besondere die durchgehende Großschreibung! 

Falls Sie nicht wissen, wie das Umbenennen funktio¬ 
niert: Klicken Sie das Piktogramm der Datei »A« an, so daß 
es invertiert wird; wählen Sie dann den Menüpunkt »Datei« 
oder »file« und anschließend »Umbenennen« oder »rena- 
me« an. Geben Sie dann in der Dialogbox den neuen Na¬ 
men, »STD PATTNS«, ein. 

11. Erstellen Sie mit »Duplizieren« (duplicate) unter dem 
Menüpunkt »Datei« (file) eine zusätzliche Kopie von 
»STD PATTNS«, die aber exakt den Namen »CHG 
PATTNS« haben soll. 

Zur Wiederholung: Klicken Sie einmal das Piktogramm 
über dem Text »STD PATTNS« an, dann das Wort »Datei« 
oder »file« in der Kopfzeile und anschließend »Duplizieren« 
oder »duplicate« in dem Menü, das sich nach Auswahl des 
Schlagwortes aufgerollt hat. Die Eingabe des neuen Datei¬ 
namens vollzieht sich wie bei Schritt 10. 

12. Jetzt enthält Ihre Arbeitsdiskette die Dateien »STD 
PATTNS«, »CHG PATTNS« und »PATTN-EDITOR«. 

Zum Arbeiten wird »PATTN-EDITOR« wie jedes Basic- 
Progra' r "'i gestartet. Die Datei »STD PATTNS« enthält fort¬ 
an die unveränderten Original-Füllmuster von Geos und 
wird als Desk Accessory gestartet (also auch unter dem Me¬ 
nüpunkt »geos« verfügbar). »CHG PATTNS« nimmt später 
Ihre eigenen Füllmuster-Editierungen auf, ist aber zu¬ 
nächst nur ein Duplikat von »STD PATTNS«; der Pattern- 
Editor ändert nämlich die Füllmuster nicht im Speicher - als 
Basic-Programm schafft er das ohnehin nicht -, sondern 
legt alle Veränderungen im CHG-PATTNS-File ab. 

Auf der Programmservice-Diskette zu diesem Sonder¬ 
heft befinden sich neben den beiden Listings bereits die 
»fertigen« Desk Accessories »STD PATTNS« und »CHG 
PATTNS«. Wenn Sie diese auf jeweilige Arbeitsdisketten 
kopieren, können Sie sich die Verwendung des INSTALL- 
Programms sparen. 

Allzeit bereit als Desk Accessory 


Nun zur Anwendung des eigentlichen Editorprogramms, 
das wie gesagt in Basic 2.0 geschrieben ist. Es wird also mit 
LOAD geladen und mit RUN gestartet. 

Nach dem Start ergeht die Aufforderung, eine Geos-Dis- 
kette mit »CHG PATTNS« - also die erstellte Arbeitsdiskette 
-einzulegen. Wenn »CHG PATTNS« und »PATTN-EDITOR« 
auf derselben Diskette stehen, erübrigt sich also der Dis¬ 
kettenwechsel. 

Findet der Pattern-Editor die Arbeitsdatei »CHG 
PATTNS« nicht, gibt er eine Fehlermeldung aus; ansonsten 
werden die Muster eingelesen, die sich gerade in »CHG 
PATTNS« befinden. Es erscheint der Editierbildschirm (Bild 
4). Dieser ist folgendermaßen aufgebaut: 

In der linken oberen Ecke befindet sich das Editierfeld. 
Hier wird das aktuelle in vergrößerter Darstellung ange¬ 
zeigt. Alle Änderungen finden in diesem Editierfeld statt. In 
der Mitte des Editierfeldes steht zunächst der Cursor. 


ft 
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C64 


GEOS-LISTINGS 


. 

. 

* . . . X . . . 

. .**■■.**. 
,K. . . -X . . 
**. . . . 

. . .* . . ,* 


CRSR :Cursor 
SPACE:Setzen 
f :Loeschen 
G :Dauersetzen 

J :Dauerloesch 
LR:Loeschen 
fl:Ruecksetzen 
f3:Auswahl 

3 4 5 6 ? 


fS 

Q 


: Saue 
: Ende 


fiAWA 


B iIiIi§i!i&i!Pi 

c f I 


Pattern Editor 
by 

U.Khatchikian 

8 

II 

Pattern:Al 





Bild 3. Der übersichtliche Editierbildschirm des 
Pattern-Editor. Zu sehen sind Pattern-Eigenschöpfungen 
des Autors. 


Unter dem Editierfeld ist der Musterbereich, in welchem 
alle 32 Muster gleichzeitig in übersichtlicher Form zu sehen 
sind. Alle Muster sind durch Koordinaten gekennzeichnet 
(1 bis 8 am oberen Rand des Musterfeldes und A bis D am 
linken Rand). Die Koordinaten des Musters, das gerade edi¬ 
tiert wird, sind durch weiße Färbung hervorgehoben. Au¬ 
ßerdem ist dieses aktuelle Muster mit einem auffälligen, 
weißen Rahmen umgeben. 

Rechts neben dem Musterfeld ist zur Kontrolle die Koor- 
dinaten-Bezeichnung des aktiven Musters abzulesen. Dar¬ 
unter sieht man das aktive Muster im gegenwärtigen Zu¬ 
stand in einem größeren Fenster, wodurch ein besserer 
Überblick über das Gesamterscheinungsbild entsteht. 

Im rechten oberen Bereich sind alle Befehle angezeigt, 
so daß schon nach kurzer Einarbeitungszeit das Programm 
ohne Anleitung bedient werden kann. 


Zahlreiche Befehle 


Der Pattern-Editor wird vollständig über Tasten gesteuert 
und hat sehr viele Befehle anzubieten. 

Mit den Cursortasten läßt sich der Cursor in alle vier Rich¬ 
tungen bewegen. Durch <SPACE> setzt, mit <*-> 
löscht man einen Punkt an der aktuellen Cursorposition. 

Für die Setz- und Löschoperationen gibt es jeweils eine 
Dauerfunktion, in der permanent Punkte gesetzt oder ge¬ 


löscht werden: Dauer-Setzen wird durch <SHIFT 
SPACE >, Dauer-Löschen durch < t > ausgelöst. Die Dau¬ 
erfunktionen sind jeweils so lange wirksam, bis eine andere 
Setz- oder Löschoperation ausgeführt wird. 

Das gesamte Editierfeld löscht ein Druck auf die CLR-Ta- 
ste. Mit < Fl > läßt sich der gesamte Mustersatz (32 Mu¬ 
ster) jederzeit wieder von Diskette einiesen. Dabei gehen 
aber alle bisherigen Änderungen verloren, sofern sie noch 
nicht gespeichert wurden. 

Musterauswahl zur Bearbeitung 


<F8> speichert alle Muster; hier wird nämlich die Datei 
»CHG PATTNS« benötigt, in der die neu zu speichernden 
Muster abgelegt werden. 

Die Muster aktiviert man, indem man unter Geos im Me¬ 
nü »geos« die »CHG PATTNS« startet. Umgekehrt schaltet 
»STD PATTNS« die Original-Füllmuster wieder ein. 

Um im Pattern-Editor ein Muster zur Bearbeitung auszu¬ 
wählen, drückt man <F3>. Damit betritt man den »Select 
Mode«, den Auswahlmodus; um diese Betriebsartzu signa¬ 
lisieren, färbt sich das Wort »Auswahl« weiß. Der Cursor im 
Editierfeld verschwindet, statt dessen kann man jetzt mit 
den Cursortasten ein neues Muster zur Bearbeitung aus¬ 
wählen. Nach Bestätigung der Auswahl mit < RETURN > 
erscheint das neue Muster im Editierfeld, der Cursor wird 
wieder dargestellt und das Muster ist zur Bearbeitung frei. 

Als letzte Tastenfunktion sei <Q> erwähnt; damit ver¬ 
lassen Sie das Programm. Vorher sollten Sie allerdings die 
Muster mit <F8> gespeichert haben. 

Einige Muster, die übrigens im RAM ab $ D000 stehen 
und jeweils 8 Byte belegen, werden von Geos selber ver¬ 
wende*, zum Beispiel um Fenster (Windows) zu füllen. 
Auch der Desktop-Hintergrund wird aus einem Geos-Mu- 
ster aufgebaut. Daher ist es durch Ändern dieser Muster 
möglich, die Effekte aus Bild 3 hervorzurufen. Es handelt 
sich um die Muster A3 (Desktop-Hintergrund), AI (Window- 
Hintergrund) und A2 (schwarzer Window-Schatten). Um al¬ 
so den Bildschirm umzugestalten, editieren Sie zuerst die¬ 
se Muster und speichern Sie sie über < F8 > im File »CHG 
PATJNS«. Dieses rufen Sie dann unter Desktop auf; wird 
die Änderung nicht sofort sichtbar, so rufen Sie »RESET« im 
Menü »speziell« (special) auf. 

Wir wünschen Ihnen viel Spaß beim Erstellen eigener 
Muster. (Uwe Khatchikian/Florian Müller/sk) 


10 REM"(4SPACEJIHE SEOS £ATTERN £DITOR 

<047> 

122 

SYS 49152:POKE l,PEEK<l)OR 4:FOR 1=0 T 


20 REM"(6SPACEJBY UWE .KR ATCHIKI AN 

< 144> 


0 7:H<I> =2tI:NEXT:POKE 650,128 

<13B> 

30 REM" 

<101> 

124 

POKE 56334,PEEK<56334)OR 1 

<041 > 

-10 REM" <2SPACE>£flXIM-£&m>J<,-.YERSION 1. 


126 

POKE 53272,(PEEK(53272)AND 2401+12 

<220> 

3a 

<068> 

128 

PRINT"(CLR,DOWN,RVSON,SPACEJfiEOS £ATTE 


50 REM" 

< 129> 


RN EDITOR BY .UWE JUHATCHIKI AN (SPACE, RVO 


60 REM" HATE: 04/27/B7(3SPACE>IIME:16:00 £, 



FF > " 

<248 > 

n 

< 102> 

129 

PR INT" ßOPYR I GUT 1987 BY HARKT & IECHNI 


70 REM" 

< 149> 


K, 64'ER" 

<230> 

00 REM" (6SPACE) (JOEXTaOHE VJLR.8J.OJO 

< 161 > 

130 

PRINT" (DOWN,SPACE>aiTTE EINE OEM-.01 SK 


90 j 

<066> 


ETTE EINLEBEN, DIE(2SPACE}DAS .PROGRAMM 


100 PDKE 53272,21 

<030> 


fiüfi ,PJ.T.mS. "j 

<208> 

102 PRINT "(CTRL-N,HOME,BLUE, DOWN ,8LEFT,RV 


132 

PRINT"ENTHAELT,": PRINT" LIND <RJLT.U.K.N> D 


BON,SPACE >WARTEN (SPACE,RVOFF >" 

< 171 > 


RUECKEN" 

<027> 

104 PDKE 53200,6:POKE 53201,14 

<153> 

134 

BET A*:IF M< >CHR$(13)THEN 134 

< 046 > 

106 PDKE 52,48:POKE 56,4B:CLR 

<063> 

136 

PRINT" (CLR,DOWN,RVSON,SPACEJ.CJtG. .RAT.TXS. 


10B POKE 56334,PEEK(56334)AND 254 

<007> 


WIRD GESUCHT. JÜTTE WARTEN.(SPACE,RVO 


110 POKE 1,PEEK(1)AND 251sV=l:W=l 

<252> 


FFJ" 

<24B> 

112 FOR 1=0 TO 30:READ B:POKE 49152+1,B:NE 


137 

: 

< 113> 

XT 

< 197> 




114 DATA 160,7,152,9,40,141,23,192,152 

116 DATA 105,B,9,20B,141,20,192,162,0 

<028> 
<097> 

Listlng 1. Das Editierprogramm »PATTN-EDITOR« 


118 DATA 189,0,216,157,0,48,232,200,247 

< 113> 

in Basic - schnell und komfortabel. 


120 DATA 136,16,228,96 

<003> 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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138 

REM" ****** SEARCH CJtG. PAT-TMS ****** 

< 149> 

270 

PC=(W-1)* 8 +V+95 s AD=122BB+PC*B 

< 102 > 

139 

8 

< 115> 

280 

PRINT"{HOME,DOWN,BLUE}";sFOR 1=0 TO 7: 


144 

DB=1:P=1:OPEN 1,B,15«8PEN 2,8,2,"#" 

< 142> 


B=PEEK(AD+I)sPRINT" "5 

<225> 

146 

PRINT# 1, "Ul 2 0 1B" ; DB 

< 202 > 

282 

FOR J=7 TO 0 STEP-1 SPRINT"."jsIF B>H(J 


148 

BET# 2 ,NT*:GET# 2 ,NS* s NT*=NT*+CHR* < 0 ) 

< 124> 


>-l THEN PRINT"{LEFTJ*";:B=B-H(J> 

<099> 

150 

FOR 1=0 TO 7!PRINT"{HOME >";P 

<005> 

284 

NEXT:PRINT:NEXT:POKE 211,28tPOKE 214,1 


152 

PRINT#1,"B—P 2";1*32+2 

<224> 


5 s BYB 5B732sPRINT"£ATTERN:"j CHR*(192+W 


154 

BET#2,TY*:TY*=TY*+CHR*<0):IF TY*=CHR*( 



)jCHR*(4B+V) 

< 121 > 


0)ÜR TY*=CHR*<128)THEN 162 

<217> 

2 B 6 

P*="c;"sFOR 1=0 TO 4: P*=P*+CHR* (64+PC) : 


156 

PRINTttl,"B—P 2";I*32+5:D*="" 

<037> 


NEXT:P*=P*+" = ":POKE 211,31:P0KE 214,17 

< 154> 

158 

FOR J = 1 TO 16:GET#2,A*s D*=D*+A*s NEXT 

<246> 

2 B 8 

SYS 58732:PRINT"ÄSSiS " 5 :FOR 1=0 TO 4: 


160 

IF D*="CHG PATTNS< 6 SHIFT-BPACE}"TUEN 1 



PRINT"CDOWN,7LEFT>"P*5:NEXT:PRINT"{DOW 



70 

<029> 


N, 6 LEFTJ.*.*-*».*." 

< 1 B 0 > 

162 

P=P+l:NEXT 

< 1B9> 

290 

X=5sY=5:R=2sDF=0 

< 154> 

164 

IF NT*< >CHR*(0)TUEN DS=ASC <NS*> : GOTO 1 


292 

POKE 214,Y:POKE 211,X:SYS 58732 

<004> 


46 

<051 > 

294 

RT=PEEK((1024+Y*40)+X) 

<072> 

166 

CLOSE 2:CLOSE 1:PRINT"{CLR,2D0WN,SPACE 


296 

PRINT"(RVSON,SPACE,RVOFF>"j 

<057> 


VC.M.G PAT.TN.S NICHT BEFUNDEN. ": PRINT" TA 


298 

GET A*:IF A*=""THEN 298 

<019> 


STE DRUECKEN." 

<019> 

300 

POKE(1024+Y*40)+X,RT 

<090> 

167 

BET A*I IF A*=" "TUEN 167 

<044> 

302 

IF A*="<RIGHT>"THEN X=X+(1 AND X< 8 ) 

< 121 > 

168 

GOTO 128 

<129> 

304 

IF A*="<LEFT>"THEN X=X-(1 AND X>1) 

<155> 

170 

PRINTttl,"B—P 2"j1*32+3 

<244> 

306 

IF A*="{UP}"THEN Y=Y—(1 AND Y>1> 

<173> 

180 

GET#2,T*IGET#2,B*:S*“S*+CHR*(0):I=7 

< 110 > 

308 

IF A*="{DOWN}"THEN Y=Y+<1 AND Y< 8 > 

< 143> 

181 

NEXT:CLOSE 2:CLOSE 1 

<239> 

310 

IF A*=" "THEN R=1:DF=0:REM SPACE 

<1U> 

182 


<15B> 

312 

IF A*="@"THEN DF=1:R=1 

<130> 

183 

REM"i 8 Ä SEAD ÜATTERNS FROM 21 SK üS 

<236> 

314 

IF A*="<-"THEN R=0:DF=0 

<034> 

184 

: 

< 160> 

316 

IF A*="t"THEN DF=1:R=0 

<147> 

185 

PRINT"{CLR,DOWN,RVSON,4SPACE JflUSTER < £ 


318 

IF A*=" {Fl J"THEN 184 

<147> 


ATTERNB) WERDEN GELESEN.{3SPACE,RVOFFJ 


320 

IF A*="{CLR}"THEN FOR 1=0 TO 7:POKE AD 



» 

<22B> 


+1,0:NEXT:GOTO 280 

<072> 

186 

OPEN 1 ,8,15: OPEN 2,8,2,“#" 

<223> 

322 

IF A*="{F3>"THEN 240 

<1BB> 

188 

PRINTttl,"Ul 2 0 ";ASC(T*>;ABC(B*) 

<035> 

324 

IF A*="{FB}"THEN 400 

< 169> 

190 

GET#2,NT*:GET#2,NS*:NS*=NS*+CHR*(0 > 

<029> 

326 

IF A*="Q"THEN 350 

<049> 

192 

PRINTttl,"B-P 2 60":AD=13056 

<057> 

328 

BY=Y—1:BI=X—1 

< 179> 

194 

FOR 1=0 TO 195:GET#2,B*:B*=B*+CHR*(0) 

<243> 

332 

IF R=0 THEN POKE(AD+BY),PEEK(AD+BY)AND 


196 

POKE AD,ABC(B*>:AD=AD+1:NEXT 

<247> 


255—(2T(7—BI)) 

< 0 B 2 > 

198 

PRINTttl,"Ul 2 0 ";ASC(NT*);ABC(NB*) 

<1B3> 

334 

IF R=1 THEN POKE(AD+BY),PEEK(AD+BY)0R 


200 

GET#2,B*:GET#2,B* 

<094> 


2t(7—BI) 

<061 > 

202 

FOR 1=0 TO 59:GET#2,B*:B*I=B*+CHR*(0> 

<232> 

336 

IF R=0 THEN PRINT"{LEFT >."5 

<209> 

204 

POKE AD,ABC(B*):AD=AD+1:NEXT 

<255> 

338 

IF R=1 THEN PRINT"{LEFTJ*"; 

<227> 

206 

CLOSE 2:CLOSE 1 

<228> 

340 

IF DF=0 THEN R=2 

<190> 

207 

5 

< 1B3> 

342 BCT"’ 292 

<232> 

20 B 

RFM".*.*.*.*.*_*.*.* HAIN .PROGRAM *.*_*_*.*.*.*.*.*. 

< 131 > 

344 

: 

<066> 

209 

: 

<1B5> 

345 

REM"*.*.*. £XIT £ROGRAM (TO GJLO.S.) *«** 

<092> 

210 

PRINT" TCLR,DOWN,SPACE>. £&§£ : £ 


346 

: 

<06B> 


URSORI2SPACE >zE 8 C3SPACE >:SAVE" 

<153> 

350 

PRINT"{CLR,DOWN,RVSON,SPACE >21TTE AUBW 


212 

PRINT" . ££Q££: SETZEN C2SPACE > -8 



AEHLEN:{22SPACE,RVOFF>" 

<036> 


{4SPACE >:£NDE" 

<013> 

352 

PRINT"{DOWN,SPACE><1> AUSTER VON ANDER 


214 

PRINT" . +<4BPACE>:£0EBCHEN = ":P 



ER 2ISKETTE LESEN" 

< 102 > 


RI NT" . @ : £AUERSETZEN^£ATTERN 


354 

PRINT"{DOWN,SPACE><2> £DITIERBILDBCHIR 



.EDITOR" 

< 117> 


M WIEDERHERSTELLEN" 

<081 > 

216 

PRINT" . t : 2AUERL0ESCHn":PRINT 


356 

PRINT"{DOWN,SPACEX3> £NDE: £ROGRAMM V 






ERLASSEN" 

< 192> 


E>BY " 

<086> 

358 

GET A*:IF A*="3"THEN 370 

<090> 

218 

PRINT" . Fl: fiUECKSETZEN^": PRINT 


360 

IF A*="1"THEN RUN 

<245> 


<063> 

362 

IF A*="2"THEN 210 

< 162> 

220 

PRINT"{DOWN,4BPACEJ1{2SPACEJ2 C2SPACEJ3 


364 

GOTO 358 

< 135> 


{2SPACE >4 C2SPACE >5T2SPACE > 6 {2BPACE>7 <2 


370 

PRINT" {CLR,DOWN,RVSON,2SPACEJ .QJLQ.fi- MOT 



SPACE >B": L*=" «SPACE >i». iS iS iS iS iS 



-DISKETTE EINLEGEN. (&£XU£il> {SPACE,RVO 



iS ÄS":PRINT L* 

< 114> 


FF>" 

<095> 

222 

P*= " - C2BHIFT-SPACE 


372 

GET A*:IF A*<>CHR*(13)THEN 372 

<034> 


HHw 1 : PRINT" fl"P*: PRINT" (2SPACE1 11 P*: PRI 


374 

LOAD"GEOS", 8 ,1 

<061 > 


NT L* 

<014> 

380 

a 

< 102 > 

224 

P*=" SPRINT" 


382 

REM"*.*.*.*. SAVE £ATTERNS TO 21 SK *.*.». 

< 164> 


£"P*:PRINT"C2BPACE}"P*:PRINT L* 

< 022 > 

384 

8 

<106> 

226 

P*=" sPRINT" 


400 

PRINT" {CLR,DOWN,SPACE>flJJSTER ( PATTERNS 



£"P*:PRINT"{2SPACE>"P*:PRINT L* 

<032> 


) AUF BISKETTE fiJLYJLN- {3SPACEJBIND SIE 


228 

p*=" doudBVsiiBzYrdES ,* pr i nt •• 



SICHER (£/£> ?" 

< 143> 


2 "P*s PRINT"{ 2 BPACEJ"P*s PRINT L*J sGOTO 


402 

GET A*sIF A*=""THEN 402 

< 11 B> 


260 

< 199> 

404 

IF A*< >"J"THEN 210 

<217> 

240 

C*= " <WH ITE > " s I30BUB 2000 

< 134> 

406 

PRINT"{CLR,DOWN,RVSON,4SPACE JflUSTER (£ 


242 

GET A*:IF A*=""TUEN 242 

< 149> 


ATTERNS) WERDEN GESfl££D.{3SPACE,RVOFF1 


243 

C*="tBLUEJ" 

< 104> 


" 

<1B7> 

244 

IF A*="{RIBHT}"THEN BOSUB 2008:V=V+(1 


40B 

OPEN 1,8,15:OPEN 2,8,2,“#" 

< 191 > 


AND V<B) 

<052> 

410 

PRINTttl,"Ul 2 0 ";ABC(T*>;ASC(S*) 

< 003 > 

246 

IF A*="<LEFT>"THEN BOBUB 200B:V=V-(1 A 


412 

GET«2,NT*:GET«2,NS*:NB*=NS*+CHR*(0) 

<253> 


ND V>1) 

< 110 > 

414 

PRINTttl,"B-P 2 60":AD=13056 

<025> 

24B 

IF A*="<DOWN>"THEN GOSUB 2004:W=W+(1 A 


416 

FOR 1=0 TO 195:PRINT#2,CHR*(PEEK(AD)); 



ND W<4) 

< 174> 


:AD=AD+1s NEXT 

< 220 > 

250 

IF A*="<UP>"THEN BOBUB 2004:W=W-<1 AND 


418 

PRINTttl,"U2 2 0 " 5 ASC(T*>;ASC(S*> 

<140> 


W>1) 

<240> 

420 

PRINTttl,"Ul 2 0 11 ; ASC (NT* > ; ASC (NS*) 

< 151 > 

252 

IF A*=CHR*(13)THEN 260 

<062> 

422 

GET#2,B*:GET#2,B* 

<062> 

254 

GOTO 240 

<254> 

424 

FOR 1=0 TO 59:PRINT42,CHR*(PEEK(AD));: 


260 

C*="<BLUE>":GOBUB 2000:C*="<WHITE>":GO 



AD=AD+1:NEXT 

<077> 


SUB 2002 

< 199> 

425 

PRINTttl,"U2 2 0 "5 ASC(NT*);ASC(NS*) 

<029> 


033 ?: 
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426 CLOSE 2:CLOSE l:GOTO 210 

<017> 

2006 

POKE 214,B+W«3:POKE 211,V*3:SYS 58732 


1900 

3 

<098> 


:PRINT"SS{D0WN,3LEFTJ^{2RIGHTJn:{D0WN, 


1902 

REM "aut ÜIGHLIGHT ÜATTERN—SORDER SS 

< 170> 


4LEFTJ^{2RIBHTJ^{DOWN,3LEFT JSS":RETUR 


1904 

: 

< 102> 


N 

<069> 

2000 

POKE 214,8:POKE 211,13:SYS 5B732:PRIN 


2008 

POKE 214,10:POKE 211,V*3:SYS 58732:PR 



T C*"AUSWAHL" 

<106> 


INT C#;V:GOTO 2006 

<211 > 

2002 

GOBUB 2004:BOTO 2008 

< 139> 




2004 

POKE 211,1:POKE 214,9+W*3:SYS 58732:P 






RINT C#;CHR#(192+W) 

<232> 

Listing 1. (Schluß) 



10 REM"{4SPACEJJHE fiEOS OTTERN ßDITDR <047> 

20 REM" I 6 SPACEJBY UWE ÜJIATCHIKIAN <144> 

40 REM" <3BPACEJ .IX5_mL_L. {2BPACEJ-{2SPACEJU 

ERBION 1.03 <022> 

50 REM" <129> 

60 REM" { 6 SPACEJ ( J1E.U-T.5.CXE .VÜA5.I.0X ) <141> 

70 : ' <046> 

169,72,133,6,169,152 <14B> 

133,7,169,0,133,9,169,136 <003> 

133,8,169,0,133,11,169,216 <109> 

133,10,169,48,133,13,169,0 <026> 

133,12,169,0,133,14,162,0 <063> 

189,58,82,157,0,208,232,208 <253> 

247,169,194,141,156,132,169,62 <175> 

141,155,132,96,0,0,0,0 <143> 

0,0,0,0,255,255,255,255 <10B> 

109 DATA 255,255,255,255,170,B5,170,85 <216> 

110 DATA 170,85,170,85,153,66,36,153 <150> 

153,36,66,153,251,245,251,245 <12B> 

251,245,251,245,136,34,136,34 <083> 

136,34,136,34,119,221,119,221 <234> 

119,221,119,221,136,0,34,0 <065> 

136,0,34,0,119,255,221,255 <033> 

119,255,221,255,255,0,255,0 <135> 

117 DATA 255,0,255,0,85,B5,B5,85 <016> 

118 DATA B5,85,85,B5,1,2,4,8 <012> 

16,32,64,128,128,64,32,16 <131> 

8,4,2,1,254,253,251,247 <154> 

239,223,191,127,127,191,223,239 <118> 

247,251,253,254,255,136,136,136 <16B> 

255.136.136.136.255.128.128.128 <240> 

128,12B,128,128,255,128,128,128 <081> 

255,8,8,8,8,2B,34,193 <002> 

128,1,2,4,136,20,34,65 <0B7> 

136,0,170,0,12B,64,32,0 <196> 

2,4,8,0,64,160,0,0 <086> 

4,10,0,0,130,68,57,68 <030> 

130,1,1,1,3,132,72,48 <0BB> 

12,2,1,1,248,116,34,71 <059> 

143.23.34.113.128.128 <084> 

133 DATA 65,62,8,B,20,227,85,160 <046> 

134 DATA 64,64,85,10,4,4,16,32 <093> 

B4,170,255,2,4,8,32,80 <021> 

136,136,136,136,5,2,119,137 <199> 

143,143,119,152,248,248,191,0 <029> 

191,191,176,176,176,176,0,8 <130> 

139 DATA 20,42,85,42,20,8,0,0 <179> 

140 s <116> 

0,255,3,21,191,255,255,255 <167> 

128,0,1,128,0,1,159,231 <12B> 

193,149,103,225,154,160,97,149 <037> 

97,249,154,160,241,149,96,97 <253> 

154,160,1,159,231,249,12B,5 <0B9> 

41,134,6,73,143,4,153,159 <227> 

133,41,134,6,73,135,22B,153 <160> 

131,231,249,128,0,1,128,0 <1B8> 

1,255,255,255,131,5,0,0 <017> 

150 DATA B2,0,96,0,82,71,46,80 <104> 

151 DATA 46,69,46,32,86,49,46,50 <107> 

0,0,0,0,0,0,0,0 <070> 

0,85,119,101,32,75,104,97 <012> 

116,99,104,105,107,105,97,110 <087> 

< 131 > 


100 DATA 

101 DATA 

102 DATA 

103 DATA 

104 DATA 

105 DATA 

106 DATA 

107 DATA 

108 DATA 


111 DATA 

112 DATA 

113 DATA 

114 DATA 

115 DATA 

116 DATA 


119 DATA 

120 DATA 

121 DATA 

122 DATA 

123 DATA 

124 DATA 

125 DATA 

126 DATA 

127 DATA 

128 DATA 

129 DATA 

130 DATA 

131 DATA 

132 DATA 


135 DATA 

136 DATA 

137 DATA 

138 DATA 


141 DATA 

142 DATA 

143 DATA 

144 DATA 

145 DATA 

146 DATA 

147 DATA 

148 DATA 

149 DATA 


152 DATA 

153 DATA 

154 DATA 

155 s 

200 PRINT"{CTRL-N,CLR,DOWN,SPACEJUEOB £ATT 

ERN £DITOR — iNSTALL" <233> 

210 PRINT"{DOWN,SPACEJSY UWE JSHATCHIKI AN {2 

SPACE>— UERSION 1.0Ü" <004> 

220 PRINT" {2D0WN,SPACE>2ITTE .LEERDISKETTE 

EINLESEN{13SPACEJUND REXURH DRUECKEN" <179> 
230 BET A#: IF A*OCHR* (13) THEN 230 <112> 


240 PRINT" {2DQWN,RVBON,BPACEJ HARXUXG. : SIE 
SIBKETTE WIRD TXIUtnT.IJUlT. I {SPACE,RVOFFJ 

250 PRINT"{DOWN,SPACEJBESTAETIGEN SIE DURC 
H SRUCK AUF JULÜUÜi" 

260 GET A*:IF A*<>CHR*<13)THEN 260 
270 PRINT"{2D0WN,SPACEJSITTE WARTEN.."; 

280 OPEN 1,B,15,"NuG.P.E. VI.2,64" 

290 CLOSE 1 

300 PRINT".";:CS=0 

310 OPEN 1,B,15sOPEN 2,8,2,"#" 

320 PRINT#1,"U1 2 0 10" 

330 PRINT#2,CHR#<1);CHR#(1 >3 
340 FOR 1=0 TO 253:READ B 3 CS=CB+B:PRINT#2, 
CHR#(B);:NEXT 
350 PRINTttl, "U2 2 0 1 0” 

360 PRINT"."; 

370 PRINTttl,"Ul 201 1" 

380 PRINT#2,CHR#(0);CHR#(61); 

390 FOR 1=0 TO 61:READ B:CS=CS+B:PRINT#2,C 
HR#(B);:NEXT 
400 PRINTttl,“U2 20 1 1" 

410 PRINT"."; 

420 PRINTttl,"Ul 2012" 

422 FOR 1=0 TO 111:READ B 3 CS=CS+B:PRINT#2, 
CHR#(B);:NEXT 
424 PRINTttl, "U2 2 0 1 2" 
r '{INT". "; 

428 PRINTttl,"Ul 20 18 1" 

430 GET#2,B#:GET#2,B# 

440 PRINT#2,CHR#(131);CHR#(1);CHR#(0);CHR# 
(65) ; 

450 FOR 1=0 TO 14:PRINT#2,CHR#(160); :NEXT 
460 PRINT#2,CHR#(1);CHR#(2);CHR# < 0 >;CHR#(5 
) 5 

470 PRINT#2,CHR*(86>;CHR*(12>;CHR#(28);CHR 
#(19);CHR#(45);CHR#(2>; 

480 PRINTttl,"U2 20 18 1" 

482 PRINTttl,"B—A 0 1 0" 

483 PRINTttl,"B-A 011" 

484 PRINTttl, "B-A 0 1 2" 

490 PRINT".":CLOSE 2:CLOBE 1 
500 PRINT"{3D0WN,SPACEJSITTE FUEHREN SIE D 
IE FOLGENDEN{9SPACEJSEHRITTE AUS:" 

510 PRINT" {DOWN,SPACE>T? JSOPIEREN SIE DAS £ 
ROGRAMM -PAT.TX - {BSPACEJ&fl-I.T.O.R AUF DIE N 
EUE SISK." 

520 PRINT" E .LADEN SIE flfi.0.5. UND:" 

525 PRINT"{4SPACEJE &DNVERTIEREN SIE DIE N 
EUE SISK ZU{7SPACE JEINER UE.aS. -M SK. " 
530 PRINT" {4SPACEJtf UEBEN SIE DEM .PROGRAMM 
fl DEN{12SPACE J SAMEN SIS SQXXflS. " 

540 PRINT" {4SPACEJU flUPLIZIEREN SIE SXS £fl 
■T.ms. UND {10SPACEJGEBEN SIE DEM SUPLIKA 
T"; 

545 PRINT" DEN KAMEN "3 PRINT"{6SPACE1GXB £fl 
IXHS. " 

570 PRINT" U «UN SOLLTEN SIE 3 .PROBRAMME H 
ABEN:" 

380 PRINT" {4SPACEJTT 'SIS £flXIflS'" 

590 PRINT" {4SPACEJU '£flHfl-£SiISS* " 

600 PRINT" {4SPACEJU ' UÜU fifllSSS'" 

610 PRINT" E SDPIEREN SIE DIESE £ROBRAMME 
AUF IHRE{3SPACE JUSOS-HRBEITSDIBKETTE(N 
) . " 

680 PRINT” {DOWN JURUEFSUMME DER MITJIS : " ; CS 


< 153> 

< 155> 

< 156> 
< 020 > 
< 020 > 
<047> 
<234> 
<093> 
<025> 

< 160> 

< 117> 

< 184> 
<213> 
<0B3> 
<188> 

<090> 

<242> 

<007> 

< 141 > 

<062> 

<018> 

<023> 

<250> 

<070> 

< 130> 
<003> 

< 1B3> 

<095> 
<175> 
<003> 
< 012 > 
<021 > 
<024> 

<062> 


< 13B> 
<054> 

< 147> 

< 169> 

<235> 

< 198> 

<081 > 

< 173> 

< 15B> 
<1B6> 


<097> 

<003> 


Listing 2. Erst mit »INSTALL« funktioniert das 
Editierprogramm. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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10 POKE 55,0:POKE 56,B0:CLR:RESTORE 
20 POKE 53281,0:POKE 532B0,0:PRINT"{CLR,CY 
AN>";CHR*(9>CHR*<14>CHR*<8>s 
30 PRINT" { 6 SPACEJ (C) 1988 BY E.IPRINA 8 . £DN 
SE" 

40 PRINT"{3D0WN,6SPACE>,SIESES ^PROGRAMM ERZ 
EUGT DOS" 

50 PRINT"(DOWN,2SPACE>£E0S-ÜILFSPR0GRAMM ( 
££SK—ßCCESSORY)" 

60 PRINT" (4DOWN, 12SPACEI '££LE£i .P.H.IXIEJ&' " 
70 PRINT" <13SPACE >TTt7TTTTTTTTTT" 

80 PRINT"{5D0WN,4SPACE >£1TTE EINE DISKETTE 
EINLEGEN UND" 

90 PR I NT " {DOWN, 11 SPACE >< {RVSON > HE_T.lt.tW (RVOF 
F> > DRUECKEN."jPOKE 198,0 
95 BET A*:IF A*-""THEN 95 
100 IF A*OCHR* (13ITHEN 95 

1000 REM SCHREIBEN DES INFOBLOCKS 

1001 PRINT"(CLRJANLEGEN DES NEUEN iNFOBLOC 
KS" 

1010 OPEN 15,8,15,"I0":GPEN 9, 8 ,9,"Hl" 

1015 INPUT#15,EN,EN*,ET,ES:IF EN< >0 TUEN C 
LOSE BsCLOSE 9sCL0SE 15:GOTO 3000 
1020 TN=1:SN=0 
1025 PRINTH15,"B-A 0";TN:SN 
1030 1NPUT#15,EN,EN*,ET,ES:PRINT“{DOWNVjE 
N?EN*:ET;ES 
1035 IF EN=0 TUEN 1100 

1040 IF ET=1B THEN TN=19:SN=0:GOTO 1025 
1045 TN=ET:SN=ES:IF TN=0 THEN CLOSE 8:CL0S 
E 9:CLOSE 15:GOTO 3000 
1050 BOTO 1025 
1100 FOR F—1 TO 185 STEP 5 
1105 READ A,B,C,D,E 

1110 PRINT#15,"M-W"CHR*(F-1)CHR*<4)CHR*(5) 
CHR* < A > CHR* < B > CHR* < C > CHR* (D > CHR* < E > 
1115 NEXT F 

1120 PRINTH15,"U2 9 0";TN;SN:CLOSE 9 
1125 INPUTtl 15,EN,EN*,ET,ES: IF EN< >0 THEN C 
LOSE 8 :CLOSE 9:CLOSE 15:GOTO 3000 

1130 REM FILE ABSPEICHERN 

1131 PRINT"(DOWNJABSPEICHERN DES DESK-flCCE 
SSORY" 

1132 PRINT" {DOWN>£££E£I{SHIFT-SPACE> PAÜ1XA 

S." 

1135 OPEN 8 , 8 , 8 ,"SELECT PRINTER,U,W“ 

1140 I NPUT#15, EN, EN*, ET, ES: 1F EN< >0 THEN C 
LOSE 8 :CLOSE 9:CL0SE 15:G0T0 3000 
1145 FOR F=1 TO 1015 
1150 READ A:PRINT# 8 ,CHR*(A);:NEXT 
1155 CLOSE 8 

1160 INPUT#15,EN,EN*,ET,ES:IF EN< >0 THEN C 
LOSE 8 :CLOSE 9:CLOSE 15:GOTO 3000 

1161 EE*="":FOR F=0 TO 15:EE*=EE*+CHR*<160 
):NEXT 

1162 SU*=LEFT*<"SELECT PRINTER“+EE*,16) 
1165 OPEN B, 8 ,B,"#2" 

1170 TR=1B:SE=1 

1175 PRINT#13,"Ul B 0"iTR,SE 

1180 GET#B,NT*:NT*-NT*+CHR*(0) 

11B5 BET#8,NS*:NS*°NS*+CHR*<0> 

1190 FOR F=0 TO 7:PRINT#15,"M~R"CHR*<F*32+ 
5)CHR*(5)CHR*(27) :DE*(F)=»"" 

1195 FOR G=>1 TO 27: GETH15,A*: IF A*“" "THEN 
A*-CHR*(0) 

1200 DE*(F)=DE* <F >+A*:NEXT:NEXT:F=0 
1205 IF SU*=LEFT*(DE*(F),16)THEN 1300 
1210 F-F+l:IF F <8 THEN 1205 
1215 TR =ASC < NT* > : BE=ABC (NS* > : IF TR-0 THEN 
CLOSE B:CLOSE 9:CLOSE 15:GOTO 3000 
1220 BOTO 1175 

1300 REM INFOBLOCK VERMERKEN 

1301 PRINT“(DDWNJfilRECTORYEINTRAG AENDERN" 
1305 PRINT#15,"M-W"CHR* <32*F+21)CHR*(5)CHR 

*(2>CHR* < TN)CHR*(SN) 

1310 PRINT#I5,"M-W"CHR* <F*32+23> CHR*(5)CHR 
*(3)CHR*(0)CHR*(5)CHR*( 88 ) 

1315 PRINT#15,"M-W'CHR* <32*F+26> CHR*(5)CHR 
*(2)CHR*(2)CHR*(17) 

1320 PR1NT#15,"M-W"CHR*(32*F+28)CHR*(5)CHR 
*(2)CHR*(20)CHR*(0) 

1325 PRINT#15,"M-W"CHR*(32*F+30> CHR*(5)CHR 
* <2)CHR*(5)CHR*(0) 

1330 PRINT#15,"U2 8 0"iTR:SE 

1335 INPUT#15,EN,EN*,ET,ES:IF EN< >0 THEN C 


<004> 

< 020 > 

<195> 

<226> 

< 220 > 

<06B> 

< 146> 

<033> 

< 011 > 

< 010 > 

<048> 

< 143> 

<1B7> 

<042> 

< 122 > 
<192> 

< 0B1 > 

<238> 

< 088 > 
<093> 

< 140> 

<103> 

< 143 > 

< 197> 

<054 > 
<159> 
<174> 

<234> 

c 

<137> 

<236> 

<048> 

<249> 

<049> 

<135> 

< 206 > 

<013> 

<077> 

<1B8> 

< 115> 

<041 > 
<202> 

<209 > 
<204> 

<083> 

< 164 > 
<243> 
<025> 

< 177> 

<050> 

< 193> 

< 002 > 
<157> 

< 136> 

< 182 > 

<21B> 

<12B> 

<043> 

<239> 



schrieben, es darf gedruckt werden. Aber halt! 
Der falsche Drucker ist eingestellt. Was tun? Geo- 


write verlassen, Drucker wählen, neu starten... 
Vergessen Sie diese Prozedur. Mit »Select Printer« 
kann aus jedem Programm heraus der Drucker- 
Treiber eingestellt werden. 

D ie oben beschriebene Situation ist Ihnen sicher aus 
leidvoller Erfahrung bekannt. Geos hat hier eine klei¬ 
ne Schwachstelle, denn innerhalb von Programmen 
kann kein neuer Druckertreiber gewählt werden. Hier setzt 
das Programm »Select Printer« an, das ebenfalls von Heinz 
Joachim Ciprina und Ralf Bonse, welche den 2. Preis des 
Geos-Wettbewerbs gewonnen haben, geschrieben wurde. 

Das Programm ist als Desk-Accesory gestaltet und somit 
unter dem Menüpunkt »Geos« aus jedem Programm aufruf¬ 
bar (Bild 1). Wie das Bild übrigens weiter zeigt, arbeiten alle 
Programme aus diesem Sonderheft wunderbar zusam¬ 
men. »Select Printer« wird aufgerufen unter Geoterm, dem 
Sieger des Geos-Wettbewerbs. Als Druckertreiber fungie¬ 
ren mit »Superprint V2.0« - dem Gewinner des 2. Preises - 
erstr*^ Treiber. Sie sehen: Hält man sich an die Program- 
mieM\onventionen von Berkeley Softworks, kann nichts 
schiefgehen. 

Bedienung des Programms 


Select Printer ist lauffähig unter Geos 1.2, Geos 1.3 und im 
40-Zeichen-Modus von Geos 128 und wird wie jedes Desk- 
Accesory, sofern es sich auf der aktuellen Arbeitsdiskette 


LOSE B:CLOSE 9:CLOSE 15:GOTO 3000 <190> 
1340 CLOSE 8 :CLOSE 15 <038> 
1350 PRINT"<2D0WN>£R0GRAMM GENERIERT":END <225> 
3000 PR INT "11 J. 5 £,{3SPACE >£ & Ä fl. & 1 " <175> 
3005 PRINT"{DOWN>";EN;EN»;ET;ES:END <10S> 


20000 DATA 0,255,3,21,191,255,255,255,128, 

0,1,128,62,1,128,127,1,128,99,1,128 <129> 

20005 DATA 99,1,128,7,65,12B,78,65,128,92, 

65,128,152,65,128,152,129,131,0,189 <147> 

20010 DATA 133,24,141,137,219,157,144,0,61 

,191,255,249,160,0,113,160,0,97,191 <24B> 

20015 DATA 255,193,128,0,1,255,255,255,131 
,5,0,0,92,64,127,0,92,115,101,108,10 


1 <149> 
20020 DATA 99,116,32,112,114,105,110,116,1 

01,114,0,48,0,0,0,0,67,105,112,114,1 
05 < 200> 

20025 DATA 110,97,32,38,32,66,111,110,115, 

101,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <155> 

20030 DATA 0,0,0,0,0,0,0,0,0,45,169,2,141, 

141,132,13B,208,34,32,133,22,160,4,3 

2 <132> 
20035 DATA 227,4,169,18,32,104,194,165,13, 

87,97,101,104,108,101,32,100,101,110 <24B> 
20040 DATA 32,68,114,117,99,107,101,114,32 

,97,117,115,33,0 <032> 

30000 DATA 32,183,193,0,160,0,96,64,31,32, 


40 
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befindet, unter dem Menüpunkt »Geos« angezeigt. Es ist 
dort, wie etwa auch der Taschenrechner oder die Uhr, aus 
jedem Programm aufrufbar. Es kann aber auch direkt unter 
Desktop mit Doppelklick gestartet werden, was jedoch we¬ 
nig sinnvoll ist, da dort diese Funktion von Geos selbst be¬ 
reitgestellt wird. 

Eingabehinweise 


Geben Sie das Listing 1 »SELECT.BAS« mit dem Check¬ 
summer ein und speichern es auf Diskette. Nach dem Start 
mit RUN werden Sie aufgefordert, eine Diskette einzule¬ 
gen, auf der das Accessory erzeugt werden soll. Nehmen 
Sie hierzu am besten eine frisch formatierte Diskette, die 



«uaiwaia special 

eilen 

ij fxl.3 annl.mod 

by 

j fx1.J fx.mod 

fxl.3 nl.mod 



Eingestellter Drucker: 
fxl.3 annl.mod 
auf Diskette: 

RAM 1541 

- 07-ZTZ700- 17 - 


ekommunikotion: EG warnt Japan 
IBM vermarktet CCS-Software-Systeme 
Wang schliefst Uebernahme von Informatics a 

OEM-Uertrag zwischen Olivetti und Sun Micro 

Olivetti erhaelt Auftrag aus Daenemark 
Dataperfect: Multifunktionales Datenbankprogi 

iplan: Computerunterstuetz te Arbeitsplanung 


ll 

* 


84 

83 


25.2.88 

25.2.88 


15 

12 


Grasp: Software fuer Praesentationen 
Uersion 2.8 der Textverarbeitung Novatext 


Bild 1. Das Desk-Accessory »Select Printer«, aufgerufen 
unter Geoterm 


nicht unbedingt das Geos-Format haben muß. Nach Bestä¬ 
tigung durch < RETURN > wird auf dieser Diskette das 
Programm »SELECT RRINTER« erzeugt. Laden Sie da¬ 
nach Geos, konvertieren die Diskette, auf der sich unser 
Programm befindet, ins Geos-Format und kopieren Select 
Printer auf Ihre Arbeitsdisketten. Dort hat Select Printer in 
der Redaktion schon oft gute Dienste geleistet. 

(Hein Joachim Ciprina/Ralf Bonse/sk) 


1618.93.162.67.1 SB, 94,134,14,132,15,1 

69 <B11> 

30005 DAT ft 9,133,16,169,0,133,22,133,23,17 

3,152,92,133,17,169,0,141,151,92,32 <191> 

30010 DATA 59,194,138,240,20,162,14,169,25 
5,141,151,92,189,153,92,157,67,94,20 
2 <179> 

30015 DATA 16,247,169,1,200,8,56,173,152,9 

2,229,17,240,228,170,9,128,141,26,95 <226> 
30020 DATA 173,20,95,202,48,5,24,105,14,20 
B, 248,141,21,95,169,0,141,152,132,14 
1 <161> 
30025 DATA 169,132,141,170,132,141,163,132 
,141,164,132,162,5,189,27,94,149,6,2 
02 < 011 > 
30030 DATA 16,248,169,0,32,57,193,32,36,19 

3,169,255,32,39,193,32,3B,93,162,33 <090> 

30035 DATA 160,94,169,0,134,2,132,3,32,81, 

193,96,0,12,75,69,73,78,32,68,82,85 <043> 

30040 DATA 67,75,69,B2,0,0,0,0,0,0,0,0,0,0 

,0,72,32,144,193,44,151,92,16,2,104 <245> 

30045 DATA 96,165,69,141,19,93,165,70,141, 

20.93.104.141.21.93.24.10.10.10.10.1 

09 <027> 

30050 DATA 21,93,105,67,133,69,169,0,105,9 

4.133.70.160.16.177.69.153.101.132.1 

36 <151> 



30220 


<091 > 
<006> 


Listing 1. »SELECT.BAS« geben Sie bitte mit dem 
Checksummer (Seite 159) ein. Es generiert »SELECT 
PRINTER« auf Diskette. 
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C64, CI28 


Geos-Druckertreiber für 


Mit diesem neuen Druckertreiber lassen sich die 
Qualitäten des Druckers Citizen 120D auch unter 
Geos nutzen. Obendrein läßt sich Format und 
Dichte des Ausdrucks individuell bestimmen. 

W er bislang mit dem Citizen 120D unter Geos 
drucken wollte, mußte den Druckertreiber »Com- 
modore Compat« benutzen und erhielt ein äußerst 
mangelhaftes Schriftbild mit einer horizontalen Auflösung 
von nur 480 Punkten. Der rechte Rand von Grafiken und 
Texten - immerhin bis zu 160 Punkte - wurde wie beim 
Druckertreiber für den MPS 801 einfach abgeschnitten. 



Bild 1. Diese Auswahlbox erscheint vor dem Druckvorgang 


Eingabehinweise 


Die Programme »LADER« (Listing 1) und »CODE120« (Li- 
sting 2) erzeugen den Druckertreiber auf Diskette. Geben 
Sie Listing 1 mit dem Checksummer, Listing 2 mit dem MSE 
ein und speichern beide auf einer Diskette. 

Laden Sie danach das Programm »LADER« und starten 
es mit RUN. Es wird zuerst »CODE120« nachgeladen. An¬ 
schließend ist der gewünschte Filename, unter dem der 
Druckertreiber gespeichert werden soll, einzugeben. Da¬ 
nach wird der Treiber als Geos-File mit Infoblock und Icon 
auf Diskette geschrieben, was etwa 40 Sekunden dauert. 

Anschließend konvertieren Sie die Diskette ins Geos-For- 
mat und kopieren den fertigen Druckertreiber mit der Ko¬ 
pierfunktion von Geos auf Ihre Arbeitsdisketten. 

Bedienung des Druckertreibers 


Um mit dem Citizen-Treiber drucken zu können, wählt man 
diesen wie gewohnt mit der Funktion »Drucker wählen« 
aus. Man kann dies auch mit dem Accessory »Select Prin¬ 
ter« (Seite 40) aus einem laufenden Programm heraus tun. 
Klickt man danach die Funktion »Print« unter dem Menü 
»File« an, erscheint zunächst eine Auswahlbox (Bild 1). Dort 
kann man sich zwischen zwei Formaten und vier Druck¬ 
dichten °ntscheiden. Nach dem Anklicken des »OK«-Fel- 
des beginnt der Druckvorgang. Bild 2. demonstriert die 
neue Druck-Qualität. (Ji Quidong/sk) 


Name 

: codel20 




1000 15f 8 

10f8 

09 

a2 

4f 

8a 

48 

20 

80 

7a 

f4 

1200 

02 

80 

04 

2a 

lb 

00 

33 

lb 

3d 











1100 

20 

58 

7a 

18 

a9 

08 

65 

08 

6e 

1208 

lb 

00 

aa 

55 

aa 

55 

aa 

00 

79 

1000 

4c 

11 

7b 

4c 

65 

79 

4c 

9f 

dO 

1108 

85 

08 

a9 

00 

65 

09 

85 

09 

c2 

1210 

02 

a9 

20 

85 

02 

a9 

7b 

85 

06 

1008 

79 

4c 

bf 

79 

4c 

d7 

79 

45 

ba 

1110 

68 

aa 

ca 

10 

e6 

60 

a2 

07 

8c 

1218 

03 

20 

56 

c2 

60 

a9 

Oc 

8d 

b8 

1010 

70 

73 

6f 

6e 

20 

46 

58 

2d 

d3 

1118 

8e 

25 

79 

a2 

4f 

ac 

25 

79 

cd 

1220 

01 

38 

88 

70 

00 

e8 

00 

Ob 

cb 

1018 

38 

30 

00 

00 

00 

00 

00 

00 

69 

1120 

bl 

08 

dO 

15 

88 

10 

f9 

18 

cd 

1228 

08 

08 

70 

7b 

Ob 

08 

28 

78 

42 

1020 

00 

00 

00 

00 

00 

00 
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Bild 2. Ein Augenschmaus für Besitzer des Citizen 120D: 
vollständige Hardcopies in hoher Punktdichte. 


1 A=A+1:IF A=1 THEN LOAD"CODE120",B,1 <114> 
3 s <235> 
10 OPEN 1,8,15,"I SO" <240> 
20 REM * FILE SPEICHERN * <144> 
30 INPUT "FILENAME";F* <226> 
40 OPEN 2,8,2,F*+",U,W":B0SUB 1000 <255> 
50 FOR 1=0 TO 1280sA=PEEK <16*256+1) <069> 
60 PRINT#2,CHR*(A>;sNEXTsBOSUB 1000 <110> 
70 CLOSE 2 <0B9> 
B0 REM * INFO-SEKTOR ANLEBEN * <244> 
90 A=1:B=0 <103> 
100 T=A:B=Bs PRINTttl,"B-As 0"s Ts S <0B6> 
110 INPUT01,N,T*,A,B:IF A=18 THEN A=19:B=0 <036> 
120 IF N>0 THEN 100 <074> 
130 OPEN 3,B,3,"H0":PRINTS3 <171> 
140 PRINTttl,"Ul";3;0iT;S <022> 
150 FOR 1=0 TO 255sW=PEEK(21*256+1) <217> 
160 PRINT#3,CHR*(W)!sNEXT <165> 
170 PRINTttl,"U2 "j3 5 0!T;S ■ <181> 
1B0 REM * IN DIRECTORY EINTRABEN * <124> 
190 PRINT«3 <185> 
200 A*=CHR*(1B>:B*=CHR*<1> <087> 
210 A=ASC < A*) : B=ASC (B*) s PR I NT« 1, " U1" 3; 0; A 

; B <222> 
220 BET#3,A*,B* <213> 
230 FOR 1=0 TO 7 <043> 
240 PRINT«1,"B-P";3;1*32+5 <027> 
250 FOR J=1 TO LEN(F*> <05B> 
260 BET#3,W*:IF W*<>MID*<F*,J,1> THEN K=0: 

BOTO 280 <036> 
270 K=K+1 <039> 
280 NEXT J <11B> 
290 IF K=LEN<F*> THEN 310 <066> 
300 NEXT IsßOSUB 1000:BOTO 210 <083> 
310 PRINT#l,"B-P"-,35 1*32+21 <224> 
320 PR I NT#3, CHR* (T > CHR* (S ) CHR$ < 0) CHR* ( 9 > CH 

R*(87)CHR*(12)CHR*(24) <174> 
330 PRINTttl,"U2";3;0;AsB <129> 
340 CLOSE lsPRINT"O.K."SEND <166> 
1000 INPUTttl,N,T*sIF N THEN PRINT T*:STOP <176> 
1010 RETURN < 050 > 

L'mi.ig 1. »LADER«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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Listing 2. »CODE120«. Der Maschi- 
nenspracheteil wird von »LADER« 
nachgeladen. Bitte mit dem MSE 
(Seite 159) eingeben. 
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GEOS-GRUNDLAGEN 


Mein Freund 

Schon ein altes Sprichwort sagt: Meister fallen nicht vom Himmel. Der 
Geos-Profi Florian Müller berichtet über seine Erfahrungen mit dieser 
Software und hilft Ihnen, die ersten Hürden bei Geos zu überwinden. 



Bild 1. Florian Müller: 
ein Geos-Profi packt aus 


V ielleicht denken Sie: Was geht es mich als »Normal¬ 
verbraucher« an, was ein jetziger Geos-Profi (Bild 1) 
früher gemacht hat. Aber in diesem Artikel geht es 
nicht vorrangig um meine persönlichen Eindrücke, son¬ 
dern vor allem darum, wie man die ersten Schwierigkeiten 
mit Geos meistert, und unter welchen Aspekten diese Soft¬ 
ware zu bewerten ist. 

Das erste Mal_erfuhr ich von Geos im 64'er (Ausgabe 
6/86). Nach dem Überfliegen dieses Artikels war ich fest da¬ 
von überzeugt: Dieses Programm ist nichts für mich! 

Nach meiner intensiven Praxis mit dem herkömmlichen 
Betriebssystem des C64 sah ich keinen Anlaß, etwas an¬ 
deres mühsam zu erlernen. So blieb mir vom ersten Testbe¬ 
richt nur eine einzige Erinnerung: Geos ist bei manchen 
Funktionen langsam, denn es braucht viele Diskettenzu¬ 
griffe. Mein persönlich gefälltes Vorurteil lautete: »Geos 
muß scheitern, der C64 ist einfach nicht leistungsfähig ge¬ 
nug für sowas wie GEM.« (GEM ist eine grafische Benutzer¬ 
oberfläche für Personal- und andere Computer.) 

Ich kannte damals den Atari ST mit der Benutzeroberflä¬ 
che GEM und den Amiga von Testberichten sowie aus Vor¬ 
führungen in Fachgeschäften. So konnte ich mir als 
C64-Freak, vielgeplagt von LOAD"$'',8 und FILE NOT 
FOUND ERROR, beim besten Willen nicht vorstellen, wie 
der »Brotkasten« C64 auf einmal ein moderner grafischer 
Computer sein wollte. Heute weiß ich: »Mit Geos ist er das 
- und noch viel mehr.« 

Das Vorurteil: ein »Arme-Ieute-GEM« 


So legte ich den Gedanken an Geos erstmal beiseite. Ich 
hätte in der Zeit danach mehrere Male die Gelegenheit ge¬ 
habt, eine Diskette mit Geos zu erhalten; aber abgesehen 
von meiner Abneigung gegenüber Raubkopien hatte ich 
einfach kein Interesse. Trotz der interessanten Bildschirm¬ 
fotos glaubte ich auch nicht, daß Geos etwas für mich sein 
konnte - vielleicht für völlige Neueinsteiger. 

Und hier liegt auch schon der erste Fehler in der Beurtei¬ 
lung von Geos: Man darf es nicht nur unter dem Aspekt der 
einsteigerfreundlichen Benutzerführung mit Joystick se¬ 
hen. Natürlich »braucht« man Windows, Dialogboxen und 
Pull-Down-Menüs nicht unbedingt, aber angenehm ist es 
allemal. Und Geos ist noch mehr: ein grafisches Betriebs¬ 
system mit zahlreichen weiteren Vorzügen wie Proportio¬ 
nalschrift auf Bildschirm und Drucker, verschiedenen 
Schriftarten und Zeichensätzen sowie eine flexible Grafik¬ 
einbindung in viele Programme. Die meisten Zusatzpro¬ 
gramme zu Geos wären auch ohne die Geos-Benutzerfüh- 
rung schon hervorragend. 

Der zweite Betrachtungsfehler, der zu einem falschen Ur¬ 
teil führt: Geos ist ein C64-Programm, und darf als solches 
nicht ohne weiteres an GEM gemessen werden. Ähnlich¬ 
keiten sind da, gewiß, aber Amiga, Atari ST oder die Perso¬ 
nal Computer haben einfach eine andere Hardware als der 
C64. Hätte Geos mehr Speicher und eine höhere Rechen¬ 
geschwindigkeit zur Verfügung, dann wage ich zu behaup¬ 


ten, daß es »Intuition« (die Benutzeroberfläche des Amiga) 
schlagen könnte. 

Was die Programmierer von Geos aus dem C64 heraus¬ 
zuholen vermochten, schafft in vergleichbarer Weise welt¬ 
weit kein anderes Betriebssystem und keine andere Benut¬ 
zeroberfläche. Grafische Benutzerführung auf einem Com¬ 
puter mit 16/32-Bit-Prozessor, Grafikauflösung von 640 x 
400 Punkten und mit einem Hauptspeicher von mindestens 
512 KByte zu realisieren, ist ein Kinderspiel im Vergleich 
zum Vorhaben, am C64 mit dem 8-Bit-Bus und 320 x 200 
Punkten Auflösung und einem im Vergleich sehr kleinen 
Speicherbereich derartige Features zu bieten. In den USA 
hat sogar eine bekannte Tageszeitung in einer Art »Compu¬ 
terecke« geschrieben, daß Geos eine der größten Software¬ 
leistungen überhaupt darstellt! 

Ein Bestseller von Anfang an 


Bis zum Herbst 1986 blieb ich noch ahnungslos darüber, 
was Gees alles konnte. Mittlerweile wurde es aber nicht nur 
jedem neuen C64 beigelegt, sondern Geos trat auch im 
kommerziellen Handel seinen Siegeszug an. Bis Mitte 1987 
wurden in den USA bereits mehr als 150000 Geos- 
Exemplare verkauft - allein vom Grundsystem, die Applika¬ 
tionen (Zusatzprogramme) nicht einmal mitgerechnet. 

So kam es, daß Geos auch als Buchthema aktuell wurde. 
Deshalb sollte ich recht bald für den Markt & Technik Buch¬ 
verlag, für den ich ebenso wie für die Redaktion 64’er als 
Autor tätig bin, eines Tages beginnen, ein Buch über Geos 
zu schreiben. Ich war zunächst gänzlich abgeneigt: ein 
Buch zu einem Programm, das ich kaum kannte und von 
dem ich auch nicht gerade viel hielt? Bislang hatte ich erst 
ein einziges Mal die Geos-Software »in Action« gesehen (in 
der 64’er-Redaktion). 

Nach langem Hin und Her ließ ich mich überreden - was 
ich nicht im geringsten bereue. Noch am selben Tag suchte 
ich einen Freund auf, der mit Software bestens<)estückt ist. 
Wir waren dort insgesamt zu dritt und durchsuchten seine 
Software-Sammlung, bis wir schließlich »Gdos« fanden. 
Nun wollten die beiden anderen wissen, was ich denn so 
Besonderes an Geos fand. Nach LOAD":*",8,1 warteten 
wir eine Weile, bis sich der Desktop-Bildschirm auftat. 

Mittlerweile hatte ich mich oberflächlich über die Grund¬ 
elemente der Bedienung informiert. Aber bereits der näch¬ 
ste Schritt zog uns unweigerlich in den Geos-Bann: Es 
machte einfach Spaß, die Pull-Down-Menüs aufzurollen 
und wieder zu schließen (Bild 2). Und wenn hin und wieder 
eine Dialogbox erschien, in der man Eingaben tätigen oder 
einfach »Cancel« anklicken konnte, dann kam das Gefühl 
auf, doch eine besondere Software vor sich zu haben. 

Sollte unter Ihnen, den Lesern dieses Artikels, noch je¬ 
mand sein, der Geos nur von »statischen« Bildschirmfotos 
her kennt, so glauben Sie mir: Um Geos zu verstehen, muß 
man es »in Bewegung« erleben. 

Als nächstes kam ein verständlicher Wunsch: Ich wollte 
ein anderes Geos-Programm, nämlich Geowrite, starten. 
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Das Icon war am Bildschirm zu sehen, doch nach An¬ 
klicken tat sich nichts. Der Grund: Zum Starten muß man 
Dateien »doppelklicken«, und die Pause zwischen beiden 
»Klicks« darf nicht zu lang sein. Am Anfang war dies für 
mich ein echtes Problem, weil der Feuerknopf meines Joy¬ 
sticks nicht optimal ansprach. 

Die zweite große Schwierigkeit bestand darin, daß beim 
Starten von Geopaint oder Geowrite immer eine Fehlermel¬ 
dung kam. Diese wollte mich freundlich darauf hinweisen, 
daß auf der Systemdiskette - seit dem Booten hatte ich die 
Diskette nicht gewechselt, das damalige Geos befand sich 
komplett auf einer einzigen Diskettenseite - nicht ausrei¬ 
chend Platz vorhanden war. 

Und hier begann ich wirklich zu »stolpern«. Denn mit Ge¬ 
os kann man nicht so »drauflos arbeiten« wie mit normaler 
C64-Software, die man einfach testhalber lädt, startet und 
neugierig wartet, was passiert. 



Bild 2. Pull-Down-Menüs bei Anklicken des Schlagwortes 


Deshalb muß auf Disketten, auf denen man Geowrite 
oder Geopaint startet, ausreichend Platz für die Daten vor¬ 
handen sein. Ist dies nicht der Fall, erhalten Sie eine Fehler¬ 
meldung (»not enough disk space« bei Geos 1.2). 

Ein Vorteil der Diskettenorientierung von Geos-Program- 
men ist, daß zum Speichern einer Datei keine eigenen Pro¬ 
grammfunktionen nötig sind. Da die Datei laufend (!) aktua¬ 
lisiert wird, genügt das ordnungsgemäße Verlassen über 
»quit« im »file«-Menü (bei VI.3: »Verlassen« unter »Datei«), 

Kommen wir auf die Fehlermeldung zurück, die beim 
Starten entsteht. Als erstes muß man also eine Arbeitsdis¬ 
kette, oder am besten gleich mehrere erstellen. Auf einer 
Arbeitsdiskette müssen sich folgende Dateien befinden: 
Desktop, Geowrite und/oder Geopaint, Druckerdatei, benö¬ 
tigte Zeichensätze und Hilfsmittel. Als ich noch mit Geos 
1.2 (englische Version) arbeitete, war das Erstellen von Ar¬ 
beitsdisketten eine längere Kopiersitzung, da man jede Da¬ 
tei einzeln von der System- auf die Arbeitsdiskette übertra¬ 
gen mußte. Bei Geos 1.3 (deutsche Version) ist bereits eine 
Diskette namens »Anwendungen« im Lieferumfang enthal¬ 
ten, sie beinhaltet alle benötigten Programme und kann auf 
weitere Arbeitsdisketten vervielfältigt werden. Dem Anwen¬ 
der werden dadurch die ersten Schritte deutlich erleichtert. 

Hat man erstmal eine Arbeitsdiskette zur Verfügung, 
dann geht es »Schlag auf Schlag«: Die Bedienung von Geo¬ 
paint ist in einer halben Stunde erlernt, wer bereits Pro¬ 
gramme wie Hi-Eddi kennt, benötigt wahrscheinlich nur 
zehn Minuten. Ich bin weder ein begnadeter Zeichner, noch 
kannte ich mich mit Zeichenprogrammen aus; doch von 
Geopaint lassen sich viele Anwender begeistern, die sonst 
nichts für Grafik-Software übrig haben. 

Das Prinzip der Werkzeugleiste (Bild 3) hat den großen 
Vorteil, daß man nicht wie bei Hi-Eddi Tastendrücke aus¬ 
wend j lernen muß, sondern durch kleine Bilder (Pikto- 
gramme) ist jede Zeichenfunktion repräsentiert. Dies gilt in 
ähnlicher Form übrigens für jedes Geos-Programm: Leich¬ 
te Bedienbarkeit ermöglicht den Zugang zu Anwendungen, 
die sonst eine längere Einarbeitungszeit erfordern würden. 

Wichtig ist nur, daß man anfangs die Funktionen des 
Desktop anzuwenden lernt. Kopieren, Umbenennen und 
Löschen von Dateien sollte man »sicher« beherrschen. 
Dann bringt jedes neue Geos-Programm weitere Begeiste¬ 
rung am Computer. 



geos Datei j Editieren j OptionenjSchaftaften 


Woodblock 


■ Punkte 


Abstand: 


Bild 3. Die Werkzeugleiste (links) In Geopaint verbildlicht 
alle Funktionen. Hier wird ein Abstand gemessen. 


Das Prinzip von Geos erfordert jedoch ein gewisses Um¬ 
denken: Da unter Geos nicht nur der RAM-Speicher des 
C64 verwendet wird, lagern alle Geos-Programme - ange¬ 
fangen bei Geowrite und Geopaint - ihre Daten auf Diskette 
aus. Nur ein geringer Teil der Daten wird im Hauptspeicher 
gehalten, bereits ein Zeichensatzwechsel führt zu einem 
erneuten Lesezugriff. 


Auf LOAD verzichten 


Der Desktop ist die zentrale Anlaufstelle unter Geos, so wie 
der Eingabemodus im Basic-Betrieb. Nur vom Desktop aus 
kann man Geos-Programme starten. Deshalb ist es bei 
Arbeitsdisketten nicht möglich, einfach mit LOAD "GEO¬ 
PAINT",8,1 das gewünschte Programm zu laden (Fehler¬ 
meldung: FILE NOT FOUND). Man geht jetzt nach folgen¬ 
dem Schema vor: 

1. Man lädt Geos mit LOAD": * ",8,1. Der Desktop erscheint. 

2. Nun ist die Arbeitsdiskette mit Geopaint einzulegen. 

3. Mit dem Joystick bewegt man den kleinen blauen Pfeil 
auf das Diskettensymbol (rechts oben am Bildrand) und 
drückt auf den Feuerknopf. 

4. Nachdem der Inhalt der Arbeitsdiskette erschienen ist, 
geht man auf das Bild von Geopaint (die Malpalette) und 
drückt zweimal kurz hintereinander auf den Feuerknopf. 

5. Es erscheint die Startbox von Geopaint, von jetzt an ist 
vieles selbsterklärend. 

Insgesamt muß man nur wenige Handgriffe kennen, um 
effektiv mit Geos umgehen zu können. Zusätzlich ist das 
Handbuch zu Geos 1.3 dafür zu loben, daß es viele Schritt- 
für-Schritt-Anweisungen gibt, die sicher ans Ziel führen. 

(Florian Müller/kn) 
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urch den Mitte 1986 gefällten Entschluß von Commo- 
|dore, mit dem C64 quasi als kostenlose Zugabe die 
Software Geos als neuen Betriebssystem-Standard 
auszuliefern, erreichte Geos 1.2 große Verbreitung. Viele 
C64-Anwender haben auch Gebrauch davon gemacht, 
Geos 1.2 auf mehr oder weniger großen Umwegen zu er¬ 
werben; offiziell wurde es in Deutschland jedoch so gut wie 
nicht vertrieben, außer eben als C64-Beilage. Und nach¬ 
dem Sie dieses Heft in den Händen halten, gehen wir si¬ 
cher recht in der Annahme, daß auch Sie Interesse an Geos 
haben oder es besitzen, und aller Wahrscheinlichkeit nach 
die englischsprachige Version 1.2. Da nun der Markt & 
Technik Verlag für 39 Mark ein Update Ihrer Geos-1.2-Dis- 
kette anbietet (ein Neuerwerb kostet immerhin 20 Mark 
mehr), haben Sie sich wahrscheinlich schon die Frage ge¬ 
stellt: Lohnt der Umstieg? 


Umsteigen, bitte! 


Bild 1. Die deutsche 
Benutzerführung von 
Geos 1.3 ist nur ei¬ 
ner der zahlreichen 
Vorteile der neuen 
Version 


Um es gleich vorwegzunehmen, wir meinen: Ja, auf jeden 
Fall! Folgende Gründe sprechen eindeutig dafür (die Rei¬ 
henfolge hat nichts mit der Gewichtung der Argumente zu 
tun): 

1. Deutsche Benutzerführung 

Viele Geos-1.2-Besitzer meinen, Sie würden die 39 Mark 
für das Update auf Geos 1.3 ausschließlich dafür ausge¬ 
ben, daß am Bildschirm deutsche 
Texte erscheinen (Bild 1). Dies ist je¬ 
doch - wie Sie gleich sehen werden 
- bei weitem nicht der wichtigste, 
wenn nicht gar der geringste 
Grund! 

Zum Grad der Übersetzung: Die 
gesamte Systemdiskette mit allen 
Applikationen und Hilfsmitteln wur¬ 
de ins Deutsche übersetzt, also 
auch Geowrite, Geopaint, »Prefe¬ 
rence Mgr« (jetzt: »Voreinstellung«). 

2. Deutsche Sonderzeichen 

Der große Nachteil jedes ameri¬ 
kanischen oder englischen Pro¬ 
gramms, also auch von Geos 1.2, 
liegt in der fehlenden Berücksichti¬ 
gung deutscher Umlaute. Doch 
nicht nur professionelle Anwendun¬ 
gen werden dadurch beeinträch¬ 
tigt: Wer möchte schon mit Texten 
und Bildern aufkreuzen, die nur so 
von »ae«, »oe« »ue« und »ss« strot¬ 



Seit einigen Monaten wird Geos in der neue¬ 
sten Version 1.3 und in deutscher Sprache ange- 
boten. Dieser Artikel geht der vielgestellten 
Frage nach, ob sich Umtausch oder Neuerwerb 

für Besitzer 
der alten 
Version 1.2 
lohnt. . 



zen? Andere Computeranwender mögen dafür Verständnis 
haben, doch bei Nicht-Freaks macht dies einen äußerst 
schlechten Eindruck. 

Geos 1.3 hingegen bietet die Zeichen »ä öüÄÖÜß« wie ei¬ 
ne Selbstverständlichkeit an (Bild 2). Besonders lobend sei 
die Orientierung an der DIN-Tastaturbelegung erwähnt, so 
daß man bei Geos 1.3 im Prinzip eine deutsche Standard- 
Schreibmaschine vor sich zu haben glaubt. 

Alle Geos-Zeichensätze sind zur Ausgabe dieser Zei¬ 
chen in der Lage, und selbst Drucker wie der MPS 801, die 
sonst keine Umlaute kennen, bringen diese dank Geos 1.3 
souverän zu Papier. 

3. Kein Ärger mit der Uhr 

Wer bei Geos 1.2 die Uhr (einzustellen im »Preference 
Manager«) verwendet hat, wird sicher von der »Genauig¬ 
keit« enttäuscht gewesen sein. Im Kurs »Der Schlüssel zu 
Geos« ab Seite 69 in diesem Heft finden Sie zwar ein Pro¬ 
gramm, das Abhilfe schafft, doch Geos 1.3 bietet eine ge¬ 
nau gehende Uhr von Natur aus. 


4. Deutsche Applikationen 

Alle Applikationen (Zusatzprogramme) zu Geos wurden 
teilweise »eingedeutscht«. Zwar laufen diese auch unter 
Geos 1.2, doch können Sie dann nicht die V1.3-typischen 
Vorteile (deutscher Zeichensatz, volle Unterstützung der 
Umlaute auch bei Sortiervorgängen) nutzen. 

Zudem entstehen teilweise verwirrende Texte, da anstel¬ 
le von Umlauten geschweifte Klammern oder ähnliche Zei¬ 
chen erscheinen. Denn die Geos-Applikationen, die Sie in 
Deutschland erhalten, sind in erster Linie für die deutsche 
Geos-Version 1.3 und erst in zweiter Linie für Geos 1.2 vor¬ 
gesehen. 

5. Nie mehr Absturz beim Booten 

Bei Geos 1.2 ist ein gravierender Mangel anzukreiden: 
Sehr oft stürzt es bereits beim Booten (Laden des Systems) 
ab! Dazu ergingen zwar von verschiedener Seite Vorschlä¬ 
ge und »Hilfen«, die sich jedoch meist nur als zusätzliche 
Erschwernisse entpuppten. Mit Geos 1.3 gehören Abstürze 
beim Booten des Systems ein für allemal der Vergangen- 
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8. Der neue Desktop 

Der neue Desktop von Geos 1.3 hat zwar keine neuen 
Funktionen gegenüber VI.2, erfreut jedoch durch verbes¬ 
serte Details. So erscheint unter dem Druckersymbol jeder¬ 
zeit der Name des eingestellten Druckertreibers (siehe Bild 
1). Für Insider eine große Hilfe! In der Praxis wirkt es sich 
stark aus, daß man nun die Funktion »Öffnen« (open) im 
Menü »Datei« (file) mit der Tastenkombination <CBM 0> 
blitzschnell erreicht; Sie können jedoch weiterhin das Dis¬ 
kettensymbol oder den Menüpunkt anklicken. Gleiches gilt 
für »Schließen« mit <CBM S> und »Input wählen« mit 
<CBM l> (siehe auch Argument 11). 

Im Menü (siehe Bild 1) werden diese »shortcuts« eben¬ 
falls angezeigt, so daß man nicht im Handbuch nachschla¬ 
gen muß. 

9. Weg mit den »swap files« 

Öffnet man unter Geos 1.2 ein Hilfsmittel und verläßt es, 
aus welchen Gründen (Absturz, Stromausfall) auch immer, 
nicht ordnungsgemäß über das anzuklickende Schließ¬ 
symbol, so bleibt im Directory ein lästiges »swap file« ste¬ 
hen. 

Mit Geos 1.3 hört dies auf: Dafür existiert der Filetyp 
»Temporär«, der die angenehme Eigenschaft hat, daß sol¬ 
che »vorübergehenden« Dateien unter Desktop nie er¬ 
scheinen, sondern augenblicklich gelöscht werden, ohne 
daß der Anwender davon gestört wird. 

10. Verbesserungen in Geowrite und Geopaint 

Die Anwendungsprogramme des Grundsystems, Geo¬ 
write und Geopaint, werden mit Geos 1.3 in neuerer Version 
(Geowrite jetzt als V1.3) ausgeliefert. Geopaint hat sich nur 
geringfügig bei der Bereichswahl verändert (jetzt kann es 
nicht mehr passieren, daß man in farbigen Bildern die Ein¬ 
färbungsgrenzen »erwischt«). 

G'owrite hingegen erfreut durch weitestgehende Tasta¬ 
tursteuerung bei den wichtigsten Menüfunktionen, das 
heißt statt Anklicken von »bold« unter »style« (jetzt: »Fett« 
unter »Stil«) genügt auch < CBM B > und so weiter. Die Be¬ 
dienbarkeit erhöht sich dadurch für alle Gruppen von An¬ 
wendern - vom Anfänger bis zum ausgesprochenen Viel¬ 
schreiber - deutlich. Wer einmal Geowrite 1.3 bedient hat, 
kann sich nicht mehr vorstellen, ohne »shortcuts« (Tasten¬ 
drücke zur Menüauswahl) auch nur annähernd so bequem 
zu arbeiten. Da die Menüs als Bedienungsmöglichkeit wei¬ 
terhin erhalten bleiben und in den Menüs alle »shortcuts« 
an den richtigen Stellen vermerkt sind (Bild 2), entstehen 
durch das neue Geowrite nur Vorteile. 

11. Neue Treiber und Demobilder 

Außer verbesserten Versionen von bestehenden Geos- 
Programmen bietet der Geos-1.3-Lieferumfang auch neue 


heit an (es sei denn, Sie ziehen beim Laden die Diskette mit 
Gewalt aus dem Laufwerk). 

6. Das bessere Kopierprogramm 
Mit Geos 1.2 wurde ein Kopierprogramm ausgeliefert, 

das alles andere als schnell und nicht einmal für Arbeitsdis¬ 
ketten verwendbar war, obwohl man gerade für diesen 
Zweck ein Backup-Programm benötigt. Geos 1.3 hat nun 
ein hervorragendes Programm namens »Diskettenkopier« 
aufzuweisen, das sehr schnell, flexibel, bedienungsfreund¬ 
lich und hilfreich ist; es kopiert Arbeitsdisketten und ist in 
deutscher Sprache gehalten. 

7. Die Sicherheitskopie der Systemdiskette 

Sehr erfreulich an Geos 1.3: Sie erhalten die Systemdis¬ 
kette in zweifacher Ausfertigung: einmal die »Systemdisk«, 
einmal das »Backup-System«. Dadurch sind Sie vor Daten¬ 
verlusten besser geschützt. Insgesamt befindet sich Geos 
1.3 auf vier Diskettenseiten: System, Backup, Anwendun- Bild 2. Deutsche Umlaute erreicht man über eine DIN- 
gen (= Geowrite, Geopaint, Hilfsmittel), Treiber (Drucker- ähnliche Tastaturbelegung. Geowrite läßt sich auch weitge- 
treiber und Demobilder). hend über Tastenkombination steuern. 
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zufällige Beschädigungen dieser "Haupt-"disketten zu vermeiden. Indem 
sie besonders behandelt werden: 


lesk Pack 1, qeoDex. Writer's 
Disketten, von denen wir 
schlitzen wollen. Die 
imme wurden entwickelt, um 


1) desklop U1.3 erlaubt Ihnen nicht, Dateien vom Schreibtischblock 
einer "Haupt-"diskette zu löschen, Sollten Sie eine Datei wirklich 
löschen wollen, können Sie sie zunächst an den Rand verschieben, 
und sie dann von dort aus In den Papierkorb werfen. 


2) desklop U1.3 macht es unmöglich, daR eine Datei auf einer 
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Dateien: So findet man beispielsweise weitere Druckertrei¬ 
ber, die somit noch mehr Drucker für Geos ansprechbar 
machen. Des weiteren gibt es außer für den Joystick auch 
Eingabetreiber für eine Maus (Commodore 1351), Koala- 
Tablett und Lichtgriffel (Lightpen). 

12. Konfiguration: Geos maßgeschneidert 

Der revolutionärste Unterschied wird nun sichtbar, wenn 
man eine RAM-Erweiterung von Commodore (1700 oder 
1750) besitzt oder erwerben will. Dann stehen folgende 
Möglichkeiten zur Auswahl (Bild 3): 

12.1 RAM-Floppy: Geos kann im RAM der 1750 (512K zu¬ 
sätzlicher Speicher) eine sogenannte RAM-Floppy betrei¬ 
ben. Dies bedeutet, daß mit Hilfe des Speichers eine zweite 
Floppy simuliert wird, mit derselben Kapazität wie eine ech- 



Bild 3. Das Konfigurations-Programm von Geos 1.3 erlaubt mit 
einer 1750-RAM-Erweiterung professionelles Arbeiten 


te Diskette, aber mit vielhundertfach höherer Geschwindig¬ 
keit! Bei einer RAM-Floppy fällt keine zeitliche Verzögerung 
auf, wenn ein Programm geladen wird: Es wird nicht in den 
Speicher geholt, sondern es ist einfach da! 

Gerade bei nachladenden Applikationen (Extremfall: 
Geopublish) verschafft einem diese Eigenschaft das Ge¬ 
fühl, einen Computer mit nie versiegendem Speicher vor 
sich zu haben; man meint, alle Funktionen wären resident 
(= im Hauptspeicher vorliegend). 

Dauert beispielsweise der Start eines Desk Accessory 
(Hilfsmittel) ohne RAM-Floppy lange, und der Rücksprung 
zur aufrufenden Applikation noch länger, geschieht dies 
mit RAM-Floppy in »Nullkommanichts«. Das Kopieren von 
Dateien oder Disketten geschieht mit RAM-Floppy bei nur 
einem einzigen Diskettenwechsel und mit atemberauben¬ 
der Geschwindigkeit. 

Kurz: Für einen ernsthaften Geos-Anwender ist eine 
RAM-Floppy mehr als lohnend; sie macht aus dem C 64 mit 


Geos ein professionelles System. Man benötigt dazu aller¬ 
dings die RAM-Erweiterung 1750 von Commodore (mit der 
1700 geht es nicht). 

12.2 Schattierung einer Floppy 

Das Prinzip entspricht einer RAM-Floppy in Grundzügen: 
Alle Sektoren werden beim ersten Einlesen im RAM zwi¬ 
schengespeichert, so daß beim zweiten Zugriff ein blitz¬ 
schnelles Auslesen möglich ist, weil ein Diskettenzugriff 
zugunsten einer wesentlich flinkeren RAM-Operation ge¬ 
spart wird. 

Mit der 1700- oder 1750-Erweiterung stellt auch Geos 1.3 
diesen Geschwindigkeitsvorteil auf dem C64 zur Verfü¬ 
gung. Besonders macht sich dies bei Zugriffen auf 
Directory-Blöcke sowie die Desktop-Datei bemerkbar, da 
diese Sektoren erfahrungsgemäß mehrfach pro Arbeitssit¬ 
zung eingelesen werden. 

12.3 Beschleunigter DMA-Zugriff 

Da die Speichererweiterung einen eigenen DMA- 
Controller (Chip zur Speicherverwaltung) hat, läßt sich die¬ 
ser für jeglichen Datentransfer im Hauptspeicher nutzbrin¬ 
gend einsetzen. So wird das »Herumsuchen« in einem 
Geopaint-Dokument dadurch rasend schnell. 

12.4 Schnellerer Neustart 

Als letzter Punkt sei auch diese hilfreiche Beschleuni¬ 
gung erwähnt: Bei angeschlossener RAM-Floppy ist ein 
Neustart des Geos-Systems nach Reset oder Verlassen 
über »speziell/BASIC« in Rekordzeit möglich. Dazu tippt 
man einfach 
load"rboot", 8,1 

Befindet sich in der RAM-Floppy die Datei Desktop, so 
dauert der gesamte Neustart zirka 5 Sekunden, ansonsten 
zirka 16 Sekunden. Damit ist man zwischen zwei- und sie- 
benmgd. so schnell beim Neustart wie ohne Geos 1.3. 

Rizit 


Sie haben nun ein ganzes Dutzend Argumente gehört (be¬ 
ziehungsweise gelesen). »Mit Gewalt« ließen sich sicher¬ 
lich noch weitere Gründe für den Umtausch finden, aber wir 
haben uns auf diejenigen Punkte beschränkt, die in der 
Praxis ins Gewicht fallen. 

Natürlich wollen wir Ihnen Geos 1.3 nicht »aufschwät¬ 
zen«, doch die genannten Gründe für den Umtausch sind 
objektiv feststellbare Tatsachen. Es liegt nun an Ihnen, ob 
die Vorteile für Sie 39 Mark wert sind (Preis für Update). Wir 
finden die Geos-1.3-Vorzüge sind dies allemal wert. 

(Florian Müller/sk) 

Wenn Sie Ihre Geos-1.2-Syslemdlskelle aul V1.3 «updaten« lassen wollen, so schlckon Sie diese 
mit einem Verrechnungsscheck Ober 39 Mark an den Mark! 8 Teohnlk Buchverlag, Hans-Pinsel- 
Sir, 2,8013 Haar bei München, Tel. (089) -1613 -.0, Goos 1,3 Isl auch bol Mark! 8 Technik Buchver¬ 
lag erhältlich für 69 Mark. 


Warum Geos 128? 

Geos 128 ist nun endlich verfügbar. Ist dieses Betriebssystem für den 
C128-Modus interessant und wo liegen die Vorteile gegenüber Geos 64? Dieser 
Beitrag liefert die nötigen Informationen für potentielle Auf- und Umsteiger. 


B evor es den C128 überhaupt zu kaufen gab, verfügte 
er schon über ein reichhaltiges Angebot an Software: 
Für den eingebauten CP/M-Modus gab es ein riesiges 
Angebot an Software. Leider hatte die Sache einen Haken: 

Der CP/M-Modus überzeugte zwar im Bereich der Pro¬ 
grammiersprachen, war aber für ernsthafte Anwendungen 
zu langsam und auch nur schwer zu beherrschen. Der 
C64-Modus blieb weiterhin interessant, vor allem um - als 
Umsteiger vom C 64 zum C128 - alte Software weiterzuver¬ 


wenden. Mittlerweile sind die wichtigsten C64-Programme 
(Vizawrite, Superbase) auch an den C 128-Modus angepaßt 
und bieten dort zusätzlichen Arbeitsspeicher, manchmal 
auch völlig neue Programmfunktionen. Ein Umstieg von 
C64-Versionen auf C128-Updates war aber für viele An¬ 
wender keine Alternative, so daß nach wie vor viele C64- 
Anwendungen in der C128-Praxis eingesetzt werden. 

Ein echtes Privileg des C64 gegenüber dem C128 war 
bis vor kurzem noch Geos. Nicht nur, daß es der 
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Bild 1. So präsentiert sich Desktop von Geos 128 - schnell 
und mit hoher Auflösung 


C64-Anwender mit dem Computer kostenlos erhält, son¬ 
dern auch das völlig neue Geos-Konzept schien dem 
C128(-Modus) verschlossen. So kam es, daß unzählige 
C128-Besitzer ihre wichtigsten Anwendungen (Textverar¬ 
beitung, Dateiverwaltung, Grafik) mit der C64-Software 
Geos - natürlich Version 1.2 - erledigten. 

Was lange währt, wird endlich gut 


Im Beliebtheitsgrad der C 128-Fans liegt Geos 64 sicherlich 
vor jeder anderen C 128-Software, wenn man den vielen Le¬ 
serzuschriften glauben kann, die wir täglich erhalten. So¬ 
mit wartete die C 128-Welt lange Zeit auf... Sie haben es er¬ 
raten: Geos 128 mit besonderen C 128-Funktionen, um des¬ 
sen größere Kapazität zu nutzen. Zunächst schien dies 
nicht möglich. 

Experten sagten ein Scheitern des Geos-128-Projektes 
voraus und zunächst einmal verging viel Zeit. Bis uns eines 
Tages die Geos-Macher aus Kalifornien eine bahnbrechen¬ 
de C128-Version von Geos präsentierten, die noch weit 
mehr leistete, als man sich in den kühnsten Träumen erhofft 
hätte. Bei Geos 128 wurde ein kleines Software-Wunder 
vollbracht. Im 40-Zeichen-Modus ändert sich die Bild¬ 
schirmdarstellung nicht, doch die 80-Zeichen-Darstellung 
findet kompromißlose Unterstützung (Bild 1). 

Wir sagen Ihnen im folgenden genau, welche Vorteile es 
für Sie - als C 128-Anwender und gleichzeitig Besitzer von 
Geos 64- bringt, auf Geos 128 umzusatteln. Sie werden be¬ 
stimmt sehen, daß es viele gute Gründe gibt, trotz der feh¬ 
lenden Möglichkeit eines verbilligten Updates, Geos 128 zu 
erwerben. 

1. Volle Aufwärtskompatibilität 

Die Aufwärtskompatibilität des C128 gegenüber seinem 
Nachfolger C64 ist bekanntlich mit Vorsicht zu genießen. 
Von 100%iger Kompatibilität konnte mit Sicherheit keine 
Rede sein. Ganz anders verhält sich Geos 128 im Vergleich 
zu Geos 64: Dateien von Geopaint, Geowrite oder anderen 
Applikationen sind uneingeschränkt verwendbar. Dies gilt 
auch für Foto-Scraps und Fotoalben, Text-Scraps und Text¬ 
alben sowie Calc Scraps von Geocalc. Programme laufen 
nach dem Motto »alles oder nichts«: Die Originalprogram¬ 
me von Berkeley Softworks sind nach wie vor im 
40-Zeichen-Modus von Geos 128 in vollem Maße lauffähig. 

Hat man bestehende Zusatzprogrammö (Applikationen) 
von Berkeley Softworks bereits »installiert«, so stellt dies 
kein Hindernis für einen Betrieb mit Geos 128 dar: Bereits 


beim ersten Booten der Systemdiskette fragt Geos 128, ob 
Sie bereits andere Applikationen installiert haben und rich¬ 
tet sich darauf ein. 

2. Profi-Auflösung 

Geos 128 arbeitet wahlweise im 40- oder 80-Zeichen- 
Modus. Im Desktop und den Applikationen Geowrite und 
Geopaint können Sie sogar ohne Datenverlust mit »switch 
40/80« umschalten. Die Geos-128-spezifischen Anwen¬ 
dungen laufen ausschließlich im 80-Zeichen-Modus; er¬ 
hältlich sind Geofile 128, Geocalc 128 und Geowrite Work¬ 
shop 128. Die Geos-64-Anwendungen sind, wie schon ge¬ 
sagt, nur im 40-Zeichen-Modus aktiv. Das Umschalten ist 
hier also nicht möglich. 

Im 80-Zeichen-Modus nutzt Geos 128 nicht den gesam¬ 
ten Bildschirm, stellt jedoch fast doppelt so viele Bildpunkte 
dar wie in der 40-Zeichen-Darstellung des Geos 64. Der 
VDC (80-Zeichen-Chip des C128) ist zwar nicht in der Lage, 
Sprites darzustellen, doch Geos simuliert diese bewegten 
Objekte zur Darstellung von Mauszeiger, Textcursor und 
verschiebbaren Piktogrammen hervorragend; es entsteht 
eine ruckfreie, fließende und schnelle Darstellung. Gerade 
hier hätten viele C128-Kenner Probleme erwartet, die je¬ 
doch von Geos 128 gemeistert werden. Im 80-Zeichen-Mo- 
dus läßt sich nur schwarzweiß arbeiten, was jedoch ledig¬ 
lich bei Geopaint Auswirkungen hat und dem Geos-Betrieb 
an sich keinen Abbruch tut. 

Die höhere Auflösung von Geos 128 bewirkt beispiels¬ 
weise, daß »preview«-Ubersichten erheblich besser er¬ 
kennbar sind (Bild 2 entstand mit Geopaint 128, Bild 3 mit 
Geowrite Workshop 128). Zudem ist die Schrift besser les¬ 
bar, da der Systemzeichensatz BSW-9 in einer speziellen 



Bild 2. Bel Geopaint 128 ist die »prevlew«-Funktion wegen 
der höheren Auflösung viel detaillierter. 

C 128-Fassung vorliegt. Am Desktop-Foto (Bild 1) ist dies zu 
erkennen. Wenn Sie diese klare Darstellung am Bildschirm 
sehen, werden Sie begeistert sein. 

Zudem bringt der Betrieb von Geos-128-Applikationen 
mit sich, daß das lästige Bildschirm-Scrolling in horizonta¬ 
ler Richtung entfällt. Lediglich in der Vertikalen rollt man 
den Bildschirm jetzt noch ab.Dadurch ist das Arbeiten an¬ 
genehmer, bringt deutlich bessere Ergebnisse und be¬ 
schleunigt dadurch bereits den Umgang mit Geos 128. 

Geopaint 128 wurde zu diesem Zweck so geändert, daß 
die Werkzeugleiste nur noch auf Wunsch erscheint und wie 
ein Fenster wieder abzubauen ist (Bild 2). Erst bei An¬ 
klicken des Schraubenschlüssels nimmt die Werkzeuglei¬ 
ste einen Teil des Zeichenfensters in Anspruch. Die zur Ver¬ 
fügung stehende Arbeitsfläche wird durch dieses Feature 
also noch größer. 
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3. Doppelte Geschwindigkeit 

In der 80-Zeichen-Darstellung ist Geos 128 doppelt (I) so 
schnell, indem es den Prozessor im FAST-Modus mit 2 MHz 
Taktfrequenz betreibt. Bei Berechnungen ohne Disketten¬ 
zugriff wirkt sich dies kolossal aus, zum Beispiel in umfang¬ 
reichen Geowrite-Texten oder Geocalc-Berechnungen. 
Auch die »preview«-Funktion aller Geos-Applikationen, die 
zwar auf die Floppy zugreift, aber darüber hinaus viele Be¬ 
rechnungen erfordert, wird ebenso wie das Ausdrucken er¬ 
heblich schneller. 

4. Alle Vorteile von Geos 64 VI .3 

In der deutschen Fassung bietet Geos 128 obendrein für 
Umsteiger von Geos 64 VI.2 alle Vorteile, die das Umsat¬ 
teln auf Geos 64 VI.3 bringen würde. Im Artikel »Warum 
Geos 1.3 ?« ab Seite 46 finden Sie zwölf Argumente, von de¬ 
nen der deutsche Zeichensatz nur eines ist. 

Wenn Sie als C 128-Anwender Geos 64 VI .2 gegen Geos 
64 VI .3 Umtauschen wollen, so ist Geos 128 wegen der wei¬ 
teren Vorteile bestimmt empfehlenswert. Der Preisunter¬ 
schied ist nicht so groß, als daß er dagegenspräche. 

5. Doppelte Floppy-Kapazität 

Haben Sie eine 1571-Floppy, so nutzt Geos 128 (im Ge¬ 
gensatz zu Geos 64) deren volle Kapazität. Gerade ein so 
speicherintensives System wie Geos wird dadurch noch 
wertvoller. Vor allem umfangreiche Projekte lassen sich da¬ 
mit bestens durchführen, weil man nicht mehr auf jedes By¬ 
te seiner Arbeitsdisketten achten muß. 

Beim Formatieren ist Geos 128 sehr flexibel 

Auch die RAM-Floppy ist als »RAM 1571« (Bild 4) möglich. 
Leider wurde jedoch die »Schattierung« einer Floppy (siehe 
»Warum Geos 1.3?«) wieder aufgegeben, was jedoch bei 
den ohnehin kurzen Zugriffszeiten nichts ausmacht. 

Neu an Geos 128: Auch die 1581 (3V2-Zoll-Floppy von 
Commodore) mit über 800 KByte Speicher wird unterstützt. 
In England und den USA wird Geos 128 bereits im 3 V 2 - 
Zoll-Format ausgeliefert, momentan läßt sich die 1581 be¬ 
reits als Zweitlaufwerk einsetzen. 

6. Alle Tasten des C128 

Geos 64 im C 64-Modus des C128 nutzt die zusätzlichen 
Tasten des C128 gegenüber dem C64 nicht. Geos 128 hin¬ 
gegen wird durch die DIN-Beschriftung der C128-Tastatur 
und den zusätzlichen Ziffernblock aufgewertet. Die Taste 
<ASCII/DIN>, bei manchen C128-Modellen auch mit 
<CAPS LOCK> beschriftet, hat jetzt aber eine Funktion, 
die mit <SHIFTLOCK> zu vergleichen ist: Jeder eingege¬ 
bene Buchstabe ist automatisch ein Großbuchstabe. Dies 



Bild 3. Für Geos 128 gibt es spezielle Applikationen, hier 
Geowrite Workshop 128 Im »preview«-Modus 



Bild 4. Hoher Komfort und Geschwindigkeit durch Ver¬ 
wendung einer RAM-Floppy mit 512 KByte. 

ist auch die Funktion von <CAPSLOCK> beim amerikani¬ 
schen C128, nur für den deutschen Markt wurde die ASCII/ 
DIN-Umschaltung eingeführt. Der Vorteil von <CAPS 
LOCK> gegenüber <SHIFT LOCK> besteht darin, daß 
< SHIFT> auch an unerwünschten Stellen Wirkung zeigt, 
zum Beispiel bei den Cursortasten, die sich dann nicht 
mehr in alle vier Richtungen bewegen lassen. <CAPS 
LOCK> ist »intelligent« und tritt nur bei Buchstaben, nicht 
jedoch bei Symbolen und Steuertasten in Kraft. 

7. Mehr Speicher - der Druckertreiber bleibt im RAM 

Da Geos alle umfangreichen Dateien auf Diskette ausla¬ 
gert, fäl" • 1 3 i Geos 128 der zusätzliche RAM-Speicher des 
C128 zunächst nur durch erhöhte Arbeitsgeschwindigkeit 
- sprich: weniger Floppy-Zugriffe - auf. Doch an einem Bei¬ 
spiel, das jedem Geos-64-Anwenderzu schaffen macht, er¬ 
gibt sich ein großer Fortschritt: Der jeweils voreingestellte 
Druckertreiber muß nicht bei jedem Ausdruck geladen wer¬ 
den, sondern ist bereits nach dem Booten »für immer« im 
Hauptspeicher resident. 

Auf Arbeitsdisketten benötigt man also die Dateien mit 
dem niedlichen Drucker-Symbol nur noch, wenn mehrere 
Drucker parallel verwendet werden. 

8. RESET In den Geos-Betrieb 

Geos 128 reagiert auf einen Reset (Auslösen des Reset- 
Schalters auf der rechten Gehäuseseite), indem es sich 
von neuem aktiviert und den Desktop zu laden versucht. 
Dadurch ist eine echte Neuinitialisierung möglich, ohne 
daß ein komplettes Booten erfolgt. Hat man jedoch eine 
RAM-Floppy, so kann man durch Eingabe von 
BOOT "RB00T * 

das System wiederherstellen (siehe Argument 4). 

Geos 128 hat den C128 jetzt zum Vier-Betriebssystem- 
Computer gemacht: 

1. C128-Modus 

2. CP/M 

3. C 64-Modus 

4. Geos 128 

Die acht genannten Eigenschaften machen Geos 128 zu 
einem »Muß« für jeden C 128-Anwender. Wenn Sie weiter¬ 
hin Geos 64 im C64-Modus Ihres C128 betreiben, so spa¬ 
ren Sie mit Sicherheit am verkehrten Ende. Leisten Sie sich 
das Profi-Geos für Ihren C128, es zahlt sich in der Praxis 
aus. (Florian Müller/sk) 

Geos 128 ln deutscher Fassung erhallen Sie lür 119 Mark im Fachhandel oder beim Mark! & Tech¬ 
nik Verlag, Hans-Pinsel-Str. 2, 8013 Haar bei München, Tel. (089) 4613-0. 

Angekündigt und In Kürze lieferbar: Geocalc 128, Geollle 128, Geowrite Workshop 128. allesamt 
mit deutschen Dialogboxen. Preis und Verhieb wie Geos 128. 
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Geos - Programmieren hoch 4 


Wollen Sie anspruchsvolle Anwendungspro¬ 
gramme mit Geos-Komfort erstellen? Wir zeigen 
Ihnen vier Wege, die an dieses Ziel führen und je¬ 
des Programmiererherz höher schlagen lassen. 

D ie Faszination, die Geos bereits vom optischen Ein¬ 
druck her ausübt, ist schwer in Worte zu fassen. Es 
gibt kaum noch einen Besitzer des C64 oder C128, 
der die grafische Benutzeroberfläche nicht kennt; bereits 
das Erscheinen dieses Sonderheftes zeigt, daß Geos tat¬ 
sächlich zum neuen Standard geworden ist. Das unqualifi¬ 
zierte Urteil »Geos ist nur eine sinnlose Spielerei« findet kei¬ 
ne Vertreter mehr, denn gerade für Anwendungs-Software 
ist Geos die ideale Programmierumgebung. 

Doch neben der Freude an der Geos-Anwendung ent¬ 
steht häufig bereits beim ersten Kontakt mit der Geos-Welt 
der feste Vorsatz, auch ein Programm zu schreiben, das un¬ 
ter Geos läuft. Eben mit Pull-Down-Menüs, Dialogboxen, 
Icons, Windows, vielen Zeichensätzen, toller Grafik, 
Schriftarten und schnellen Floppy-Zugriffen. 

Doch für die allermeisten Geos-Anwender ist die Pro¬ 
grammierung von Geos immer noch ein Buch mit sieben 
Siegeln. Dieser Artikel soll Ihnen zeigen, daß eine Hemm- 



Bild 1. Becker-Basic wird als Buch mit beigefügter Diskette 
als sogenannte »Bookware« ausgeliefert 


schwelle vor Geos völlig unbegründet ist. Wer den 
C64/CI28 »an sich«, also ohne Geos, programmieren 
kann, wird auch Geos bald beherrschen. Und dann können 
auch Sie bessere Software entwickeln, als Sie jemals für 
möglich gehalten haben! 

Der Traum vom perfekten Programm 


Geos legt dabei jedoch zwei Hürden in den Weg, die aber 
mit geeigneten Hilfsmitteln durchaus zu nehmen sind: Zum 
einen gibt es bislang noch relativ wenig Informationen, zum 
anderen wird mit dem Geos-Basispaket zwar Geowrite und 
Geopaint, aber weder Basic noch Assembler oder eine son¬ 
stige Programmiersprache geliefert. 

Das erste Problem bekommen Sie mit Hilfe dieses Son¬ 
derheftes schnell in den Griff. Ein kompletter Programmier¬ 
kurs, der Sie weitgehend einführt, wenn er auch nicht alle 


Bereiche abdecken kann, ist hier ebenso zu finden wie eine 
Rubrik »Bücher« mit Vorstellungen der aktuellen Geos- 
Standardwerke. 

Es ist auf jeden Fall festzuhalten, daß man ohne ein um¬ 
fassendes Programmierhandbuch (die Geos-Software ist 
schließlich zirka doppelt so umfangreich wie das ROM- 
Betriebssystem des C64) nicht auskommt. Deshalb wer¬ 
den wir bei der Vorstellung der möglichen Software- 
Systeme zur Programmentwicklung mit Geos auch jeweils 
darauf hinweisen, welche Literatur sich am besten eignet. 

Gewußt wie - Programmiersoftware 
für Geos 


Im folgenden stellen wir vier verschiedene Programmier¬ 
methoden (zwei für Maschinensprache, zwei für Basic) vor, 
zeigen die Ergebnisse auf, die damit zu erreichen sind, und 
ziehen am Schluß einen systematischen Vergleich. Im ein¬ 
zelnen behandeln wir die folgenden Systeme: 

1. Hypra-Ass, GEOSMON und zusätzliche Tools (Geos 
File-Linker) 

2. Geoprogrammer, das offizielle »Development Package« 

3. Becker-Basic, ein herausragendes deutsches Produkt 

4. Geobasic, das offizielle Basic zu Geos 

Jede Programmierumgebung hat, wie schon gesagt, 
ihre spezifischen Vor- und Nachteile. Auch die Kostenfrage 
nimm* einen hohen Stellenwert ein; es ist eine völlig andere 
Voraussetzung, nur in Geos hineinschnuppern zu wollen, 
als ein komplexes Projekt zu planen. Betrachten Sie unter 
diesem Aspekt auch die Vergleichstabelle am Schluß des 
Artikels (Tabelle 2). 

System 1: Makro-Assembler, 
GEOSMON, Geos-Tools 


Mit Makro-Assemblern wie Hypra-Ass (oder dem noch lei¬ 
stungsfähigeren Giga-Ass aus dem 64'er-Sonderheft 21) ist 
es dem Maschinenprogrammierer ein leichtes, für den 
C64/C128 Objektcodes von Assembler-Quelltexten zu er¬ 
zeugen. Beim Assemblieren in den Speicher genügt »SYS 
(Startadresse)« zum Starten, ein Speichermonitor erlaubt 
den Test, und das Assemblieren auf Diskette erzeugt ein Fi¬ 
le, das aufgrund seiner Startadresse jederzeit mit »LOAD- 
" NAME" ,8,1« geladen und wie oben beschrieben gestartet 
werden kann. 

Bei Geos ist dies alles nicht möglich. Objektcodes wer¬ 
den als »OLD C 64«-Dateien entlarvt, beim Startversuch mit 
Doppelklick ergeht eine Fehlermeldung, oder der Geos- 
Betrieb endet noch, bevor das Programm geladen wird. 

Vieles hängt also vom Dateiformat ab. Selbst wenn die 
Befehle eines Objektcodes genau für Geos zutreffen, ist je¬ 
de Datei zuerst ins Geos-Dateiformat zu übertragen. Im ein¬ 
zelnen könnte man also - wie es bislang noch gang und 
gäbe ist - in folgender Reihenfolge verfahren: 

I. Mit dem Assembler (zum Beispiel Giga-Ass oder 
Hypra-Ass) erstellt man einen Assembler-Quelltext. 

II. Diesen assembliert man auf Diskette. 

III. Mit speziellen Hilfsprogrammen (Tools) bringt man den 
Objektcode ins Geos-Format. 

IV. Die Datei wird mit dem Desktop kopiert, bearbeitet und 
gestartet. Zuvor ist natürlich Geos zu booten. 


330 ? 


SONDERHEFT 28 


51 
















GEOS-GRUNDLAGEN 


C64 


V. Bei Fehlern ist zur Neubearbeitung nochmals der 
Quelltext zu laden und zu ändern, es geht dann weiter 
wie bei II. 

An diesem 5-Schritte-Plan lesen Sie bereits einiges ab. 
Zunächst benötigt man also neben einem Makro- 
Assembler, der auf Diskette assemblieren kann, auf jeden 
Fall zusätzliche Tools. Theoretisch ließe sich die Bearbei¬ 
tung einer Objektcode-Datei auch mit einem einfachen Dis¬ 
kettenmonitor durchführen; doch da man unter anderem 
freie Blöcke auf Diskette suchen muß und wirklich »Unmen¬ 
gen« (über 260 Bytes) an Geos-spezifischen Daten zu 
schreiben hat, würde dies viel zuviel Zeit kosten. 

In diesem Heft und auf der Leserservice-Diskette dazu 
befindet sich bereits ein Programm von hohem Wert: 

Im Programmierkurs ist der »Geos File-Linker« abge¬ 
druckt, dersogarden Icon-Entwurf zuläßt. Dieses Tool allei- 


1 NAME 

EIGENSCHAFTEN 

Hypra-Ass 

Leistungsfähiger 2-Pass-Makroassem- 
bler, Listlng des Monats in 64'er 7/85. Er 
wird auf der Diskette zusätzlich mit einer 
kleinen Modifikation geliefert, die die 
Programmierung zu Geos-Zwecken er¬ 
leichtert. Auch der noch leistungsfähige¬ 
re Giga-Ass (Sonderheft 21) Ist natürlich 
verwendbar. 

GDM 

Geos Disk-Monitor, in diesem Heft als 
Listing (siehe Kurs »Der Schlüssel zu 
Geos«), 

GEOSMON 

Das bekannte Listing SMON, angepaßt 
an den Geos-Zeichensatz. Läuft aber 
nicht unter der Geos-Oberfläche und 
dient vor allem als Diskettenmonitor für 
SMON-erfahrene Anwender. 

Geos Icon-Editor 

Im Geos-Rle-Linker integriert (Seite 69 ff.) 

Geos File-Analyzer 

Programm zur komfortablen Analyse 
und Manipulation von Geos-Dateien. Er¬ 
laubt Zugriff auf alle Geos-typischen In¬ 
formationen, auch den Infosektor. Modul 
»GEOS-BSOUT« konvertiert Geos-Zei- 
chen in den C64-Code. 

Geos VUR-Analyzer 

Aufschlüsselung von VLIR-Dateien und 
ihren Datensätzen. Komfortable Filese¬ 
lektion und Druckausgabe. 

Geos Flle-Freak 

Ähnlich wie Geos File-Analyzer zur Ana¬ 
lyse und Manipulation geeignet. Menü¬ 
steuerung und eingebauter Icon-Editor. 

Geos File-Linker 

Unbedingt benötigtes, kurzes und 
schnelles Einbindungsprogramm für 
Objektcodas ins Geos-Format. Auch als 
Listing in diesem Heft (Kurs »Der 

Schlüssel zu Geos«), 

Geos Pattern-Editor 

Nicht zum Programmieren nötig. Auch 
als Listing ln diesem Heft ab Seite 35 

Geos 50Hz-Maker 

Nicht zum Programmieren nötig. Auch 
als Listing in diesem Heft (Kurs »Der 
Schlüssel zu Geos«), 

Geos Sprlte-Prinl 

Erstellt Hardcopies von Geos-Bildschir- 
men inklusive Sprites (Mauszeiger, Text¬ 
cursor, Bereichsindikator und ähnliches). 

Für Dokumentationen von Programmen 
unerläßlich. Erspart Bildschirmfotos. 

Butfirsl 

Verkürzt Objektcode-Files um die bei 

Geos nicht mehr benötigte Startadresse. 
Kleines, aber nützliches Programm. 

Geos-Library 

Komplette (1) Geos-Labelbibliothek zu 

Geos mit vielen Makros. Format: Hypra- 
Ass. 

Geos Icon-Creator 

Erstellt komfortabel Bildschirm-Icons (als 
Bedienungseinheiten zum Anklicken) 
und generiert sogar die benötigten 
Quelltext-Daten im Hypra-Ass-Format. 


Tabelle 1. Diese Tools helfen Ihnen bei der Erstellung von 
Anwendungsprogrammen unter Geos 


ne genügt bereits völlig, um Programme startklar zu ma¬ 
chen! 

Ein wahres Arsenal an Geos-Tools, das auch »File- 
Linker« und »Icon-Editor« einschließt, ist die Rückseite der 
Diskette zum Buch »C64 - Alles über GEOS 1.2« bezie¬ 
hungsweise »C64 - GEOS 1.3« aus der Commodore-Sach- 
buchreihe (Tabelle 1). 

Zurück zum 5-Schritte-Plan. Dieser hat, wie Sie vielleicht 
schon gemerkt haben, den Vorteil, daß Sie Ihren gewohn¬ 
ten Makro-Assembler - es muß ja nicht der Hypra-Ass sein 
- weiterverwenden können. Die Anwendung zusätzlicher 
Tools ist, da diese zumeist recht kurz sind, nicht sehr zeit¬ 
raubend; doch das Untersuchen eines Programms auf Feh¬ 
ler (Debugging) ist mit dem System 1 eine reine Qual. Er¬ 
weist sich der Objektcode noch als fehlerhaft, so ist folgen¬ 
de Prozedur für den Korrekturversuch durchzuführen: 

I. Geos verlassen 

II. Assembler (Hypra-Ass) laden 

III. Quelltext laden und korrigieren 

IV. Objektcode auf Disk erzeugen, zuvor alten Objektcode 
löschen 

V. Datei mit Info-Sektor versehen 

VI. Geos wieder booten 

VII. neuen Objektcode starten und testen 

Unzählige Diskettenzugriffe müssen also erfolgen, bis 
der nächste kleine Fortschritt erzielt ist. Deshalb setzt die 
Entwicklung sehr komplexer Programme mit System 1 ein 
hohes Maß an Geduld voraus. 

Große Erleichterung bietet jedoch der Erwerb einer 
RAM-Floppy 1750, wodurch zumindest das Neu-Booten 
von Geos beschleunigt wird und eventuell auch die Tools 
schneller verfügbar sind, wenn man sie erst einmal in die 
RAM-Disk kopiert hat. 

Zudem :3t das Austesten dadurch erschwert, daß nach 
wie vor ein Monitorprogramm fehlt, welches unter Geos ab¬ 
läuft. Der GEOSMON ist zwar an den Geos-Systemzei- 
chensatz angepaßt, dient jedoch nicht zur Arbeit unter 
Geos, sondern zur Behandlung von Geos-Disketten und 
zur Analyse von Geos, wohlgemerkt: nach einem Reset! 

Dies soll jedoch nicht darüber hinwegtäuschen, daß Sy¬ 
stem 1 für Lernzwecke bestens geeignet ist; die einzelnen 
Bestandteile sind allesamt als Listings erhältlich und zeich¬ 
nen sich durch Leistungsfähigkeit und gute Erlernbarkeit 
aus. Da man seinen alten Makro-Assembler weiterhin ver¬ 
wenden kann, entstehen von dieser Seite keine Umstel¬ 
lungsprobleme. 

Von der Leistungsfähigkeit des Endproduktes her setzt 
System 1 keinerlei Grenzen (außer der Speichergrenze, 
Objektcode bis maximal 24 oder 32 KByte), Maschinen¬ 
sprache ist und bleibt die effektivste Art der Programmie¬ 
rung. Der Komfort beim Programmieren ist selbst trotz der 
hohen Qualität der Tools, die übrigens allesamt anpas¬ 
sungsfähig und erweiterbar sind, der herkömmlichen 
C64-Programmierung etwas unterlegen. Dafür wird der 
Programmierer durch sehr gute Ergebnisse entschädigt. 

System 2: Geoprogrammer 


Um es gleich zu sagen: Von System 1 kann man jederzeit 
auf System 2 umsteigen. Wenn man so will, ist System 2 die 
Profi-Ausstattung von System 1, mit allem Luxus, den sich 
ein Programmierer nur wünschen kann. 

Auch der Geoprogrammer wendet sich an Assembler- 
Freaks. Dieses Entwicklungssystem ist vollständig in die 
Geos-Umgebung eingebunden und kann deshalb hinsicht¬ 
lich des Komforts als »Nonplusultra« bezeichnet werden. 
Ohne Übertreibung würde dieses »Development Package« 
sogar größeren Computern Furore machen. 
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Es erfüllt alle Profi-Wünsche im Assembler-Bereich und 
verdient deshalb nähere Betrachtung. Zunächst sei ein 
Vergleich mit dem Fünf-Stufen-Plan des System 1 ange¬ 
stellt; bei Geoprogrammer sind es folgende Phasen: 

I. Erfassen des Quelltextes mit Geowrite (Version belie¬ 
big!). Grafiken, die als Icons oder Bitmaps im Speicher 
stehen sollen, werden einfach aus Foto-Scraps einge¬ 
bunden (Bild 2). 

II. Assemblieren des Quelltextes mit Geoassembler. Die 
eingebundenen Grafiken werden jetzt in Binär-Codes 
des Geos-Grafik-Formats umgewandelt. Das Ergebnis 
der Assemblierung ist ein verschiebbares Modul. 

III. »Linken« von einem oder mehreren Modulen mit Geo- 
linker zu einem ablauffähigen Programm. Alle Geos- 
File-Strukturen werden unterstützt, auch Overlay-Pro¬ 
gramme und Desk Accessories. 

IV. Zum Austesten bietet sich neben dem einfachen Test¬ 
lauf auch der Geodebugger an, eine Art Maschinen¬ 
sprache-Monitor für Geos. Interaktive Tests mit Break¬ 
points und weiteren Erleichterungen sind kein Problem. 

V. Bei Fehlern muß man nicht erst Geos verlassen - außer 
bei Abstürzen. Auf jeden Fall ist aufgrund der modula¬ 
ren Programmiertechnik nicht der ganze Quelltext um¬ 
zuändern, sondern nur das »kritische« Modul. 

Unschlagbar 


Sie sehen bereits, daß mit Geoprogrammer vollständig un¬ 
ter Geos gearbeitet wird. Da Geos auch schnelle Disketten¬ 
zugriffe bietet, ist Geoprogrammer ein sehr effizientes Sy¬ 
stem. Mit RAM-Floppy ist es unschlagbar, da selbst bei Ab¬ 
stürzen ein blitzschneller Neustart möglich ist. Aber auch 
mit nur einem Laufwerk bleiben kaum Wünsche offen. 

Gegenüber System 1 hat der Geoassembler den Vorteil, 
daß bereits mit Geowrite der Quelltext editiert wird. Ein voll¬ 
wertiges Textsystem als Editor, wer hat das schon! Die Um¬ 
wandlung von Grafiken in Objektcode ist dabei kein über¬ 
flüssiger Scherz, sondern die sinnvolle Hilfe beim Pro¬ 
grammieren. 

Der Geolinker hält lästige Dateimanipulationen vom Pro¬ 
grammierer fern und hilft ihm, sich voll auf die Geos- 
Möglichkeiten zu konzentrieren. Die Programmierung von 
VLIR-Dateien findet volle Unterstützung; diese Technik er¬ 
laubt Nachlade-Files, die als einzelne Dateien weitergege¬ 
ben werden und hinsichtlich der Länge nur die Diskettenka¬ 
pazität als Grenze kennen. 

Der Vorteil eines echten Debuggers und Monitors in der 
Geos-Umgebung ist nicht zu unterschätzen, weil dadurch 
die Betriebssicherheit und Funktionsfähigkeit eines Pro¬ 
gramms leichter feststellbar ist als durch Testläufe »von 
Hand«. Die Ursachen möglicher Fehler lassen sich gezielt 
lokalisieren, die Untersuchung eines Programms auf 
»Schwachpunkte« gelingt bestens. 

Da man beim Aufstieg auf den Geoprogrammer seine 
bisherigen Assembler und Tools nicht mehr verwenden 
kann (und nach einiger Zeit auch gar nicht mehr will), soll¬ 
ten Sie gleich erfahren, welche Fähigkeiten die einzelnen 
Bestandteile des Geoprogrammer an den Tag legen: 

- Geoassembler unterstützt mehr als 1000 Label und 
Konstanten mit bis zu 20 signifikanten Zeichen, läßt lokale 
Labeldefinitionen als Zielangaben für Verzweigungen zu 
und verarbeitet beliebige Ausdrücke mit mathematischen 
und logischen Ausdrücken. Dabei sind Pseudo-Opcodes 
für bedingte Assemblierung, Definition und Freihaltung 
von Speicherbereichen möglich. Exakte Fehlerbeschrei¬ 
bungen werden in Textfiles dauerhaft gesichert. Auch ex¬ 
terne Label und Dateizugriffe werden bearbeitet, weil sie 
der Geolinker später einsetzt. 


- Geolinker nimmt spezielle Link-Anweisungen an, liest 
verschiebbare (relokatible) Module des Geoassembler ein, 
unterstützt sequentielle wie VLIR-Dateien und richtet aus¬ 
führbare Applikationsdateien auf Diskette ein. Diese verfü¬ 
gen auch über Icon und Info-Sektor, doch sogar Nicht- 
Geos-Maschinenprogramme lassen sich damit entwickeln. 
Die Unterstützung von dynamischen Overlay-Modulen und 
Desk Accessories schafft alle Grundlagen, um auch solche 
Programme zu entwerfen, die größer als der eigentlich ver¬ 
fügbare RAM-Speicher sind. 

- Geodebugger arbeitet im Textmodus, so daß der Hires- 
Bildschirm von Geos unangetastet bleibt. Symbolische 
Disassemblierung und zeilenweise Assemblierung (!) ge¬ 
schehen unter Verwendung der Label, die im Programm 
definiert wurden; das schafft kein anderer C64-Monitor! 
Routinen werden im Speicher also einfach durch Namens¬ 
eingabe gefunden, die Symboltabelle wird automatisch 
durch neue Adressen ergänzt und mehr als 80 einzigartige 
Kommandos sind für Einzelschrittmodus, Unterbrechungs¬ 
punkte, Variablenanzeige sowie vieles mehr vorgesehen. 

Auch dies ist für C 64-Verhältnisse unfaßbar, doch es geht 
noch weiter: Eine komplette Makrosprache, wie sonst nur 
bei PC-Programmen der Spitzenklasse möglich, verein¬ 
facht die Tastaturbedienung und erhöht die Effizienz der 
Debugger-Anweisungen. Makros werden automatisch am 
Start eines Debugging-Laufs eingelesen. 

- Die Dokumentation des Geoprogrammer besteht aus 
über 400 Seiten, darunter ein komplettes Listing aller Geos- 
Konstanten und -Makros. Für drei Beispielapplikationen 
unter Geos wird ein kommentierter Quelltext als Beispiel 
auf den Weg gegeben. Da Geoprogrammer von Berkeley 
Softworks stammt, empfehlen wir ausdrücklich den »Offi- 
cial GEOS Programmer’s Reference Guide« als Begleitlek¬ 
türe a sich beide Werke optimal ergänzen. 

Geoprogrammer übertrifft alle Erwartungen und hat eini¬ 
gen »Schnickschnack« (im positiven Sinne) zu bieten, um 
den selbst Amiga-, ST- und PC-Programmierer den C64/C 
C128-Besitzer beneiden. 

Der entstehende Aufwand - der Preis für die Software 
steht noch nicht fest, und der »Reference Guide« ist schwer 
erhältlich - zahlt sich vielfach aus. Für erste Lernschritte ist 
Geoprogrammer gut bedienbar, bei größeren Vorhaben 
wird er zum absoluten Muß, zu dem es keine Alternative 
gibt. Es ist ein Erlebnis, mit solch einem System arbeiten zu 
dürfen; wer diese Erfahrung einmal gemacht hat, zieht an¬ 
dere Systeme nicht mehr in Betracht. 

System 3: Becker-Basic 


Nach den beiden Möglichkeiten, Geos in Assemblerzu Lei¬ 
be zu rücken, sei nun ein Basic-Dialekt für Geos erwähnt. 
Becker-Basic (Bild 1) soll laut Hersteller-Angabe der neue 
Basic-Standard zum C64 werden. Um es gleich zu sagen: 
Diesem Anspruch wird es in vielerlei Hinsicht gerecht, doch 
darf man Befehlsvielfalt nicht mit Effizienz verwechseln. 

Nicht nur, weil es zu Geos momentan noch kein anderes 
Basic gibt (siehe aber System 4), ist Becker-Basic für Geos- 
Programmierer eine kleine Offenbarung. Zunächst sei wie¬ 
der umrissen, wie die Entwicklung mit Becker-Basic aus¬ 
sieht. 

I. Man lädt den Editor von Becker-Basic und gibt einen 
Basic-Programmtext ein. 

II. Zum Testlauf unter Geos wird das Austestsystem gela¬ 
den, der Programmtext bleibt im Speicher. 

III. Ohne Quelltextverlust gelangt man zwecks Korrektur 
zurück in den Editor und steht wieder vor Schritt II. 

IV. Ein fertiges Programm kann als Geos-Applikation 
(nicht jedoch als Desk Accessory) eingebunden wer- 
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den, wobei ihm ein Run-Only-System vorangestellt ist. 
Dessen Weitergabe ist urheberrechtlich gestattet, so¬ 
lange man keine Änderungen an der etwas protzigen 
Einschaltmeldung vornimmt. 

An der 4-Phasen-Darstellung sehen Sie bereits, daß 
Becker-Basic aus drei Programmen besteht: Editor, 
Austest- und Run-Only-System. Zwischen allen Modulen 
wird dank des Geos-Schnelladers »diskturbo« in Sekun¬ 
denschnelle gewechselt. Der Editor ist nicht Geos- 
gesteuert: Die Eingabe erfolgt wie in Basic 2.0, aber mit vie¬ 
len Hilfsbefehlen und der Möglichkeit, Befehlsnamen indi¬ 
viduell umzudefinieren (im Handbuch ist sogar Platz für 
derartige Eintragungen vorgesehen). 



Bild 2. Der »verdrehte» Desktop entstand mit einem kurzen 
Becker-Basic-Programm. Aber reicht’s für »große« Pro¬ 
gramme? 


Die Befehlszahl mit über 270 zu beziffern, wie es der Her¬ 
steller angibt, ist zwar nicht falsch; doch stehen viele Befeh¬ 
le nur im Editor zur Verfügung und würden in fertigen Pro¬ 
grammen keinen Sinn ergeben. Außerdem ist der Speicher 
auf magere 8 KByte beschränkt; 16 KByte ist eine Mischlö¬ 
sung (Grafik möglich, aber keine Geos-Unterstützung 
mehr), und die 24-KByte-Konfiguration hat mit Geos über¬ 
haupt nichts mehr zu tun (nicht einmal Grafik ist dann mög¬ 
lich). 

Deshalb ist für Geos-Zwecke einzig und allein die 
8-KByte-Konfiguration von Interesse, und dies darf man 
doch als akuten Speichermangel beklagen. Aber beden¬ 
ken Sie: In 8 KByte Becker-Basic-Code lassen sich viele 
Anwendungen realisieren, die sonst in Basic-Text nicht 
möglich wären. Für Programmierer, die größere Datenmen¬ 
gen bearbeiten wollen, ist dies leider kein Trost. 

Der gravierendste Mangel sei auch gleich erwähnt: Mo¬ 
mentan (März 1988) ist Becker-Basic mit Geos 1.3, der 
neuesten Version, überhaupt nicht ablauffähigl Data 
Becker plant jedoch, Becker-Basic anzupassen. 

Der Hauptvorteil von Becker-Basic ist zweifelsohne die 
erstmalige Möglichkeit, mit Basic-Programmen Geos-An- 
steuerung zu betreiben. Zumindest zum Kennenlernen ist 
dies eine hervorragende Sache. Im folgenden sei ein Über¬ 
blick über den Befehlsumfang von Becker-Basic gegeben 
(unter der Voraussetzung der 8K-Konfiguration mit Geos- 
Unterstützung stehen alle Kommpndos zur Verfügung): 

- Becker-Basic ist eine strukturierte Sprache, ähnlich Pas¬ 
cal und »C«. DO, LOOP, WHILE sind ebenso implementiert 
wie Prozeduren, die sogar verschachtelt werden dürfen. 
Prozeduren sind mit Parameterübergabe versehen und las¬ 
sen sich - man lese und staune - einzeln laden und spei¬ 
chern. 

- Auch der Textmodus des Video-Chips wird unter Geos 
dargestellt, wozu sogar Befehle für Text-Windows existie¬ 
ren. Die Eingabe und Wandlung von Zeichen aus dem Bild¬ 


schirmspeicher sowie die Einschränkung auf erlaubte Zei¬ 
chen (Patterns) bereitet keine Schwierigkeiten. 

- Direkter Speicherzugriff vollzieht sich über spezielle Be¬ 
fehle. 

- Floppy-Ansteuerung ist ein Schwerpunkt, insbesondere 
die REL-Dateien des C 64 (relative Files) - mit den REL-Da- 
teien kann Geos jedoch nichts anfangen. Doch die Geos- 
typischen, äußerst leistungsfähigen VLIR-Files finden nicht 
die geringste Berücksichtigung, was nicht nur schade, son¬ 
dern sogar höchst ärgerlich ist und die Geos-Tauglichkeit 
von Becker-Basic sehr in Frage stellt. Denn nicht einmal 
Dateien anderer Geos-Programme sind aufgrund dieser 
Tatsache einlesbar. 

- Immerhin gibt es eine professionelle Overlay-Technik mit 
teilweiser oder vollständiger Variablenübergabe beim 
Nachladen. Auch hier wären wieder VLIR-Files wün¬ 
schenswert, doch es bleibt beim Wunsch. 

- Auch Sound- und Grafikbefehle bieten alle Standards, die 
man hier erwartet. Grafik läuft über die Routinen des Geos- 
Kernel ab, Sprites können sogar einzeln geladen und ge¬ 
speichert werden. 

- Pull-Down-Menüs und Dialogboxen finden nicht nur Un¬ 
terstützung von mehreren Anweisungen; im Lieferumfang 
von Becker-Basic befinden sich sogar spezielle, in Becker- 
Basic geschriebene Editorprogramme für diese Elemente 
der Benutzeroberfläche. Ein immer wieder interessantes 
Beispiel ist der »verdrehte« Desktop (Bild 2). 

- Es bestehen alle Schriftgestaltungsmöglichkeiten von 
Geos, nicht jedoch die Verwendung verschiedener Zei¬ 
chensätze (fonts). 

Becker-Basic ist eine Spitzen-Programmierleistung, das 
steht außer Frage. 274 neue Befehle, zusätzlich zu den er¬ 
halten gebliebenen Anweisungen des Basic 2.0, schöpfen 
alle Mög!- .hkeiten des C64 voll aus. Der Lieferumfang mit 
umfangreichem Handbuch, der günstige Preis von 69 Mark 
und der Verzicht auf Kopierschutz machen Becker-Basic zu 
einem interessanten System, um die Programmierung von 
Geos zu erlernen. Wohlgemerkt: zum Erlernen, denn grö¬ 
ßere Projekte sind mangels Speicher und VLIR-Behand- 
lung mit Becker-Basic nicht anzugehen. Doch wer gerne 
kleinere Basic-Programme schreibt, wird an Becker-Basic 
viel Freude haben. Es bietet einen guten Umstieg vom Ba¬ 
sic des C64 durch eine gewisse Aufwärtskompatibilität, 
doch in puncto Geschwindigkeit fehlt ein Compiler. 

Mit mehr Speicher, Lauffähigkeit unter Geos VI.3, Mög¬ 
lichkeiten zum VLIR-Zugriff und einem Compiler könnte 
man Becker-Basic uneingeschränkt weiterempfehlen; 
doch in der aktuellen Fassung mag man ohne weiteres 
über die Befehlsmöglichkeiten ins Staunen geraten, wird 
aber nur wenige Projekte damit in die Tat umsetzen können. 
»OUT OF MEMORY ERROR« ist bald noch häufiger als 
»SYNTAX ERROR«. Dem Programmierer von Becker- 
Basic kann man insofern keine Schuld geben, als er zwar 
den C64 an sich ausnutzt, aber nicht Geos ausschöpft. 
Sonst hätte er auch das Speicherproblem lösen können. 

System 4: 

Geobask - Fantastische Aussichten 


Kurz nachdem Geos seinen Siegeszug in der Commodore- 
Welt angetreten hatte, kündigte Berkeley Softworks bereits 
an, sein neuartiges Betriebssystem auch mit einer Pro¬ 
grammiersprache auszustatten. Doch seitdem hat man von 
»Geobasic« nichts mehr gehört, weshalb wir zeitweise 
glaubten, dieses Produkt sei nicht mehr zu erwarten. Nun 
führte Berkeley Softworks jedoch auf der CES (Consumer 
Electronics Show in Las Vegas) bereits eine Vorversion vor, 
die einhellige Begeisterung auslöste. 
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Geobasic stammt von den Geos-Programmierern selbst 
und hat Becker-Basic schon einmal voraus, daß es die »offi¬ 
zielle« Programmiersprache für Geos ist. Da die Program¬ 
mierer »ihr« Geos natürlich in- und auswendig kennen, 
konnten sie selbstverständlich alle Basic-Möglichkeiten 
aus Geos und dem C64/C128 herausholen. 

Geobasic läuft mit allen Geos-Versionen ab VI.2 und ist 
komplett ins Geos-System integriert. Ob man damit auch 
Programme erstellen kann, die ohne Geos ablaufen, ist 
noch nicht klar. Geobasic wird im Sommer 1988 in den USA 
erscheinen; wann es bei uns erhältlich sein wird, ist ebenso 
wenig bekannt wie der Preis. Im 64’er-Magazin werden Sie 
sicher bald einen ausführlichen Testbericht finden. 


Die Dokumentation von Geobasic setzt Geos-Anwender- 
wissen voraus, man solite also mit Desktop, Geowrite und 
so weiter einigermaßen umgehen können. Im Handbuch, 
das auf jeden Fall sehr ausführlich sein wird, finden sich 
dann Erklärungen zu allen Elementen der Geos-Program- 
mierung, die man auf Basic-Ebene benötigt. Weitere Litera¬ 
tur ist also nicht nötig, und die ausgefeilte Fehlerbehand¬ 
lung von Geobasic stellt einen weiteren Grund dar, warum 
man gerade Einsteigern diese Software empfehlen kann. 

Die größte Sensation an Geobasic liegt nun in einem 
Zauberwort, von dem Sie in Zukunft sicher noch viel hören 
werden: »Graphical Programming«, zu deutsch »grafisches 
Programmieren«. 



System 1 

System 2 

System 3 

System 4 

Bestandteil(e) 

1. beliebiger Makro- 
Assembler 

2. Tool zur Geos- 
Einbindung 

3. Geos DIsk-Monltor 
Beispiel: Giga-Ass, 
GEOSMON, Geos File- 
Linker 

Geoprogrammer 

Entwicklungspaket 

Becker-Basic 

Geobasic 

Programmiersprache 

Assembler 

Assembler mit 
vordefinierten Makros und 
Konstanten 

Basic-2.0-Erweiterung um 
274 Befehle 

eigenständiges Basic 

verwendbar ab 

Version 1.3? 

uneingeschränkt 

uneingeschränkt 

noch nicht 
(Stand: März ’88) 

uneingeschränkt 

Verfügbarer Speicher 

mit Quelltextverkettung 
kann der Objektcode etwa. 
30 KByte lang sein 

dank VLIR nur durch 
Diskettenspeicher 
begrenzt, also mehr als 
RAM-Speicher im 

C64/CI28 vorhanden ist 
(Overlay) 

8 KByte 

mit Overlay: nur durch 

Disk begrenzt (?) 
ohne Overlay: ? 

Geos-Benutzerführung der 
Programmierumgebung? 

nein 

ja, Geowrite ist Texteditor 

nein, gewohnter 
Basic-2.0-Editor 

ja 

grafisches Programmieren? 

nein 

nein, aber Einbindung von 
Grafiken bei 
automatischer 

Umwandlung in 

Binärdaten 

nein, zeilenorientierte 
Programmierung 

ja, eigener PAP-Editor 

Nicht-Geos-Programme 

möglich? 

ia 

ja 

ja, dann sogar 24 KByte 
Speicher 

voraussichtlich nicht (?) 

VLIR-Dat. programmierbar? 

ja 

ja 

überhaupt nicht 

problemlos 

VLIR-Objektcodes möglich? 

nein 

in vollem Maße durch 
Llnk-Verfahren 

selbst bei großem 

Aufwand nicht 

ja 

Dokumentation des 

Systems: 

größtenteils bereits in 
diesem Sonderheft oder in 
(1) oder (2) 

über 400 Seiten mit vielen 
Beispielen 

über 280 Seiten 

sehr ausführlich, noch 
keine genaue Seitenzahl 

Preis: 

alles abzutippen oder auf 
Disk den Büchern (1) und 
( 2 ) beiliegend 

steht noch nicht genau 
fest, wird aber anderen 
Applikationen entsprechen 

69 Mark 

steht noch nicht fest 

Bezugsquelle: 

unterschiedlich, da 
beispielsweise beliebige 
Assembler verwendbar 
sind 

momentan: Berkeley 
Softworks (s. 3) 
demnächst: Markt & 
Technik Verlag AG 

Data Becker (4) 

erst ab Sommer '88 bei 
Berkeley Softworks (s. 3), 
dann In Kürze bei M&T 

unverzichtbare Literatur: 

(1) oder, (2) 

Dokumentation genügt 
fast vollständig 

Dokumentation genügt, 

Baslc-Wissen 

vorausgesetzt 

Dokumentation genügt, 
Basic-Wissen nicht 
unbedingt vorausgesetzt 

zusätzliche Literatur: 

(3), genügt allein jedoch 
nicht 

(3) äußerst 
empfehlenswert 

- (keine besondere 
Empfehlung) 

keine besondere 
Empfehlung 


Tabelle 2. Alle vier Systeme im Vergleich. Stärken und Schwächen werden schonungslos aufgedeckt. Für Geobasic lassen 
sich jedoch noch keine lOOprozentlgen Aussagen treffen. (Literaturhinweis im Infokasten). 
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Dies ist eine revolutionäre Programmiertechnik, bei der 
man nicht mehr vollständig auf Befehlsebene program¬ 
miert, sondern zunächst Ablaufpläne (Flußdiagramme) 
entwirft. Geobasic hat einen eigenen Grafik-Editor, mit dem 
solche PAPs (Programmablaufpläne) am Bildschirm über 
Maus- oder Joystick-Steuerung gezeichnet werden. An¬ 
schließend erzeugt Geobasic daraus ablauffähige Basic- 
Programme, die von der logischen Struktur her mit den ge¬ 
zeichneten PAPs identisch sind. Es sei ausdrücklich darauf 
hingewiesen, daß dies optional ist; Sie können genausogut 
auf der Befehlsebene bleiben, und auch eine Mischung 
zwischen grafischer und »konventioneller« Programmie¬ 
rung bietet sich vielmals an. 

Um nun das Konzept der grafischen Programmierung zu 
veranschaulichen, sei ein grundlegendes Beispiel gege¬ 
ben. Ein einfaches Zahlenratespiel sehen Sie in Bild 3; ei¬ 
nem solchen Flußdiagramm entspräche folgende Basic- 
2.0-Eingabe in Befehlsform: 



Ende des Programms 


Bild 3. Ein Beispiel für ein simples Flußdiagramm, mit 
dessen Hilfe unter Geobasic die Programmierung 
vereinfacht wird 

10 Z=INT(RND('0) #10)+1:REM ZAHL VON 1 BIS 10 
ERMITTELN 

20 INPUT "IHR TIP";T:REM ANWENDER RAET 
30 IF T=Z THEN PRINT "RICHTIG":END:REM RICHTIG 
GERATEN 

40 PRINT "FALSCH":GOTO 20:REM FALSCH GERATEN, 
NOCHMAL 

Bei Geobasic hätten Sie nun die Wahl, entweder einen 
Ablaufplan wie in Bild 3 zu entwerfen, oder die vier Befehls¬ 
zeilen selbst zu entwerfen. Natürlich verarbeitet Geobasic 
noch weit komplexere Algorithmen. Das Zahlenratespiel 
sollte nur ein Beispiel sein, an dem sich bereits erkennen 
läßt, daß grafisches Programmieren eine revolutionäre An¬ 
lage besitzt, wie sie für den C64/C128 und viele andere 
Computer kein anderes Programm in ähnlicher Weise bie¬ 
tet. Auch bei Geobasic ist also ein hoher Grad an Faszina¬ 
tion festzustellen. 

Die einzelnen Bestandteile des Geobasic-Paketes laufen 
unter der Geos-Benutzeroberfläche als Applikationen und 
bieten fantastische Möglichkeiten zum Datenaustausch mit 
anderen Geos-Produkten. Doch Geobasic unterstützt auch 


die gesamte Geos-Umgebung inklusive VLIR-Files durch 
zahlreiche Befehle, so daß leistungsfähige Geos-Anwen- 
dungen in Basic möglich sind. 

Vor allem aber ist Geobasic bestimmt die bedienungs¬ 
freundlichste und komfortabelste Programmiersprache im 
C64/C128-Bereich, die jedem Einsteiger mit Basic-Ambi- 
tionen ans Herz gelegt werden kann. 

Abschließender Vergleich 


Sie haben nun vier mehr oder weniger unterschiedliche 
Programmiersysteme kennengelernt. Wir haben der Fair¬ 
neß halber Vergleiche zwischen Assembler- und Basic-Sy- 
stemen vermieden, denn jeder weiß, daß Assembler-Pro¬ 
gramme immer am leistungsfähigsten sind, aber der Ent¬ 
wicklungsaufwand erheblich größer ist als bei Basic-Pro- 
grammen. 

Grundsätzlich empfiehlt es sich, sowohl ein Basic- als 
auch ein Assembler-System zur Hand zu haben. Dann ist 
es möglich, Algorithmen zunächst in Basic interaktiv aus¬ 
zuprobieren und erst zum Schluß in ein fertiges Assembler¬ 
programm umzusetzen. Zudem benötigt man für Geos oft¬ 
mals viele kleine Tools, die sich in Basic schnell »herunter¬ 
schreiben« lassen, in Assembler aber tage- und wochen¬ 
lange Arbeit bedeuten können. 

Eine große Rolle spielt auch Ihr Wissensgrad. Für die Sy¬ 
steme 1 und 2 benötigen Sie natürlich auf jeden Fall gute 
Kenntnisse in 6502-Maschinensprache; Befehlssatz, Regi¬ 
ster und Adressierungsarten sollten Ihnen keine größeren 
Schwierigkeiten mehr bereiten. In der Rubrik »Benötigte Li¬ 
teratur« der Vergleichstabelle haben wir jedoch solche 
Assembler-Literatur nicht erwähnt, weil es zum einen uner¬ 
meßlich V!'j| Literatur zu diesem Thema gibt und zum ande¬ 
ren nicht jeder Programmierer noch ein Nachschlagewerk 
benötigt. 

Beachten Sie jedoch, daß mit keinem der verwendbaren 
Programmiersysteme ohne weiterführende Literatur effek¬ 
tiv gearbeitet werden kann. Ausnahme ist Geobasic, das 
aber leider voraussichtlich erst im Laufe dieses Jahres auf 
den deutschen Markt kommen wird. Der Geos-Program- 
mierkurs in diesem Heft vermittelt Ihnen bereits die Grund¬ 
züge der Geos-Programmierung. Er kann jedoch aus Platz¬ 
gründen nicht alle Aspekte ansprechen. 

Eine Schwierigkeit bei der Bewertung von Geobasic 
bringt die Tatsache mit sich, daß wir lediglich Informationen 
von Berkeley Softworks zur Verfügung hatten, die nicht alle 
unsere Fragen beantworten konnten. Ein »Fragezeichen« 
in der Tabelle 2 bedeutet also, daß keine völlige Gewißheit 
besteht. Die anderen Systeme kennen wir hingegen genau 
und können deshalb detaillierte Angaben machen. 

Wir wünschen Ihnen auf jeden Fall, für welches System 
Sie sich auch entscheiden, noch viel Freude und Erfolg mit 
Geos. An der Veröffentlichung fertiger Geos-Programme 
sind wir ebenso interessiert wie daran, Sie gegebenenfalls 
bereits im Entwicklungsstadium zu unterstützen. Schrei¬ 
ben Sie uns! (Florian Müller/rs) 


Empfohleno Literatur: 

(1) Florian MQIIerfThoraton Potrowskl, -C 64 - Alles über GEOS 1,2", 632 Selten Inkl. doppol 
seltlg bespielte Diskette mit Bol3plolon und Utilities, Commodore-Sachbuch, Markt & Tech 
nlk Verlag. Bestellnummer MT 90461, 49 Mark 

(2) Florian Müller/Thorsten Potrowskl, »C 64 - GEOS 1,3 deutsoh-, 576 Selten mit doppelsel 
tig bespielter Diskette (Beispiele und Utilities), Commodore-Sachbuoh. Merkt & Technik Ver 
lag, Bestellnummer MT 90570, 59 Mark 

(3) -The Oflldal GEOS Progrommer's Relerence Guide.. Ist in Deutschland noch nicht erhält 
lieh, Interessenten wenden sich bitte an Berkeley Softworks, 2150 Shatluck Avenue, Berkely 
California 94704 in den USA. 

(4) "Becker-Basic.., über 280 Selten, Inkl. Diskette, Data Becker GmbH, Merowinger Sir. 30 
4000 Düsseldorf, ISBN 3-89011-517.9, 69 Mark 
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Mit Geos in die Welt der Grafik 


»Geos« verwandelt den C64/128 in einen völlig neuen Grafikcomputer. 

Kein Wunder, daß der erste Buchstabe im Namen »Geos« als Abkürzung für »Grafik« steht! 
Selbst wenn Sie Geos noch nicht näher kennen sollten, erfahren Sie hier klipp 
und klar, warum sich diese Software ausdrücklich als Grafik-Benutzer¬ 
oberfläche und -Betriebssystem bezeichnet. 


B ei keinem anderen Computer ist das Betriebssystem 
so »un-grafisch« wie beim C64/128 und seinen Ver¬ 
wandten (VC 20, C128): Obwohl der Video-Chip eine 
stolze Auflösung von 320 x 200 Punkten bietet, unterstüt¬ 
zen weder Benutzerführung noch Basic von Haus aus die¬ 
se großartigen Fähigkeiten. 

Faszination und Erfolg von Geos liegen nun in dessen 
Konzeption begründet, dieses Defizit völlig aufzuheben: 
Geos arbeitet ausschließlich im Grafikmodus des C 64/128. 

Kommen wir gleich auf die Abkürzung »Geos« (Graphics 
Environment Operating System) zu sprechen. Dahinter ver¬ 
bergen sich drei grundsätzliche Eigenschaften bezie¬ 
hungsweise Funktionen: Grafik (G), Benutzerführung (E) 
und Betriebssystem (OS). Dieser Artikel widmet sich spe¬ 
ziell dem Bereich Grafik, wobei er auch versucht, Ihnen 


Auch die Bedienung läuft text- und zeichenorientiert ab: 
Zur Steuerung von C64/128-Anwendungssoftware benö¬ 
tigt man Tastendrücke, sei es, daß Sie einen Befehl einge¬ 
ben über oder eine Kommandotaste auslösen. 

Die neue Computergeneration 


Diese abstrakte Art der Bedienung ist für Profis nach ei¬ 
ner langen Gewöhnungsphase zu beherrschen, doch wird 
damit Laien wie Anfängern der Zugang unglaublich er¬ 
schwert. Vor allem fehlt es an Anschaulichkeit, denn wer 
kommt schon von sich aus darauf, daß LOAD "$",8 mit an¬ 
schließendem LIST den Inhalt einer Diskette anzeigt? War¬ 
um muß man die Tastenfolge <CBM> + <S> kennen, 


Fenster zur Anzeige , 
dos aktuellen 
Directory 


Hier kann man die 
verschiedenen Seiten 
aufblättem 


Fileeintrag 


Systemmenüs von Geos 



Symbol zum Schließen eines 
Fensters 


Anzeige des aktiven 
Laufwerks 


»Abfalleimer« zum 
Löschen von Files 


Dieses Symbol ermöglicht 
das Drucken eines Files 


Bild 1. Der Aufbau der grafischen Benutzeroberfläche des Desktop. Man findet sich sofort zurecht. 


über Ihr Grafik-Interesse den Zugang zu Geos zu ebnen. 
Neben zahlreichen Tricks aus der Praxis bekommen Sie 
auch einiges von der Geos-Funktionsweise mit. 

Keine Grafik ohne Geos 


Der normale C64/128-Betrieb, den Sie unmittelbar nach 
dem Einschalten wiederfinden, hat nicht viel mit Grafik zu 
tun. Vielmehr befinden Sie sich in einer rein textorientierten 
Darstellung, in welcher sich der Bildschirm aus 40x25 Zei¬ 
chen zusammensetzt. Für die Bildschirmgestaltung ergibt 
sich daraus eine geringe Flexibilität: Die Zeichenmuster 
sind fest vordefiniert, und auch die sogenannten Grafik¬ 
symbole der Tastatur haben ihre Grenzen. 



um in der Textverarbeitung Vizawrite den Text speichern zu 
können? Wer findet es einleuchtend, daß der Befehl 

P0KE 53280,2 

dem Bildschirm einen roten Rahmen verleiht? 

Doch mit steigender Rechenleistung und besseren Mög¬ 
lichkeiten der optischen Darstellung trat auch hinsichtlich 
der Bedienung von Computern und Programmen eine gro¬ 
ße Wende ein: Man ging von der kommandobezogenen 
(LOAD "$",8 läßt grüßen) Bedienungsform zur grafischen 
Benutzeroberfläche über, wie sie von vielen größeren Com¬ 
putern (Lisa, Apple Macintosh-Serie, Atari ST, Commodore 
Amiga) gezeigt wurde. 

Die Begeisterung für diese revolutionäre Bedienungs¬ 
form griff in Windeseile um sich. Denn endlich war der 
Computer dem Menschen in solchem Maße angepaßt, daß 
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seine Bedienung regelrecht Spaß machte, anstatt Hemm¬ 
schwellen durch umständliche Kommandos zu schaffen. 

Zunächst hätte niemand daran geglaubt, daß diese Welle 
auch den Heimbereich erfassen könnte, doch mit Geos ist 
es Berkeley Softworks gelungen, ein ähnliches System für 
den C64/128 zu schaffen. Die Abbildungen in diesem Arti¬ 
kel vermitteln Ihnen bereits einen Eindruck davon, welch 
revolutionäre Änderungen Geos für jeden Bereich des 
C64/128-Einsatzes bringt. 

Geos ist ganz anders 


Wie arbeitet man mit Geos? Nun, man legt die Systemdis¬ 
kette ein, tippt 

LOAD"*" ,8,1 

und wartet, bis sich etwa 30 Sekunden später ein völlig ver¬ 
wandelter C 64/128 präsentiert. Das Grundsystem eignet 
sich bereits wegen der im Lieferumfang inbegriffenen Pro¬ 
gramme »Geowrite« und »Geopaint« zur Text- und Grafikge¬ 
staltung, ist jedoch in jeder Hinsicht ausbaufähig, um auch 
die Aufgaben der Dateiverwaltung, des Desktop Publishing 
oder der professionellen Textverarbeitung mit Geos zu erle¬ 
digen. 

Das zentrale Steuerprogramm zur Bewältigung der 
Datei- und Diskettenorganisation ist dabei der Desktop; wie 
Sie in Bild 1 sehen, zeichnet sich dieser durch sein opti¬ 
sches Erscheinungsbild aus, das durchweg alle Geos- 
Programme haben: die grafische Darstellung. Für jede 
wichtige Funktion ist ein entsprechendes Grafiksymbol (Pa¬ 
pierkorb, Drucker, Diskette) reserviert, durch dessen Aus¬ 
wahl man die Programmsteuerung durchführt. 

Grafik-Schreibtisch 


Dazu bewegt man mit einem Joystick oder einer Maus (Bild 
2), wie sie bei professionellen Computern bereits zum 
Standard-Lieferumfang gehört, einen blauen Pfeil, allge¬ 
mein gesprochen: »den Mauszeiger«. Durch Auslösen ei¬ 
nes Aktivierungsknopfes am Eingabegerät löst man jeweils 
die Funktion aus, die durch das Symbol repräsentiert wird, 
auf welchem der Mauszeiger steht. 

Der Vorteil gegenüber der Befehlsebene des Basic 2.0 
liegt darin, daß auf diese Weise am Bildschirm ein 
»Schreibtisch« (»desk top« bedeutet engl. »Schreibtisch¬ 
oberfläche«) simuliert wird, mit allen sonstigen Gegenstän¬ 
den, die man aus der Realität kennt. Und der Mauszeiger 
ist die grafische »rechte Hand« des Anwenders, der nun an 
seinem Schreibtisch sitzt: Mit dem Mauszeiger führt man 
alle Bewegungen durch, wie man auch damit alle benötig¬ 
ten Werkzeuge (Schere, Papier, Drucker, Taschenrechner 
usw.) zur Hand nimmt. 

Wie diese äußerst komfortable Bedienung im Detail aus¬ 
sieht, ist nicht Thema dieses Artikels, weshalb Sie am Ende 
einige Literaturempfehlungen zu Geos finden werden. Hier 
möchten wir jedoch die besonderen Grafikmöglichkeiten 
von Geos unter die Lupe nehmen. 

Icons - Grafiken für jeden Zweck 


Wie Sie in Bild 1 sehen, stellt Geos unzählige Symbole in 
Form von kleinen, aber gut erkennbaren Grafiken zur Verfü¬ 
gung: Eselsohr, Drucker, Papierkorb und Diskette seien als 
Beispiele genannt. Dienen solche Grafiken bei anderen 
C64-Programmen allenfalls zur Illustration, stellen sie bei 
Geos eigene Funktionseinheiten dar; so dient das Eselsohr 
zum »Umblättern« im seitenweise gegliederten Inhaltsver¬ 
zeichnis einer Diskette und zeigt 8 weitere Einträge. 


Solche funktionsbezogenen Kleingrafiken bezeichnet 
man als »Icons« (deutscher Begriff: »Piktogramme«), um 
sie von ausschließlich dekorativen Verzierungsgrafiken zu 
unterscheiden. 

Interessant ist, daß unter Geos jede Datei nicht nur durch 
ihren Namen bestimmt wird, sondern auch ihr eigenes Icon 
hat. In diesem Zusammenhang sollte man auch wissen, 
daß Icons nach dem sogenannten »Pause-Doppelklicken« 
(zweimal Joystick- oder Maustaste im Abstand einer Se¬ 
kunde drücken, während der Mauszeiger auf das Icon 
zeigt) am Bildschirm beweglich sind; schiebt man bei¬ 
spielsweise eine Grafikdatei, beziehungsweise ihr Icon, auf 
das Drucker-Symbol, so führt dies zum Druckvorgang. 

Normalerweise steht hinter Icons kein besonderer Pro¬ 
grammiertrick, da sich das Geos-System »nur« die Bild¬ 
schirmpositionen merkt, an welchen sich eine funktionell 
bedeutsame Grafik befindet; das eigentliche Grafikbild ent- 


Bild 2. Die Maus, 
das Eingabegerät 
der modernen 
Computer, kann 
mitGeoc uch 
am C64 betrieben 
werden 

steht dadurch, daß ein Icon-Muster in den entsprechenden 
Ausschnitt der Gesamtgrafik übertragen wird. Sobald je¬ 
doch das Icon einer Datei bewegt werden soll, bedient sich 
Geos einer bekannten Hardware-Eigenschaft des C64: 
Das Icon wird vorübergehend zum »Sprite« und kann mit 
dem Eingabegerät (Joystick oder Maus) synchron mit dem 
Mauszeiger-Sprite bewegt werden. In Bild 3 sehen Sie, wie 
ein Datei-Icon »unterwegs« ist; dabei erkennen Sie viel¬ 
leicht, daß sich das Mauszeiger-Sprite und das Datei-Sprite 
aufgrund der synchronen Bewegung überdecken. 

Sprite-Spionage 



Deshalb ist es kein Problem, nach einem Reset aus einer 
C64-Version von Geos (zur C128-Version kommen wir 
gleich) auch die am Bildschirm befindlichen Sprites zu re¬ 
konstruieren. Folgende Direkteingaben genügen, um den 
Mauszeiger - selbst nach einer Veränderung mit dem »Vor¬ 
einstellungsmanager« - nach Verlassen von Geos wieder 
auf den Bildschirm zu bringen (vorausgesetzt, Sie haben 
den Computer nach dem Laden von Geos nicht mehr aus¬ 
geschaltet): 

10 print"geos-mauszelger darstellen" 

20 poke 2040,13:a=33985: rem adressen festlegen 
30 for i=0 to 63:poke 832+i,peek(a+i):next: rem sp- 
rite-daten umkopieren 

40 v=53248: rem basisadresse für video-chip 

50 poke v+21,1: rem einschalten 

60 poke v+39,1: rem farbcode 

70 poke v+1,200: rem y-koordinate 

80 poke v+16,0:poke v,100: rem x-koordinate 
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Wer sich für Sprite-Programmierung interessiert, wird 
mit dem Verständnis dieses kleinen Programms keine Pro¬ 
bleme haben; die Variable A enthält die Adresse $84C1, ab 
welcher der Geos-Mauszeiger im Speicher steht. Dies gilt 
- bereits erfolgtes Laden von Geos angenommen - sowohl 
nach einem Reset als auch nach Auslösen des Punktes 
»BASIC« im Menü »speziell«. 

Als Anregung sei noch folgende Ergänzungszeile vorge¬ 
schlagen, die eine nicht naturgetreue Vergrößerung des 
Sprites bewirkt: 

90 poke v+23,l:poke v+29,l:rem in x- und y- 
richtung verdoppeln 

Noch eine letzte Anmerkung: Ist das Sprite nicht sichtbar, 
so müssen Sie den Farbcode (wird in Zeile 60 mit »1« festge¬ 
legt) modifizieren, damit sich die Sprite- von der Hinter¬ 
grundfarbe unterscheidet. 

Geos 128, die Grafik-Sensation 


Beim C64 sowie dem 40-Zeichen-Modus des C128 sind 
Sprites hardwaremäßig vorgesehen, das heißt der Video- 
Chip unterstützt diese Grafikbesonderheit. Da jedoch 
Geos 128 auch den 80-Zeichen-Modus des C128 an¬ 
spricht, waren die Geos-Programmierer zu einem Trick ge¬ 
zogen, den C128-Experten für mehr als sensationell hiel¬ 
ten: Mit Hilfe ausgefeilter Spezialroutinen simuliert Geos 
128 im 80-Zeichen-Betrieb »virtuelle« Sprites! 

Dies geschieht, indem das jeweilige Muster eines im Vor¬ 
dergrund erwünschten, jedoch nicht real vorhandenen 
Sprites einfach in die Grafik geschrieben wird, wie dies 
auch mit unbewegten Piktogrammen geschieht. Da jedoch 
bei einer Weiterbewegung der alte Bildschirminhalt wieder¬ 
hergestellt werden muß, »rettet« Geos 128 den Bildschirm¬ 
inhalt unter einem »Pseudo-Sprite« vor beziehungsweise 
nach jeder Sprite-Positionierung, um im Bedarfsfall den 
entsprechenden Grafikbereich wiederherzustellen. 

Daß dieser aufwendige Vorgang - beim 40-Zeichen- 
Betrieb übernimmt dies der Video-Chip automatisch! - eine 
leicht ruckartige Sprite-Darstellung zur Folge hat, sollte da¬ 
her nicht weiter verwundern. Vielmehr ist es ein kleines 
Wunder, daß Geos mit immensem Software-Aufwand auch 
den 80-Zeichen-Modus des C128 unterstützt (Bild 4). 

Was hingegen jedem Anwender an Geos 128 auffällt: 
Der tatsächlich verwendete Teil des Bildschirms ist etwas 
kleiner als der normale 80-Zeichen-Bildschirm des C128. 
Dies ist dadurch zu erklären, daß sich Geos 128 aus pro¬ 
grammtechnischen Gründen an der linken und der oberen 
Seite geringfügig einschränkt (für C128-Superprofis: der 
VDC-Registersatz läßt sich dann leichter adressieren). 



Bild 3. Das Geister-Icon von Geowrite auf dem Weg zur 
»Border«, die Geos ebenfalls verwaltet. 

asa? 


Entgegen der Meinung mancher Geos-128-Anwender, 
die dies für einen Programmfehler hielten, handelt es sich 
also um eine bewußte »Bildschirm-Verkleinerung«; mit ge¬ 
schickter Einstellung der Monitor-Schalter läßt sich dies so¬ 
gar in vielen Fällen regulieren, ist jedoch nicht einmal nötig. 

Eine echte Einschränkung des 80-Zeichen-Bildschirms 
liegt jedoch darin, daß farbige Grafiken selbst mit Geos 128 
nicht zu realisieren sind. Da jedoch bis auf das Zeichenpro- 
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Bild 4. Geos 128 - Durch hohe Auflösung und Geschwin¬ 
digkeit wird es zum echten Profisystem 


gramm Geopaint alle Bestandteile des Geos-Systems 
schwarzweiß arbeiten, fällt dies nicht ins Gewicht. 

Zum anderen besteht dennoch die Möglichkeit, mit dem 
»Voreinstellungsmanager« die allgemeine Farbgebung zu 
beeinflussen. 

Verlassen wir nun den (zugegebenermaßen sehr ergiebi¬ 
gen) Geos-128-Sonderteil und kommen wieder auf allge¬ 
meine Geos-Grafikeigenschaften zu sprechen. 

Windows - Fenster zur Geos*Welt 


So wie die Icons (Piktogramme, Kleingrafiken) eine funktio¬ 
nell sinnvolle Geos-Einrichtung darstellen, bietet Geos 
auch eine sogenannte »Window-Technik« (Fenster- 
Technik). Dahinter verbirgt sich das Bestreben der Geos- 
Software, den aktuellen Bildschirm nur insoweit zu bean¬ 
spruchen, wie es sich tatsächlich als nötig herausstellt; ein 
solcher Bildbereich, der für einen bestimmten Zweck reser¬ 
viert ist, trägt die Bezeichnung »Window«. 

Zwar lassen sich Windows (Fenster) unter Geos im Ge¬ 
gensatz zu Computern wie dem Amiga nicht am Bildschirm 
jederzeit vom Anwender verschieben, doch ist eine Grund¬ 
voraussetzung gegeben: Geos ist in der Lage, kurzzeitig in 
einem begrenzten Grafikausschnitt einen neuen Inhalt ein¬ 
zublenden, der sofort verschwindet, wenn er nicht mehr be¬ 
nötigt wird. 

Bild 5 demonstriert anhand der Übersichtsfunktion von 
Geowrite zwei Fenster: Ganz rechts stellt ein größerer, 
rechteckiger Ausschnitt einen Gesamtüberblick über eine 
ganze DIN-A4-Seite dar; in der Mitte zeigt ein OK-Symbol, 
daß die Funktion ausgeführt wurde. 

Prinzipien könnte Geowrite sowohl vor als auch nach Er¬ 
stellen der Übersicht jeweils den Bildschirm löschen. Der 
Vorteil der Window-Technik liegt hier jedoch darin, daß 
nach Abbau der Windows (hier also nach Anklicken von 
»OK«) der alte Bildschirminhalt auf den Punkt genau vor¬ 
liegt. Sehr oft aber ist es ganz wertvoll, neben der Seiten¬ 
übersicht auch noch Ausschnitte des eigentlichen Textes 
sehen zu können. 
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Einen Sonderfall der Window-Technik stellen die Pull- 
down-Menüs (Abrollmenüs) dar; am Desktop-Bildschirm 
sehen Sie zwar permanent die oberste Zeile »geos/Datei/ 
Diskette ...«, doch erst nach Auswahl eines Schlagwortes 
dieser Menüzeile tut sich ein weiteres Menü auf. In Bild 6 
sehen Sie, wie Geopaint ausgehend vom Menüpunkt 
»Schriftart« sowohl eine Liste der verfügbaren Zeichensät¬ 
ze als auch eine Zusammenstellung der wählbaren Schrift¬ 
arten eingeblendet hat. 

Wie bei Windows üblich, entfernt Geos auch solche Pull- 
Down-Menüs nach deren Verwendung - also nach Auswahl 
eines Menüpunktes oder nach Verlassen des Menübe¬ 
reichs mit dem Mauszeiger - völlig spurlos. 

Proportionalschrift, der Profi-Touch 


Die bisher dargestellten Geos-Fähigkeiten führten ver¬ 
ständlicherweise herbei, daß ein Projekt wie Geos nur mit 
Hilfe der hochauflösenden Grafik realisiert werden konnte. 
Deshalb gehen wir jetzt von den speziellen Bedienungsfra¬ 
gen, für welche der Grafikeinsatz Voraussetzung war, zu 
den unabhängigen Grafik-Features über. 

So zeichnet sich die Textdarstellung unter Geos durch 
zwei Prädikate aus: Proportionalschrift und riesiger Varia¬ 
tionsreichtum (Bild 7). 

Im Zusammenhang mit Druckern fällt oft der Begriff »Pro¬ 
portionalschrift«. Dieser trägt die Bedeutung, daß jedes 
Zeichen in seiner Breite am Bildschirm in richtigem Verhält¬ 
nis (Proportion) zu seinem Aussehen steht; so ist ein »i« 
oder »I« deutlich weniger breit als ein »m« oder »w«. Ohne 
Geos würde der C64/128 jedoch alle Zeichen in gleicher 
Schriftbreite darstellen, wodurch ein dünner Buchstabe 
wie das »i« künstlich gedehnt wird, ein »m« hingegen durch 
unnatürliche »Quetschung« eher unleserlich erscheint. 



Darüber hinaus ist Proportionalschrift weniger stereotyp 
als die Normalschrift des C 64/128 und infolgedessen sehr 
angenehm zu lesen. 

Zwar ist Proportionalschrift ebenso wie viele andere 
Geos-Features keine neue Erfindung, doch Geos stellt als 
erstes System sowohl am Bildschirm als auch auf dem 
Drucker diesen Vorzug dar. Und zwar so, daß Sie nicht erst 
aufwendige Anpassungen vornehmen müssen, damit Ihr 
Drucker die proportionalen Zeichenbreiten aufnimmt. 

Schrift nach Wunsch 


Ein weiterer Nachteil der normalen C64/128-Schrift liegt 
zweifelsohne darin, daß zu jedem Zeitpunkt immer nur eine 
einzige Schriftart darzustellen ist, das heißt gleiche Buch¬ 


staben erscheinen jedesmal in unveränderter Größe und 
selbem Muster; bis auf die Reversschrift gibt es keine wei¬ 
teren Gestaltungsmöglichkeiten. Der einfache Grund: 
Über das Aussehen der Zeichen entscheidet vorwiegend 
der Video-Chip und das Chameter-ROM. 
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S0[nXa] Bin) allen Kombinationen 

möglich! Grafiken »erden im Text zentriert 


Bild 6. Pull-Down-Menüs erleichtern die Funktionswahl 


Da Geos im Grafikmodus arbeitet und in eigener Verant¬ 
wortung für jeden einzelnen Punkt bei der Darstellung ei¬ 
nes Zeichens sorgen muß, entstehen natürlich erweiterte 
Freiheiten. Bild 7 zeigt nur einen winzigen Ausschnitt aus 
allen Textgestaltungsmöglichkeiten, die Geos bietet. Es ist 
eine rechnerisch belegbare Tatsache, daß bereits im 
Grundsystem mehrere hundert verschiedene Darstellun¬ 
gen ein und desselben Zeichens möglich sind! 

Es soll noch einmal betont werden, daß diese Darstellung 
mit jedem grafikfähigen Drucker zu erreichen ist; Unter¬ 
schiede liegen nur in der Ausdruck-Qualität, der Geschwin¬ 
digkeit sowie der Breite, auf welcher das Papier nutzbar ist. 

Es ist nicht schwer zu erraten, daß Geos normalerweise 
nicht im Textdruck-Modus der Ausgabedrucker operiert, 
sondern natürlich auf Grafikdruck umschaltet... 


Grafik, soweit das Auge reicht 


Neben vielen Geos-Highlights ist die äußerst komfortable 
Verwaltung von Grafiken ganz entscheidend. Das Zeichen¬ 
programm Geopaint, das zum Grundsystem gehört, ist 
nämlich nicht das einzige Geos-Programm mit ausdrückli¬ 
cher Grafikbehandlung. Denn Grafiken, die mit Geopaint 
erstellt werden, lassen sich als Bildausschnitte (»photo 
Scraps«) speichern und in folgenden Geos-Produkten wei¬ 
terverwenden: 

- Der »Foto-Manager« (Bild 8) kann aus jeder Geos-Applika- 
tion heraus aktiviert werden und verwaltet Bildausschnitte 
zur Weiterverwendung in Geopaint oder einem anderen 
Geos-Programm. Über den Umweg eines »photo Scrap« 
werden Grafiken in »Fotoalben« gesammelt und bei Bedarf 
wieder in »photo Scraps« umgewandelt. 

- Im Textprogramm »Geowrite«, in erweiterter Fassung 
auch als »Writer's Workshop« erhältlich, sind Grafiken zei¬ 
lenweise in Texte einzufügen (Bild 9); eine Beschriftung 
muß jedoch in Geopaint erfolgen. 

- Das Desktop Publishing-System »Geopublish« (Bild 10) 
bindet Grafiken nicht nur an beliebigen Stellen ein, sondern 
erlaubt sogar Formatänderungen (Verkleinerung usw.), 
Nachbearbeitungen, nachträgliches Einfließen ins Doku¬ 
ment ohne Umformatierung, Zentrierung und vieles mehr. 

- Die Dateiverwaltung »Geofile« (Bild 11) bietet für ihren An¬ 
wendungsbereich auf dem C 64/128 erstmalig die großarti¬ 
ge Gelegenheit, Ein- und Ausgabemasken mit Grafiken 
sinnvoll zu ergänzen oder einfach zu verzieren. 
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- Im »Desk Pack« befindet sich der »Graphics Grabber«, mit 
dessen Hilfe bestehende Grafiken aus Print-Shop, Print- 
Master oder Newsroom ins Geos-Format zu übertragen 
sind. 

- Da sich das Programmiersystem »Geoprogrammer« auf 
Geowrite als Editor stützt, ist es so bestechend genial aus¬ 
gerichtet, daß bei Vorliegen einer eingebundenen Grafik 
deren Bitmap-Codes einfach in den Objektcode integriert 
werden. Diese Grafikintegrierung ist für ernsthafte Pro¬ 
grammierer unersetzlich. 

- Nun eine aktuelle Vorankündigung: Die Markt & Technik 
Verlag AG, die deutsche Geos-Vertriebsfirma, wird in Kürze 
eine Sammlung fertiger Geos-Grafiken, ähnlich der Print- 
Shop- oder Printfox-Grafikbibliothek, herauszugeben; Nä¬ 
heres ist noch nicht bekannt, wird aber demnächst im 64'er- 
Magazin zu lesen sein. 

Geopaint im Vergleich 


Funktion mühelos »verschieben« läßt. Eine Seitenüber¬ 
sicht schafft, wie in Geowrite, schnelle Orientierung über 
das Gesamtbild des gerade bearbeiten Geopaint-Bildes. 


Deluxe Geopaint 


- ln Kombination mit den erwähnten Füllmustern ist auch 
die Verwendung verschiedener »Pinsel« (»brush«) für die 
raffiniertesten Effekte geeignet. Solchen Luxus ist man 
sonst nur von Amiga-Programmen gewöhnt! 


Zur Grundausstattung von Geos gehört neben dem eigent¬ 
lichen »Geos-Kernel«, welches erst den Ablauf weiterer 
Geos-Software gestattet, dem Texteditor Geowrite sowie 
vielen Hilfsmitteln (Taschenrechner, Alarm, Notizblock, 
Foto- und Textmanager, Voreinstellung) auch das Zeichen¬ 
programm Geopaint. 

Vergleicht man jetzt den Preis des gesamten Geos- 
Basispaketes (59 Mark bzw. 39 Mark im Umtausch von Ver¬ 
sion 1.2 auf 1.3) mit dem Geld, das man sonst für aus¬ 
schließliche (!) Grafiksoftware aufbringen müßte, so läßt 
sich Geos als Grafik-Software schon allein wegen Geopaint 
guten Gewissens empfehlen. Seine Funktionen lassen 
überhaupt nicht den falschen Verdacht aufkommen, daß 
»eine kostenlose Beigabe auch nichts taugen kann«. 

In manchen Punkten ist Geopaint jedem seiner derzeiti¬ 
gen Kontrahenten meilenweit voraus (die flexible Grafik- 
Weiterverarbeitung wurde angesprochen), die Benutzer¬ 
führung mit Werkzeugleiste, Menüs und Windows ist opti¬ 
mal und insgesamt gibt es kaum Funktionen anderer Pro¬ 
gramme, die Geopaint nicht ebenfalls hätte. 

Doch messen Sie selbst die anderen C64-Grafikpro- 
gramme an folgenden Geopaint-Bonbons: 

- Beim Zeichnen oder Aus¬ 



füllen von Flächen stehen 
sage und schreibe 32 Füll¬ 
muster zur Wahl; mit dem 
Programm PATTERN-EDI¬ 
TOR (siehe Quellenanga¬ 
ben am Ende des Artikels) 
sind diese sogar noch wei¬ 
ter ausbaufähig. 

Anstelle eines abstrakten 
Demobildes sei hier ein Bild 
gezeigt, das ohne den ge¬ 
zielten Füllmustereinsatz 
nicht denkbar gewesen wä¬ 
re (Bild 12 zeigt den Aus¬ 
druck). Dieses ansprechen¬ 
de Kunstwerk trägt den Na¬ 
men »shoe grid« und wird 
auf der Treiberdiskette von 
Geos 1.3 sowie der deut¬ 
schen Geos-128-Version 
mitgeliefert. 



iwrite: Schriftenvielfalt 

s 64‘er-Magazin setzt voll auf Geos 

bw nutmu 8>U jmten öaben. 

uMkoffl ©dML 

Drucker sieht alles 
aus, wie auf dem Bild- 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 



Bild 8. Foto-Manager: Bilder im Griff 

- Für alle, die es genau nehmen (Konstruktionszeichner, 
aufgepaßt!), stellt Geopaint auch ein »Meßlineal« zur Verfü¬ 
gung um die Länge von Linien vor oder nach dem Zeich¬ 
nen anzugeben: wahlweise in Bildschirmpunkten (Pixels) 
oder Zentimetern. 

- Ausgesprochene Feinarbeiten erledigt man am besten 
unter Zuhilfenahme des gelungenen Punktmodus, der es 
erlaubt jeden Punkt quasi unter der Lupe zu bearbeiten. 
Auch hier stehen nahezu alle Hilfsmittel zur Verfügung. 

- Die Farbgebung ist für jedes 8x8-Punkte-Feld gesondert 
möglich, doch sollte man Geopaint nicht als »Farb-Experi- 

mentierprogramm«, son¬ 
dern als ernstzunehmende 
»Zeichenumgebung« auf¬ 
fassen. 

Damit ist die Reihe der 
positiven Geopaint-Eigen- 
schaften noch lange nicht 
ausgeschöpft, doch bei die¬ 
ser Auswahl wollen wir es 
belassen. 

Desktop Publishing 
mit Geos 


6-fö.txl 




Bild 7. Eine kleine Auswahl der Geos-Schriftfähigkeiten 


- Anhand von Bild 13 sieht man eine weitere Geopaint- 
Stärke: Dokumente können (müssen aber nicht) eine ganze 
DIN-A4-Seite im Ausdruck beanspruchen. Am Bildschirm 
sieht man im inneren Bearbeitungsfenster jeweils nur ei¬ 
nen Ausschnitt, der sich mit Hilfe einer weiteren Geopaint- 


Alle Welt redet davon: 
»Desktop Publishing« (kurz: 
DTP; Verlegen vom 
Schreibtisch aus, worunter 
wir Geos-Fans ja den Com¬ 
puter verstehen!) ist ein 
brandaktueller Begriff, der 
mit Sicherheit nicht nur eine Modeerscheinung unserer 
Zeit ist, sondern eine große Wende im gesamten Publika- 
tions- und Kommunikationsbereich auslösen kann/könnte. 
Damit ist die gesamte Gestaltung von Schriftstücken aller 
Art gemeint, die man mit dem Computer (und einem 
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Drucker, versteht sich) erledigen kann. Typische DTP-An- 
wendungen sind Vereinszeitungen, Werbekataloge, Ur¬ 
kunden und sogar komplette Bücher. Neben diesen profes¬ 
sionellen Einsatzgebieten möchten aber auch viele Heim¬ 
anwender ihrer Kreativität freien Lauf lassen; Erfolgspro¬ 
gramme wie Printfox, Print-Shop, Newsroom etc. speziali¬ 
sierten sich gezielt auf Privatanwendungen (Glückwunsch¬ 
karten, Zeitungen »just for fun«). 

Die Wende »WYSIWYG« 


Entscheidend bei DTP ist, daß man am Bildschirm zu jedem 
Zeitpunkt haarscharf und genau das sehen kann, was im 
späteren Ausdruck erscheinen wird (WYSIWYG-Prinzip: 
What You See Is What You Get; man sieht also, was man 
bekommt). Im Gegensatz zu Textprogrammen wie Vizawri- 
te, die mit Hilfe von Steuersymbolen einen Wechsel der 
Schriftart, das Unterstreichen oder die Grafikeinbindung 
anzudeuten versuchen, zeichnet sich gerade Geowrlte 
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Jilg.JHi-.i- a - ^-ni . sTiHcnTinN unc bpbcine-» im ua 2a 
Seowfite bistet neben zahlreichen Funtionen, wie etwa dem Einbinden 
Jon QffaOBCäQCD auch die sehr schoene Mjglichkeit, eine Seite als 
iesamtansicht anzusehen. 


Jiese Bild wurde bespielsweise als Photo-Scrap aus einer 


Bild 9. Geowrite nimmt auch Grafiken auf 


durch WYSIWYG-Fähigkeiten aus: Jeder Zeichensatz¬ 
wechsel, ein neues Schriftattribut, eine integrierte Grafik 
wird am Bildschirm ebenso sichtbar wie die bereits erwähn¬ 
te Proportionalschrift. 

Dennoch kennt auch Geowrite seine DTP-Grenzen. Zwar 
genießt der Geowrite-Schreiber große Freiheiten bei der 
Textgestaltung, doch ist der spaltenweise Ausdruck oder 
das grenzenlose Mischen von Grafik und Text noch nicht 
möglich. 

Dafür wurde das aufsehenerregende DTP-System »Geo- 
publish« (Test in 64’er, Ausgabe 12/87, S. 32ff) geschaffen, 
welches -vom Funktionsumfang her selbst Standardsoft¬ 
ware im Profibereich annähernd erreicht; lediglich Verar¬ 
beitungsgeschwindigkeit und Floppy-Kapazität schränken 
den Gebrauch ein. Dabei lassen sich mit Geopublish Er¬ 
gebnisse erzielen, die im Heimcomputer-Bereich ihresglei¬ 
chen suchen. 

Mit einem raffinierten Trick ist es jedoch auch dem Besit¬ 
zer des »Geowrite Workshop« (erweitertes Paket aus einer 
neuen Geowrite-Version sowie weiteren Programmen) 
möglich, mit Geowrite und Geopaint neue Dimensionen 
der Textgestaltung zu erschließen. 

Das Hilfsprogramm »Paint Drivers« als Bestandteil von 
Geowrite Workshop ist in der Lage, Geowrite-Dokument 
punktgenau (!) in Geopaint-Bilder umzuwandeln. Da sich 
beide Programme des DIN-A4-Formats bedienen, geht 
dies so reibungslos vonstatten wie das normale Aus¬ 
drucken einer Datei. 

So hat der Anwender vordem endgültigen Ausdruck, der 
jetzt über Geopaint läuft, noch die Wahl zwischen zahlrei¬ 
chen Nachbearbeitungsmöglichkeiten: 


- Grafiken können jetzt nicht nur über oder unter, sondern 
auch rechts oder links von Geowrite-Texten plaziert wer¬ 
den. 

- Im Punktmodus sind weitere Veränderungen der Schrift¬ 
muster von bestimmten Zeichen keine Schwierigkeit; ganz 
tolle Effekte ergeben sich, wenn umrissene Schriftzeichen 
(Outline- oder Kontur-Schrift) mit verschiedenen Mustern 
gefüllt werden. Füllt man ein Outline-Zeichen mit schwar¬ 
zer Farbe, ergibt sich neben der üblichen Halbfett-Schrift 
»bold« noch eine Art »extra bold« für plakative Überschrif¬ 
ten. 

- Mehrspaltiger Text ist dadurch zu realisieren, daß ein Text 
auf mehrere Geowrite-Seiten verteilt wird, die durch die 
Paint-Drivers-Option »Paint OVERLAY« übereinander ein¬ 
zublenden sind. 

- Zur Gliederung von Spalten oder zur variationsreichen 
Unterstreichung sind Textstücke mit dem Rechteck- 
Werkzeug von Geopaint mühelos einzurahmen. Gerade 
bei Tabellen läßt sich damit die Übersichtlichkeit beträcht¬ 
lich erhöhen. 

- Die erwähnten Füllmuster und Pinsel von Geopaint eig¬ 
nen sich hervorragend zur Einrahmung und sonstigen Ver¬ 
zierung von Urkunden oder ähnlichen Texten. 

- Durch die Bereichsbearbeitung von Geopaint (Werkzeug 
»gestricheltes Rechteck«, rechts oben in der Werkzeuglei¬ 
ste) sind auch invertierte Schriften vorhanden. Die inverse 
Darstellung reserviert Geowrite nämlich normalerweise für 
die Bereichsmarkierung, so daß diese Schriftart nicht zu 
Papier gebracht werden könnte. 

- Auch mitten im Text lassen sich fehlende Symbole (ma¬ 
thematisches Wurzelzeichen o.ä.) durch Geopaint-Nach- 
bearbeitung einfügen. 

Es ließen sich viele weitere Anwendungen aufzählen, 
doch ai die Nachteile sollen nicht verschwiegen werden: 

- Geopaint-Dokumente benötigen wesentlich mehr Spei¬ 
cherplatz auf Diskette als Geowrite-Texte. 

- Da Geopaint einen mit »Paint Drivers« umgewandelten 
Geowrite-Text nicht als solchen identifizieren kann, sollte 
sich der Text bereits im Geowrite-Format, also vor der Kon¬ 
vertierung, soweit als möglich im richtigen Zustand befin¬ 
den; spätere Korrekturen sind ungleich mühsamer anzu¬ 
bringen. So können Zeichen oder Wörter nicht mehr ohne 
weiteres mit der DEL-Taste gelöscht werden, sondern erfor¬ 
dern einige Joystick- oder Maus-Akrobatikl 

- Jede Geowrite-Seite erfordert eine eigene Geopaint- 
Datei, da Geopaint nicht mehrseitig arbeitet. 

Software-Grundlagen der Geos-Grafik 


Nun haben Sie einen Überblick über die vielfältigen grafi¬ 
schen Möglichkeiten der Geos-Welt bekommen und ken¬ 
nen einige Kniffe, um aus diesem System ein Maximum an 
Leistung herauszuholen. Umfassende Hinweise auf weiter¬ 
führende Informationen erhalten Sie am Ende dieses Arti¬ 
kels. 

Wir wenden uns nun der Frage zu, wie Geos in internen 
Zusammenhängen mit Grafik umgeht. Wie bereits er¬ 
wähnt, bedient sich Geos der hochauflösenden Grafik 
(Hires-Grafik) mit 320 Bildpunkten in der Breite und 200 sol¬ 
cher »Pixels« in der Höhe. Geos 128 im 80-Zeichen-Betrieb 
hat eine höhere Auflösung (fast 640 x 400 Pixels), auf diese 
sehr komplizierte Betriebsart beziehen sich die nun folgen¬ 
den Hinweise jedoch nicht mehr. 

Sie wissen auch bereits, daß der Video-Chip des C64 
nicht in der Lage ist, Zeichen (Buchstaben, Ziffern usw.) im 
Hochauflösungsmodus einzublenden. Deshalb kopiert 
das Geos-Kernel jedes auszugebende Zeichen bildpunkt¬ 
weise in den Grafik-Speicher, die »Bitmap«. 
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Diskette geschickt zu reduzieren. Dabei wird die Grafikin¬ 
formation wesentlich anders als vom Video-Chip eigentlich 
benötigt gespeichert: 

- Die Größe einer komprimierten Grafik ist variabel, aller¬ 
dings müssen in X-Richtung vollständige Bytes (8-Pixel- 
Blöcke) vorliegen. 

- Im Gegensatz zum »Kreuz-und-Quer-Format« der kon¬ 
ventionellen Bitmaps strukturiert Geos jede Grafik horizon¬ 
tal: Geos speichert von links nach rechts jede Zeile zusam- 
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menhängend; am rechten Ende wird die nächste Zeile auf- 
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genommen, bis Geos mit der untersten Zeile fertig ist. 




Neues Format 

j.1 


Durch die beschriebene Neuorganisation ändert sich zu- 


Bild 10. Geopubllsh macht jeden C64~Anwender zu seinem 
eigenen Verleger 

Die Bitmap des sichtbaren Geos-Bildschirms liegt im 
Adreßbereich 40960-48959 ($A000-$BF3F), also im RAM 
unter dem Basic-ROM. Geos schaltet den gesamten ROM- 
Bereich des C 64 rigoros ab, da dieser allenfalls für Floppy- 
Zugriffe, mit Sicherheit jedoch nicht für Grafik-Zwecke vor¬ 
bereitet ist und daher nicht benötigt wird. 

Eine Bitmap kommt selten allein 


Außer der sichtbaren Bitmap bei $A000 bietet Geos jedem 
Programm einen Zusatzspeicher ($6000-$7F3F) an, der 
zum Retten der Bitmap benötigt wird. Die gesamte Fenster¬ 
technik sowie die UNDO- oder RÜCK-Funktion in Geopaint 
bedienen sich letztlich dieses Arbeitsbereichs. 

Das herkömmliche Zeichensatz-ROM ab $D000, wel¬ 
ches der Video-Chip im Textmodus zur Bildschirmdarstel¬ 
lung dringend benötigt, ist für Geos normalerweise nicht re¬ 
levant. Der Geos-Systemzeichensatz befindet sich eigent¬ 
lich im RAM-Bereich ab $D210, doch dürfen alternative Zei¬ 
chensätze, wie sie bei Geowrite/Geopaint möglich sind, an 
jedem freien Speicherplatz liegen. Geos glänzt in diesem 
Punkt durch vorbildliche Flexibilität. 

Außer der Hires-Grafik verwendet Geos jedoch auch 
Sprites zur Darstellung des Mauszeigers, einer Dateibewe¬ 
gung (Geisterbild-Piktogramm), Schiebereglern (im Vor¬ 
einstellungsmanager) sowie für den Textcursor unter Desk- 
top, Notepad und Geowrite. In der Normaleinstellung sind 
alle Sprites dunkelblau gefärbt, wodurch sie auf dem grau 
und schwarz gehaltenen Hires-Hintergrund gut erkennbar 
sind. 

Wählt man jedoch in Geopaint einen rechteckigen Aus¬ 
schnitt oder wird eine »Gummiband-Linie« vor dem endgül¬ 
tigen Zeichnen dargestellt, so handelt es sich nur schein¬ 
bar um Sprites: In Wirklichkeit sind Sprites nicht in dieser 
Größe darstellbar, weshalb Geopaint via Software »Riesen- 
Sprites« simuliert. Die zweite Bitmap (ab $6000) dient dazu, 
den Bildschirminhalt »unter den Sprites« dennoch zu erhal¬ 
ten. Geos 128 muß auf diese Weise sogar jedes Sprite 
(selbst den Mauszeiger) realisieren! 


Kompakte Grafik 


Geos hat auch mit dem wenigen Arbeitsspeicher, den der 
C64 für ein solch komplexes System zur Verfügung stellt, 
hart zu kämpfen. Es wäre deshalb viel zu luxuriös, jede zwi¬ 
schenzuspeichernde Grafik in voller Größe zu speichern. 

Deshalb kennt Geos ein sehr effektives Verfahren, um 
den Speicherbedarf von Grafiken im Speicher und auch auf 


die eigentliche Komprimierung, bei der alle sich wiederho¬ 
lenden Bytes oder Byte-Folgen zusammengefaßt werden. 
Die Grundlagen des Daten-Packens wurden in Sonderheft 
24 (Seite lOlff.) ausführlich erklärt, hier seien nur die Kopf- 
Bytes (»Header«) erklärt: 

$00-$7F: Das Byte hinter dem Header soll so oft wieder¬ 
holt werden, wie es der Header angibt. Die 2-Byte-Sequenz 
$21 $FF steht also für 33faches $FF und spart damit schon 
31 Byte. 

$80-$DC: Es folgen Daten, die sich nicht komprimieren 
ließen; die Anzahl errechnet sich durch Subtraktion des 
Wertes $80 vom Header, auf $83 folgen also 3 Byte. 

$DD-$FF: Damit werden auch solche Daten zusammen¬ 
gefaßt, die bereits komprimiert vorliegen. Durch Subtrak¬ 
tion von $DC ergibt sich die Anzahl der Wiederholungen; 
hinter dem Header gibt ein vorgeschaltetes Byte an, wie 
viele F/tewerte sich auf dieses Kommando beziehen. 

Zum komfortablen Umgang mit der Geos-Grafik (mit 
Textausgabe und Sprites) stellt Geos zahlreiche Routinen 
zur Verfügung, die ähnlich leicht zu handhaben sind wie die 
Kernel-Routinen des C64-ROM. Bereits die Namen lassen 
vieles über die Funktionsweise vermuten: 


HLINE ($C118), INVLINE ($C11B), RECVLINE ($C11E), IMPRLINE 
(VI.2: $EDD2, V1.3: $C737), VLINE ($C121), BOX ($C124), FRAME 
($C127), INVBOX ($C12A),RECVBOX ($C12D), LINE ($C130), 
POINT ($C133), STRING ($0136), PATTERN ($0139), SCAN 
($C13C), RPOINT ($C13F), BITMAP ($0142), PUTCHAR ($0145), 
PUTSTR ($0148), SYSFONT ($C14B), PUTDEC ($0184), IBOX 
($C19F), IFRAME ($C1A2), IREVBOX ($C1A5), ISTRING ($C1A8), 
IBITMAP ($C1 AB), IPUTSTR ($C1AE), GETSIZE ($C1B1), 
MAKESPR ($C1C6), LOADSET ($C1CC), PUTSPR ($C1CF), 
SPRON ($C1D2), SPROFF ($C1D5), SMCHAR ($0202), PRBOX 
($0250), IPRBOX ($0253), BITCLIP ($C2AA), CLIPBIT ($C2C5). 
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Bild 11. Geofile, die Dateiverwaltung mit Grafikfähigkeit 
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Bild 12. Füllmuster in Geopaint machen’s möglich... 


Alle Geos-Routinen zum Aufbau der grafischen Oberflä¬ 
che stützen sich beim Aufbau von Menüs, Windows, Icons, 
Mauszeiger und Textcursor ausschließlich auf diese Routi¬ 
nen, die aber auch dem Programmierer für eigene Zwecke 
zur Verfügung stehen. Eine Beschreibung aller Möglichkei¬ 
ten würde den Rahmen dieses Artikels sprengen. Wir wol¬ 
len Sie daher auf den sehr ausführlichen Geos-Kurs verwei¬ 
sen, der auf Seite 69 beginnt. 

Grafik-Strings: unkonventionell, 
aber prima 


Nun möchten wir noch Ihre Aufmerksamkeit auf ausgespro¬ 
chene Besonderheiten der Geos-Grafikroutinen lenken: 

- Horizontale und vertikale Linien zeichnet Geos mit riesi¬ 
ger Geschwindigkeit, da diese Sonderfälle bei weitem nicht 
so aufwendige Berechnungen erfordern wie diagonale Li¬ 
nien. HLINE zeichnet waagrechte, VLINE senkrechte Li¬ 
nien in Windeseile. Dabei sind 8 Pixel lange Zeichenmuster 
möglich ($FF = durchgezogene Linie, $00 = Löschlinie, 
%10101010 = gepunktete Linie, °/o11110000 = gestrichelte 
Linie). 


- Flächen werden mit 8x8 Punkte gro¬ 
ßen Füllmustern ausgefüllt (wie in Geo¬ 
paint), die mit wenigen Handgriffen mo¬ 
difizierbar sind: Die Füllmuster befin¬ 
den sich ab $D000 im RAM und können 
mit dem Pattern-Editor verändert wer¬ 
den. 

- Die Sprite-Register des VIC sind we¬ 
gen der Geos-Speicherstruktur nur mit 
Umschaltung des Prozessorports zu er¬ 
reichen; die Geos-Routinen empfehlen 
sich zum leichteren Zugriff. Jedes Geos- 
Sprite wird zuerst mit MAKESPR in den 
Geos-Spritebereich kopiert, damit der 
Video-Chip darauf zugreifen kann. 

- PR-Routinen kopieren Linien und Flä¬ 
chen aus dem sichtbaren Bildschirm in 
die zweite Bitmap, IMPR-Routinen ho¬ 
len sie zurück. 


Alle Routinen schon da 


- STRING bietet eine hochinteres¬ 
sante Form der Grafikprogrammie¬ 
rung: In einer Art »String« (Zeichenket¬ 
te) werden Kommando-Codes überge¬ 
ben, die bestimmte Grafikroutinen kom¬ 
fortabel aufrufen. So dient der Code $02 
zum Ziehen einer Linie, $05 setzt ein 
Flächenmuster, $07 zeichnet einen 
rechteckigen Rahmen etc. Einfache 
Grafikfiguren lassen sich damit unkom¬ 
pliziert als Befehlsfolgen zusammen¬ 
fassen und über STRING ausführen. 

- Die Grafikroutinen von Geos arbeiten 
prinzipiell einfarbig und verwenden die 
eingestellten Systemfarben. Geopaint 
realisiert seine Farbgebung über eige¬ 
ne Zusatzroutinen, die nicht im Geos- 
Kernel verankert sind und somit nicht 
von uns Programmierern eingesetzt 
werden können. Tiefergehende Infor¬ 
mationen zur Grafik-Programmierung 
unter Geos finden Sie in dem Kurs »Der 
Schlüssel zu Geos« auf Seite 69. In den 
Büchern »C 64 Geos 1.3 deutsch« beziehungsweise »C 64 
Geos 1.2« werden die Grafikroutinen von Geos umfassend 
und vollständig abgehandelt. (Florian Müller/sk) 



Bild 13. Ausschnittsfenster in Geopaint 
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Geos kommunikativ - 
Datenaustausch unter der Lupe 


Um eigene Geos-Programme und Utilities zu 
Geos entwickeln zu können, muß man über den 
Aufbau der wichtigsten Geos-Dateien Bescheid 
wissen. Hier erfahren Sie klipp und klar, wie Grafi¬ 
ken, Texte und Zeichensätze unter Geos auf Dis¬ 
kette gespeichert werden. 

D er Datenaustausch zwischen verschiedenen Geos- 
Applikationen klappt hervorragend; Texte, Grafiken 
und Zeichensätze werden in »text scraps«, »photo 
scraps« oder »font files« gespeichert. Damit Sie solche Da¬ 
teien selber erstellen oder zumindest einiesen können, ge¬ 
ben wir Ihnen hier alle Daten und Fakten zu diesen wichti¬ 
gen Dateien. Wir sind sehr gespannt, was für Anwendun¬ 
gen Ihnen dazu einfallen. Der »Bitmap Converter« in die¬ 
sem Heft ist der Beweis, daß sich bei Kenntnis von Geos- 
Interna nützliche Programme realisiert werden können. 

Import und Export 


Zunächst sei wiederholt, wie aus Anwendersicht Daten 
ausgetauscht werden. Textausschnitte (Text-Scraps) ent¬ 
stehen bei Auswahl von »Herausschneiden« (cut) oder »Ko¬ 
pieren« (copy) im »Editieren«-Menü (edit) von Geowrite. 
Aber auch Geocalc und Geofile verwenden Text-Scraps als 
Zwischenspeicher. Da Text-Scraps applikationsunabhän¬ 
gig sind, können also auch Text-Scraps von Geofile in Texte 
von Geowrite eingebunden werden. Besonders interessant 
ist es auch, Geocalc-Ausschnitte in Geowrite-Tabellen um¬ 
zuwandeln. Umgekehrt können Geowrite-Texte in einem 
Geopaint-Textfenster plaziert werden. 

Die Flexibilität liegt darin, daß jeder verwendete Textaus¬ 
schnitt, den man mit Bereichswählern markiert und »her¬ 
ausschneidet« beziehungsweise »kopiert«, nicht im Spei¬ 
cher des aktuellen Programms »versauert«, sondern auf 
Diskette verfügbar bleibt. 

Gleiches gilt in noch stärkerem Maße für Foto-Scraps. 
Foto-Scraps entstehen in Geopaint oder im »Graphics 
Grabber« (s. Test von »Desk Pack 1/Geodex«), Diese kön¬ 
nen dann 

- in Geowrite-Texte eingebunden werden, 

- bei Geofile zur grafischen Veranschaulichung von 
Datensätzen dienen, 

- an anderer Stelle in Geopaint-Dokumenten 
eingefügt werden. 


Scrapologie 


Für die entsprechenden Applikationen sind die Foto- und 
Textalben nicht von Bedeutung. Da Foto- und Textmanager 
als Desk Accessory in jeder Applikation verfügbar sind, 
liegt es am Anwender, bei Bedarf eine Seite aus einem Al¬ 
bum zu entnehmen. Dies führt wiederum dazu, daß ein 
Scrap (genauer: Text-Scrap oder Foto-Scrap) angelegt 
wird. Auf einer Diskette kann sich zu einem Zeitpunkt nur 
jeweils ein Scrap der gleichen Sorte befinden. 


Calc-Scraps sind spezielle Ausschnitte aus Kalkulations- 
Arbeitsblättern (Spreadsheets) und interessieren in diesem 
Zusammenhang noch nicht. Lediglich Geochart, das Pro¬ 
gramm zur grafischen Auswertung von Daten, welches in 
Kürze erscheinen soll, wird diese benötigen. 

Wir wollen nun die Text- und Foto-Scraps etwas durch¬ 
leuchten. Unsere »scrapologischen« Bemühungen waren 
übrigens von Diskettenmonitor und dem »Reference Gui¬ 
de« (s. Rubrik »Bücher«) unterstützt. 


Byte Bedeutung 

0/1 Anzahl der noch folgenden Bytes im File 
2 NEWCARDSET: Elnleitungsbyle $17 

(Bytes 3-5 gehören zum NEWCARDSET-Eintrag) 

3/4 Zeichensatz-Kennung (Nummer und Größe) 

5 Schriftart als Byte, gesetztes Bit = aktiviert 

bO = unbenutzt; alle Bits 0 = Normaltext 
bl = Subscript (Tiefstellung) 
b2 = Superscript (Hochstellung) 
b3 = Outline (Kontur) 
b4 = Italic (Kursiv) 
b5 = Revers 

b6 = Boldface (Fettschrift) 
b7 = Underline (Unterstreichung) 
ab 6 Text im ASCII-Format, kann Sonderzeichen enthalten: 
bi%- $09 = Tabulator-Vorwärtssprung 

Ende $11 = RULER-ESCAPE (nur Format »V2.0«) 

$17 = NEWCARDSET-Einlrag 


Tabelle 1. Aufbau eines Text-Scraps 

Zunächst zur Dateistruktur. Scraps sind sequentielle Da¬ 
teien (Filetyp USR) vom Geos-Filetyp 4, also »Systemdatei« 
(system file). Die Dateinamen sind »Photo Scrap« oder »Text 
Scrap« und stehen auf Diskette im Geos-Zeichensatz. 

Verschiedene Versionen 


Sehr wichtig ist auch der Infosektor (header) einer Scrap- 
Datei. Dessen Bytes 89 bis 92 (Teil der »class«- 
Spezifikation) enthalten Strings wie »VI .1«, die die Versions¬ 
nummer angeben. Derzeit gibt es für Foto-Scraps nur das 
Format »VI.1«, aber zwei verschiedenene Text-Scraps kön¬ 
nen einem über den Weg laufen: 

- »VI .2« ist das Text-Scrap von Geowrite bis zur Version 1.3. 

- »V2.0« ist eine erweiterte Form des Text-Scraps, die nur 
von Geowrite 2.0 und 2.1 (= Bestandteil des Geowrite 
Workshop) generiert wird. Text-Scraps von »V2.0« können 
noch zusätzliche Informationen hinsichtlich der Textforma¬ 
tierung enthalten. 

Die Versionsstrings haben nichts mit der verwendeten 
Geos-Version zu tun. Es ist aber dennoch davon Abstand 
zu nehmen, Scraps von einer neueren Version als der eige¬ 
nen einzulesen. Denn mit zukünftigen Erweiterungen der 
Scrap-Formate ist nach Aussagen von Berkeley Softworks 
durchaus zu rechnen. 

Kommen wir zuerst auf die Struktur von Text-Scraps zu 
sprechen (Tabelle 1). Die ersten beiden Bytes geben die 
Länge des einzufügenden Textes an; sich selbst rechnen 
sie nicht mit. Darauf folgt auf jeden Fall ein Byte mit dem 
Wert $17. Diese Konstante trägt die Bezeichnung NEW- 
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CARDSET. Durch NEWCARDSET werden drei weitere 
Bytes eingeleitet, wobei die ersten zwei Byte als ein 16-Bit- 
Wert zu sehen sind, in welchem die unteren 6 Bit (Null bis 
fünf) die Größe des verwendeten Zeichensatzes (in Punk¬ 
ten) und die oberen zehn (sechs bis fünfzehn) die Zeichen¬ 
satz-Kennziffer angeben (Näheres zu dieser Font- 
Information an späterer Stelle im Artikel). Das dritte Byte 
nach NEWCARDSET, also bereits Byte 5 im File (gezählt 
wird ab Byte 0), enthält die aktuelle Schriftart. Der Tabelle 
entnehmen Sie bitte die einzelnen Bedeutungen. Beach¬ 
ten Sie, daß die Schriftarten »Superscript« und »Subscript« 
(Hoch- und Tiefstellung) erst ab Geowrite 2.0 möglich sind. 

Ab Byte 6 bis zum Ende der Text-Scrap-Datei steht nun 
der eigentliche Textausschnitt im Geos-Zeichencode (I). In 
diesem dürfen sich Tabulatoren, also $09-Bytes, ebenso 
befinden wie neue NEWCARDSET-Einheiten (auf NEW¬ 
CARDSET folgen, wie bereits gesagt, drei Bytes für den 
Zeichensatz- oder Schriftartwechsel) oder sogenannte 
»RULER-ESCAPEs«. 


Die Außenseiter: 
NEWCARDSET und RUIER-ESCAPE 


Damit sind wir auch schon bei der einzigen Besonderheit, 
die Text-Scraps vom Format V2.0 auszeichnet: So wie 
NEWCARDSET den eigentlichen Textausschnitt verläßt 
und einen Schriftwechsel signalisiert, kann das Byte ESC- 
RULER ($11) ein neues »Lineal« einleiten. Wie Sie wissen, 
stellt Geowrite 2.0/2.1 im oberen Bildschirmbereich anhand 
eines Lineals alle Formatierungsbesonderheiten dar. Ta- 

Byte 

Bedeutung 

1 

Byte $11 (ESCRULER) 

2/3 

linker Rand in Biidpunkten (0-319) 

4/5 

rechter Rand in Bildpunkten (maximal 319) 

6-21 

Tabulatoren 

Pro Tabulator 2 Byte nach dem Schema: 
oberstes Bit (b15) gesetzt = Dezimaltabulator 
oberstes Bit (b15) gelöscht = Text-Tabulator 
untere Bits (b0-b14) = Tabulatorposition in Bildpunkten 

22/23 

24 

linke Einrückung des aktuellen Absatzes vom linken Rand 
Formatierung und Zeilenabstand in Form von Flags 
bO/bl = 0 /o00 für Linksbündigkeit 
%01 für Zentrierung 
%10 für Rechtsbündigkeit 
%11 für Blocksatz 

b2/b3 = %00 für einfachen Abstand 

%01 für anderthalbfachen Abstand 
%10 für doppelten Abstand 

25 

Textfarbe (wird noch nicht verwendet) 

26/27 

(noch) unbenutzt 


Tabelle 2. Der Aufbau einer »RULER-ESCAPE«-Sequenz 


belle 2 beschreibt den Aufbau eines solchen RULER-ES¬ 
CAPEs, wobei in diesem Fall die Zählung bei Byte 1 be¬ 
ginnt. 

Dennoch sind weitere Erläuterungen nötig: Zunächst 
einmal sollten Sie wissen, daß im Gegensatz zur obligatori¬ 
schen Einleitung eines Text-Scraps mit NEWCARDSET in 
einem Text-Scrap kein Zwang besteht, daß ein RULER-ES- 
CAPE integriert ist. Falls dies dennoch eintritt, so zu Beginn 
eines Textfiles oder am Anfang eines neuen Absatzes. Ab¬ 
sätze sind als »Texte zwischen zwei CR-Codes ($0D)« defi¬ 
niert; so ergibt es sich, daß einem RULER-ESCAPE stets 
ein CR vorausgeht/ nämlich das CR am Ende des letzten 
Absatzes. 

Die Länge eines RULER-ESCAPEs ist konstant: Jeweils 
27 Byte enthalten alle Informationen über die Formatie¬ 


rung, Ränder, Tabulatoren, und sogar die Textfarbe, was 
aber momentan von keiner Applikation genutzt wird. 

Die Tabulatoren werden im Text-Manager zwar nicht an¬ 
gezeigt, aber der TAB-Code ($09) bedeutet einen Sprung 
zum nächsten verfügbaren Tabulator, nötigenfalls auch in 
die nächste Zeile (wenn in der aktuellen Zeile kein Tabulator 
mehr frei ist). 

Kompakt + kompatibel = kompliziert 


Wie schon erwähnt, gibt es bei Foto-Scraps zur Zeit nur ein 
Format. Es bestehen mehr als begründete Aussichten, daß 
dies so bleiben wird. Dafür ist das Foto-Scrap-Format etwas 
komplizierter als das der Text-Scraps - auch wenn Tabelle 
3 zunächst recht transparent wirkt. 

Wer bereits mit der Geos-Routine »BITMAPUP« pro¬ 
grammiert hat oder das komprimierte Geos-Grafikformat 
bereits kennt, wird keine Schwierigkeiten haben. In diesem 
Zusammenhang seien exakte Nachschlagestellen er¬ 
wähnt, damit Sie sich schnell und zuverlässig informieren 
können: 

- Komprimiertes Grafikformat: »C64 - Alles über GEOS 
1.2«, S. 362-367 oder »C 64 - G EOS 1.3 deutsch«, S. 418-423 

- Routine BITMAPUP ($C142), auch BITMAP genannt: 
»C 64 - Alles über GEOS 1.2«, S. 394/395 oder »C 64 - GEOS 
1.3 deutsch«, S. 450/451 

Nun zur Foto-Scrap-Datei. Die ersten 3 Byte geben die 
Ausmaße des Grafikausschnitts an. Das erste Byte enthält 
die Breite der Bitmap in Byte (= 8 Bildpunkte). Das kompri¬ 
mierte Geos-Format verlangt, daß in horizontaler Richtung 
eine Bildpunktbreite besteht, die durch 8 teilbar ist. Dies ist 
eine sinnvolle Restriktion, die sehr zur kompakten Speiche¬ 
rung und schnellen Bearbeitung beiträgt. Genau so ist zu 
beachten, daß Bitmaps zur Komprimierung horizontal ge¬ 
speichert werden, also nicht in 8 x 8-Blöcken wie beim 
Video-Chip des C64. Dies ist eine tiefgreifende Verände¬ 
rung, in den angegebenen Quellen finden Sie näheres. In 
den genannten Büchern wird sogar ein Beispiel dazu 
»durchgerechnet«. 

Die Höhe wird in Byte 0 der Datei in Bildzeilen (0-199) an¬ 
gegeben; Byte 1 und 2 enthalten einen 2-Byte-Wert, da sol¬ 
che Bildausschnitte theoretisch auch die Größe einer 


Byte 

Bedeutung 

0 

Breite in Bytes (8-Pixel-Einheiten) 

1/2 

Höhe in Bildschirmzeilen 

3-X 

Modus-Byte+Daten, auch abwechselnd, 
bis zum Ende der Bitmap 

ab 

x+1 

Farbtabelle im komprimierten Format, 
bezieht sich aber auf unkomprimierte Bitmap 


Tabelle 3. Die Anatomie von Foto-Scraps 


C64-Bitmap überschreiten dürfen. In der Praxis ist dies je¬ 
doch mit Geopaint bis zur Version 1.4 noch nicht möglich. 

Auf diese drei Initialisierungs-Bytes folgt nun zunächst 
ein »Modus«-Byte. Dieses gibt an, welche Komprimierungs¬ 
form vorliegt: 

- 0 bis 127: Das Byte nach dem Modus-Byte muß so oft wie¬ 
derholt werden, wie der Zähler angibt 

- 128 bis 220: die nächsten Bytes (Modus-Byte -128 ergibt 
die Anzahl) werden je einmal verwendet (unkomprimierte 
Bitmap) 

- 221 bis 255: das Zähler-Byte nach diesem Modus-Byte 
gibt an, wie oft die folgenden Bytes (Anzahl: Modus-Byte - 
220) zu wiederholen sind 

Auf das Modus-Byte folgen also entsprechend viele 
Bitmap-Daten. Anschließend kann ein neuer Komprimie- 
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rungsmodus verwendet werden. Ist schließlich der gesam¬ 
te Ausschnitt durchlaufen, folgt die Farbinformation. Diese 
ist allerdings wieder an der VIC-Bitmap orientiert: Jedes 
Byte der Farbtabelle bezieht sich auf ein »card« (= Einheit 
aus 8x8 Punkten) der fertigen, unkomprimierten Bitmap. 
Die Farbcodes entsprechen ebenfalls denen des Video- 
Chip. Allerdings ist die Farbcode-Tabelle ihrerseits schon 
nach demselben Schema wie die Bitmap komprimiert. 

Jedoch nicht jede Applikation kümmert sich um die Far¬ 
ben, Geowrite beispielsweise fügt Grafiken schwarzweiß 
ein. 

Fassen wir zusammen: Ein Foto-Scrap beginnt mit drei 
Byte Größenangaben, wird fortgesetzt mit einem der Routi¬ 
ne BITMAP angeglichenen Objekt (in dem mehrere Modus- 
Bytes Vorkommen dürfen) und endet mit der Farbtabelle, 
die ebenfalls komprimiert gespeichert wird, sich aber auf 
die unkomprimierte (entpackte) Bitmap bezieht. 

Font-astis<h ' 


Bereits bei den Text-Scraps wurde auf die 2 Byte umfassen¬ 
de Zeichensatz-Kennung eingegangen. Deshalb sei auch 
das Format der Geos-Zeichensätze erläutert: 

Zeichensätze haben den Filetyp 8, bezeichnet als »font fi- 
le« oder »Schriftart«. 

Ein Zeichensatz enthält alle 96 Zeichen einer Schriftart, 
die die ASCII-Codes 32 bis 127 haben. Lediglich der Sy¬ 
stemzeichensatz BSW-9 kennt noch CHR$(128), das 
Commodore-Logo, welches zur Darstellung von »short- 
cuts« (Tastenkombinationen zum schnelleren Auslösen von 
Menüpunkten) in Geos-Programmen, zum Beispiel Desk- 
top (ab Geos 1.3) und Geowrite, rege Verwendung findet. 

Die Zeichencodes 0 bis 31 sind Steuerzeichen. 

Jedes Zeichen einer Schriftart hat seine spezifische Brei¬ 
te (Proportionalschrift!), aber alle besitzen dieselbe Höhe. 
Die Höhe wird in Punkt angegeben und ist Ihnen bestimmt 
schon in Geopaint und Geowrite bei der Menü-Auswahl ei¬ 
nes Zeichensatzes begegnet. 

Die maximale Breite liegt bei 54 Punkten; die Höhe ist 
prinzipiell unbeschränkt, doch Geowrite und Geopaint ar¬ 
beiten nur bis zu 24 Punkt korrekt. Geopublish jedoch hat 
auch »Mega Fonts«, nämlich Zeichensätze mit, einer stol¬ 
zen Höhe von 48 bis 54 Punkten (!) für plakative Überschrif¬ 
ten. 

Jeder Zeichensatz ist durch Name und Größe (= Höhe 
in Punkten) bestimmt. Der Systemzeichensatz heißt bei¬ 
spielsweise BSW-9 und ist übrigens jederzeit im Speicher 
verfügbar. 

Damit verschiedene Zeichensätze verwaltet werden kön¬ 
nen, hat jeder eine 2 Byte lange Spezifikation, mit welcher 
Sie ja bereits beim Text-Scrap-Format konfrontiert wurden: 
Die unteren 6 Bit (0 bis 5) bezeichnen die Höhe in Punkten, 
die oberen 10 (6 bis 15) eine spezielle Zeichensatz-Num¬ 
mer. 

Dabei haben die deutschen Zeichensätze von Geos 1.3 
etwas andere Kennzeichnungen als die englischen Schrift¬ 
arten. Mit einem Disketten-Monitor können Sie jedem Zei¬ 
chensatz, von dem Sie die Kennziffer benötigen, diese ent¬ 
nehmen; Sie erfahren im folgenden unter anderem, wo Ge¬ 
os die Zeichensatz-Vermerke anbringt. 

VLIR mit Variationen 


Das herkömmliche VLIR-Format von Geos-Dateien sollte 
Ihnen geläufig sein, um den Aufbau einer Schriftart-Datei 
zu verstehen. Dazu wieder Quellenangaben, damit Sie sich 
gezielt informieren können: »C64 - Alles über GEOS 1.2«, 


S. 227-235 (Erklärungen), S. 282-294 (Hilfsprogramm 
VLIR-Analyzer), S. 425 (CHAIN-Routine), S. 446-448 
(VLIR-Routinen im Detail); »C64 - GEOS 1.3 deutsch«, S. 
282-288 (Erklärungen), S. 333-345 (VLIR-Analyzer), S. 
480/481 (CHAIN-Routine), S. 500-503 (VLIR-Routinen im 
Detail) 

Auch Zeichensätze werden in VLIR-Files gespeichert. 
Wenn eine bestimmte Schriftgröße »belegt« ist, so enthält 
der korrespondierende Datensatz die entsprechenden 
Zeichensatz-Daten. Beispielsweise würde Datensatz 24 
die Daten zur Schriftgröße 24 im Zeichensatz angeben. Zu 
jeder Schriftgröße müssen nämlich eigene Daten gespei¬ 
chert sein; Geos ist nicht in der Lage, anhand einer einzi¬ 
gen Festlegung von Zeichenmustern jede Schriftgröße zu 
rekonstruieren. Das schaffen nicht einmal größere Compu¬ 
ter wie der Amiga oder Atari ST. 

Bei nicht vorhandenen Schriftgrößen herrscht hingegen 
im Indexblock des VLIR-Files gähnende Leere (Null-Bytes 
bei Spur- und Sektorangabe). 

Der Info-Sektor enthält noch weitere Daten, die sich auf 
den Zeichensatz im allgemeinen beziehen. Die Bytes 128/ 
129 beispielsweise sind die Zeichensatz-Kennziffer, die von 
0 bis 1027 (!) reicht. 

Ab Byte 130 stehen für jede Schriftgröße, beginnend mit 
der kleinsten vorhandenen und endend mit der größten, ei¬ 
gene Kennziffern. Diese Tabelle besteht aus 16 Datenwör¬ 
tern (1 Wort = 2 Byte) und wird in der Regel mit Null-Bytes 
auf diese Größe von 32 Byte aufgefüllt. 

Den gleichen Aufbau hat eine Tabelle ab Byte 97, die die 
Größen in 2-Byte-Einheiten (!) beinhaltet. Damit ist bei¬ 
spielsweise Geowrite und Geopaint ein schneller Aufbau 
des Untermenüs mit den Schriftgrößen möglich. Diese Ta¬ 
belle ist also nicht essentiell, wird aber von allen Geos-Ap- 
plikf”" nen zur Vereinfachung benötigt. 

Aus der Maximalgröße der Tabellen läßt sich richtigerwei¬ 
se schlußfolgern, daß pro Zeichensatz-File maximal 16 ver¬ 
schiedene Schriftgrößen möglich sind. Diese Anzahl ist 
aber eine theoretische Obergrenze, die in der Praxis nicht 
erreicht wird. 

Zeichensätze im Speicher 


Um den Aufbau von Zeichensätzen muß man sich nicht 
kümmern, solange man sie als VLIR-Datensätze in den 
Speicher lädt, die Adressen in $02/$03 ablegt und die Rou¬ 
tine LOADSET ($C1CC) startet. Diese Routine lädt keinen 
Zeichensatz, sondern aktiviert einen vorhandenen. Nach 
dieser Aktivierung laufen alle Textausgaben der 
PUTCHAR-Routine ($C145), also letztlich alle Textausga¬ 
ben des Geos-Kernels, über den neuen Zeichensatz ab. 
Den Systemzeichensatz stellt man über SYSFONT ($C14B) 
ein. 

Somit muß man sich über den Aufbau des Zeichensatzes 
im einzelnen keine Gedanken mehr machen. Interessierte 
Leser können dies mit einem Speichermonitor selbst her¬ 
ausfinden; herrscht jedoch starkes Interesse an noch mehr 
Dokumentationen zum Zeichensatz-Format, so teilen Sie 
uns dies bitte mit. 

Wir kommen abschließend noch einmal auf die Textspei¬ 
cherung zurück. Neben den Text-Scraps sei auch noch der 
Aufbau von Geowrite-Textdateien erläutert. 

Auch bei Textdokumenten bestehen Unterschiede zwi¬ 
schen den Formaten »VI.1« (verwendet von Geowrite 1.1 bis 
1.3) und »V2.0« (verwendet von Geowrite 2.0 und 2.1). Auf je¬ 
den Fall werden Dokumente in VLIR-Files abgelegt. Die 
Datensätze 0 bis 60 zeigen auf die Datensätze für entspre¬ 
chende Textseiten; die Numerierung beginnt intern also bei 
0, am Bildschirm mit 1 und kann unter Geowrite 2.1 mit »set 
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first page« geändert werden. Auf den Aufbau des VLIR- 
Files hat dies jedoch keinerlei Einfluß. 

Datensatz 61 weist auf die Kopfzeilen, Datensatz 62 auf 
die Fußnoten; diese sind ebenfalls wie herkömmliche Text¬ 
seiten gespeichert. 

Während Datensatz 63 momentan unbenutzt ist, bein¬ 
halten die Datensätze 64 bis 127 die eingefügten Bilder 
(Foto-Scraps) im komprimierten Format, das Sie späte¬ 
stens seit der Erklärung der Foto-Scraps kennen. 

Insgesamt sind also maximal 61 Textseiten (Kopf- und 
Fußzeilen nicht mitgerechnet) und maximal 64 Bilder mög¬ 
lich. Diese Grenze erreicht man in der Praxis allerdings 
kaum. 

Jede Textseite steht also in einem VLIR-Datensatz. Tabel¬ 
le 4 zeigt den Aufbau einer Textseite im Format »VI.1», Ta¬ 
belle 5 das Format »V2.0«. Sie benötigen zum Verständnis 
die Kenntnis der Dateneinheiten NEWCARDSET und 


Byte 

Bedeutung 

0/1 

linker Rand in Bildpunkten (0-319) 

2/3 

rechter Rand in Bildpunkten (maximal 319) 

4-19 

Tabulatoren, achtmal 2 Byte, die jeweils die 
Bildpunkt-Koordinate angeben 

20-23 

NEWCARDSET-Einheit, s. Text Scrap 

24-x 

Textseiten-Inhalt im Geos-Zeichencode, 
aber mit Besonderheiten: 

$01 = Seitenende (steht mit Sicherheit am Ende) 

$10 = GRAPHIC-ESCAPE-Einleitung 
$17 = NEWCARDSET-Einheit 


Das letzte Byte ist auf jeden Fall $01 (Seitenende). 


Tabelle 4. Geowrite-Textselte im Format »VI.1« 


RULER-ESCAPE, die bereits bei den Text-Scraps behan¬ 
delt wurden. 

Grafiken werden durch das Byte 16 markiert, worauf wei¬ 
tere 5 Byte zur Grafik folgen: Breite in Bytes (1 Byte), Höhe 
in Bildschirmzeilen (2 Byte) und Datensatznummer (1 Byte) 
für die Grafik-Bitmap im Dokument. Diese 6 Byte (Byte 16 
+ 5 Datenbyte) bezeichnet man als GRAPHIC-ESCAPE. 

Weitere Text-Spezifikationen 


Zusätzlich zu den gespeicherten Seiten vermerkt Geowrite 
2.0 oder 2.1 auch im Infosektor der Datei einige Angaben 


Byte 

Bedeutung 

0-27 

RULER-ESCAPE-Definition 

28-31 

NEWCARDSET-Einheit 

32-x 

Textseiten-Inhalt im Geos-Zeichencode, 
aber mit Besonderheiten: 

$01 = Seitenwechsel (page break) 

$10 = GRAPHIC-ESCAPE-Einleitung 

$11 = RULER-ESCAPE bei Formatierungswechsel 

$17 = NEWCARDSET-Einheit 


Das letzte Byte Ist auf jeden Fall $00 am Dokument-Ende. 


Tabelle 5. Geowrite-Textselte Im Format »V2.0« 


(Tabelle 6). Die Bytes 137 und 138 geben die erste Seiten¬ 
nummer bei Ausdrucken an, die mit »set first page« be¬ 
stimmt wurde. Intern numeriert Geowrite jedoch alle Seiten 
von 0 an, so daß die Ausgabe-Seitennummer folgenderma¬ 
ßen errechnet wird: interne Nummer plus »set first page«. 

Auch spezifische Höhen von Kopf- und Fußzeilenbereich 
sowie Seitenlänge in Bildpunkten (wegen der Druckeraus¬ 
gabe von Bedeutung) und die Flags für NLQ-Abstand und 
Titelseite (keine Kopf- und Fußzeilen bei Ausdruck der er¬ 
sten Seite im Dokument) werden hier gespeichert. Das For¬ 
mat »VI.1« benötigt natürlich alle diese Angaben nicht. 

Soweit die Erläuterungen. Sie kennen sich jetzt mit Foto- 
Scraps, Text-Scraps, Textdokumenten und Zeichensätzen 
(fonts) soweit aus, daß Sie eigene Anwendungen realisie¬ 
ren können. Wir sind gespannt, was Ihnen einfallen wird. 
Der angesprochene »Bitmap Converter« aus diesem Son¬ 
derheft ist sicherlich ein guter Ansporn zu eigenen Pro¬ 
grammiertaten. (Florian Müller/sk) 


Byte 

Bedeutung 

137/138 

Seitennummer von »set first page«, falls 
unverändert: $01 

139 

b7 = 1 für Titelseite aktiviert 

b6 = 1 für NLQ-Zeichenabstand aktiv 

140/141 

142/143 

Höhe der Kopfzeilen in Bildpunkten 

Höhe der Fußzeilen in Bildpunkten 

144/145 

Seitenhöhe, abhängig von Druckerauflösung; 

Geowrite 2.0/2.1 nimmt ggf. Umformatierungen vor, 
damit die Textseite dem Druckertreiber 

angemessen ist und auts Papier patit. 


Tabelle 6. Weitere Geowrite-Informationen im Infosektor 
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Der Schlüssel zu Geos 

Steigen Sie mit uns hinab in die Tiefen der Geos-Programmierung. 

Mit den hier vorgestellten Hilfsprogrammen und einer Geos-Assembler-Bibliothek geben 
wir Ihnen dazu leistungsstarke Werkzeuge an die Hand. 


D ieser Geos-Kurs gibt Ihnen Hilfestellungen und Ein¬ 
blick in die Systemebene. Hierzu sind Grundkenntnis¬ 
se in Maschinensprache und über die Diskettenstruk¬ 
tur der Floppy 1541 notwendig. Voraussetzung für ein gutes 
Verständnis dieses Kurses ist ein Grundwissen in 
6510-Assembler. 

Wenn Sie Geos geladen haben, so sind Sie jetzt bereit, 
in die interne Geos-Welt vorzustoßen. Erstellen Sie sich zu¬ 
erst Sicherheitskopien (siehe Handbuch). Diese müssen 
verschiedene Namen haben, damit Geos sie unterschei¬ 
den kann. Bei der deutschen Geos-Version 1.3 wählen Sie 
dazu im Menü »Diskette« die Option »Umbenennen«, bei 
Geos 1.2 »Rename« im Menü »disk«. Um gleich beim The¬ 
ma Diskette zu bleiben: Das Geos-DOS (Disk Operating Sy¬ 
stem) ist das erste Thema unseres Ausflugs in die Geos- 
Welt. Sehen Sie sich mal den Infoschirm der Dateien 
»Geos« und »Geos KERNAL« an. Falls Sie nicht wissen, wie 
das geht: Das betreffende Icon der Datei einmal anklicken 
(es wird dann invertiert) und in der Menüzeile »FILE« (bei 
Geos 1.3: »Datei«) und dann »INFO« anklicken. 

Sie sehen jetzt bei »Geos« in der Rubrik »STRUCTURE« 
(bei Geos 1.3: Stuktur«)die Meldung «SEQUENTIAL bezie¬ 
hungsweise SEQUENTIELL«, während beim Geos-Kernel 
»VLIR« erscheint. »SEQ« bedeutet, daß die Datei im norma¬ 
len C 64-Modus gespeichert wurde. »SEQUENTIAL bezie¬ 
hungsweise SEQUENTIELL« ist in diesem Zusammen¬ 
hang vielleicht etwas mißverständlich. Hier ist keine se¬ 
quentielle Datei gemeint, sondern nur das sequentielle 
Speicherverfahren, das auch bei Basic-Programmen an¬ 
gewandt wird. 

Was ist nun der Unterschied bei VLIR-Dateien? VLIR ist 
ein neues Dateiformat. Es bedeutet »VARIABLE LENGTH 
INDEXED RECORD«, was eine Datei mit indizierten Sät¬ 
zen variabler Länge bezeichnet. 

VLIR-Dateien 


Eine Datei wird nicht mehr in einem Stück geladen, son¬ 
dern in verschiedene kleine, aber auch unterschiedlich lan¬ 
ge Stücke unterteilt. VLIR ist sozusagen die Weiterentwick¬ 
lung des Verfahrens der relativen Speicherung. Das hat 
den Vorteil, daß man Programmteile nur dann zu laden 
braucht, wenn sie auch wirklich gebraucht werden. 

Ein gutes Beispiel ist Geopaint. Wenn Sie dort ein Werk¬ 
zeug anklicken, wird die Diskette angesprochen. Es wird 
jetzt das entsprechende Werkzeug geladen. Dafür wird 
aber kein weiterer Dateieintrag im Directory benötigt (sonst 
würde »FILL«, »SPRAYDOSE« etc. im Directory stehen). Ein 
VLIR-Zeigerblock (das ist der erste Block einer VLIR-Datei) 
zeigt also auf die verschiedenen Programmteile, die nur bei 
Bedarf nachgeladen werden. VLIR-Dateien werden aber 
nicht nur bei Programmen, sondern auch bei Datenfiles an¬ 
gewandt. Zum Beispiel zeigt jeder VLIR-Zeiger der 
Notepad-Datei (Notizbuch) auf eine Seite des Notizbuches. 
Ein VLIR-Zeigerblock kann auf maximal 127 Records (Da¬ 
tensätze) zeigen. Dies ist durch die 256 Byte Länge eines 
Diskettenblocks bedingt. 

Der größte Vorteil der VLIR-Dateien ist, daß man Pro¬ 
gramme schreiben kann, die insgesamt größer als der 
Speicher des C 64 sind. Man teilt sie einfach auf und die be- 


nötigten Programmteile werden mit dem Fastloaderbei Be¬ 
darf nachgeladen. Um nun diese einzelnen Programm¬ 
teil-Blöcke untersuchen zu können, brauchen Sie einen 
Diskettenmonitor. Dabei ergibt sich aber wieder das Pro¬ 
blem, daß Geos beim Speichern die Zeichen anders codiert 
als das Original CBM-DOS. Texte werden dadurch zwar 
nicht unbedingt unlesbar, beim Ändern ergeben sich aus 
Gründen der Codierung jedoch Probleme. 

Deswegen habe ich für Sie einen speziellen Diskmonitor 
für Geos, den »GDM VI.0« entwickelt. Wo liegt der Unter¬ 
schied zu anderen Diskmonitoren? Der »GDM VI.0« hat ei¬ 
nen Coder/Decoder eingebaut, der die Geos-Diskblöcke 
entschlüsseln kann. Die Geos-1.3-spezifischen Sonderzei¬ 
chen (Umlaute) können jedoch nicht dargestellt werden, 
weil sie im normalen C64-Zeichensatz fehlen. Um mit dem 
»GDM VI .0« arbeiten zu können, müssen Sie nun folgen¬ 
des tun: 

Listing 1 »GDM.MAKE« abtippen, speichern und mit 
RUN starten. Das Programm fordert Sie jetzt dazu auf, eine 
Diskette einzulegen, und eine Taste zu drücken. »GDM.MA¬ 
KE« legt daraufhin eine Geos-Codetabelle auf der Diskette 
an. Nach einigen Sekunden meldet sich der C 64 mit »REA¬ 
DY« zurück. 


Auf der Diskette wurde die Datei »GDM.CODES« erzeugt. 
Jetzt können Sie Listing 2 »GDM.OBJ« mit dem MSE einge¬ 
ben und speichern. Schließlich müssen Sie noch Listing 3 
»GDM VI.0« abtippen und unter diesem Namen speichern. 
Danach sollten sich folgende Dateien auf der Diskette be¬ 
finden: 

GDM.MAKE 
GDM.CODES 
GDM.OBJ 
GDM VI .0 

Wenn Sie wollen, können Sie jetzt »GDM.MAKE« lö¬ 
schen. Es diente nur dazu, die Codetabelle anzulegen. Ge¬ 
startet wird der »GDM V1.0« mit RUN. Es werden »GDM. 
CODES« und »GDM.OBJ« nachgeladen. Danach erscheint 
das Hauptmenü. Es stehen Ihnen per Funktionstaste fol¬ 
gende Funktionen zur Verfügung : 

<F1 >: Block lesen 

In der Zeile »Track (00) Sektor (00)« erscheint ein Cursor. 
Die Startwerte sind »00«. Wenn Sie diese mit < INST/DEL > 
löschen, können Sie jetzt die Spur und den Sektor des 
Blocks eingeben, den Sie lesen wollen. Bei Vorausstellen 
eines »$« können auch Hexzahlen eingegeben werden. 
Beim Lesen blinkt der Bildschirmrand, da dort die ankom- 
menden Daten mit abgelegt werden und Sie schon da¬ 
durch erkennen, ob auf dem Block überhaupt Daten sind. 
<F2>: Nächster Block 

In jeder Datei zeigen die ersten zwei Bytes jedes Blocks 
auf den nächsten Block. Mit < F2> wird Ihnen dieser Zei¬ 
ger zum Block-Lesen angeboten. 

<F3>: Rückschreiben 

Es erscheint wieder der Cursor im Track/Sektor-Feld. 
Dort erscheinen jetzt wieder Spur/Sektor des gelesenen 
Blocks. Wenn Sie zweimal < RETURN > drücken, so wird 
der Block an die alte Stelle zurückgeschrieben. 


Der Geos-Disk-Monitor 
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<F4>: Byte-Edit 

Damit können Sie ein einzelnes Byte im Block ändern. Es 
erscheint jetzt an der Ausgabeposition ein Cursor und Sie 
können das Byte ändern. Stellen Sie ein »$« vor den neuen 
Wert, so wird er hexadezimal interpretiert. Mit»%« können 
Sie auch Binärbyteseingeben. < RETURN > beendet den 
Blockedit-Modus, das Wort EDITING verschwindet. Im 
Blockedit-Modus funktionieren die anderen Funktionsta¬ 
sten bis auf <F4> nicht mehr. 


Block 19/08) ist genau wie ein Block der Directory aufge¬ 
baut. Wenn Sie eine Datei auf der Border ablegen, so wird 
deren Eintrag im eigentlichen Directory mit Nullen über¬ 
schrieben. Legen Sie also nie das Geos-Ladeprogramm 
der Originaldiskette auf den Rand. Sie können Geos sonst 
nicht mehr bootenl 

Hier eine Zusammenfassung der wichtigen Bytes der 
BAM (Block 18/00): 

Byte 0/1 (18/01) Zeiger auf den ersten Directory- 


<F5>: Directory 

Diese Funktion listet den Disketteninhalt. Dabei wird die 
Geos-Textcodierung berücksichtigt und die Dateinamen er¬ 
scheinen richtig geschrieben. Sie können übrigens jeder¬ 
zeit durch Drücken einer Taste das Listen anhalten und fort¬ 
setzen. 

<F6>: Disk-Reset 

Diese Funktion muß ausgeführt werden, wenn Sie eine 
andere Diskette einlegen. Die Diskette wird dann initiali¬ 
siert. Erhalten Sie beim Arbeiten die Meldung »No Chan¬ 
nel«, so müssen Sie ebenfalls <F6> drücken, 

<F7>: Ende 
Verlassen des »GDM VI .0« 

<F8>: Blockedit 

Dies ist die mächtigste Funktion des »GDM VI.0«. Wenn 
Sie <F8> drücken, erscheint im Feld, in dem der Blockin¬ 
halt dargestellt wird, ein Cursor sowie das Wort »EDITING«. 
Den Cursor können Sie jetzt beliebig im Text bewegen. Sie 
können jetzt einfach durch Drücken der Buchstabentasten 
im Block schreiben. Unterhalb des Feldes wird noch die ak¬ 
tuelle Bytenummer, der dezimale, der hexadezimale und 
der Binärwert des Bytes ausgegeben. Links unten davon 
werden noch die nächsten 63 Byte des Blocks als Sprite 
dargestellt. 

<->: Drucker-Dump 

Mit dieser Taste können Sie den aktuellen Blockinhalt 
ausdrucken. Sie haben dabei noch die Möglichkeit, mit 
<S> das Drucken zu unterbrechen. Mit <D> können Sie 
einen dezimalen Dump und mit <H> einen hexadezima¬ 
len Dump erzeugen. 

<H>: Hexedit 

Hiermit bearbeiten Sie den Block wie mit einem norma¬ 
len Diskmonitor. Es erscheint in der Bildschirmmitte ein An¬ 
zeigefeld, in dem sich der Ausschnitt des Blockes befindet. 
Links steht die Startadresse des Ausschnittes. Dann folgen 
8 Hex-Bytes und schließlich 8 ASCII-Codes. Sie können 
jetzt mit < + > und <-> den Ausschnitt bestimmen, und 
ihn mit < RETURN > editieren. Im Editier-Modus läßt sich 
der Cursor mit den Cursor-Tasten über die Hex-Bytes bewe¬ 
gen. Nochmaliges < RETURN > beendet den Editmodus. 
Mit <Q> können Sie dann den Hexmodus beenden. 

So arbeitet das Geos-DOS 


Wir wollten uns nun mit dem Geos-DOS-Format beschäfti¬ 
gen. Legen Sie also eine Kopie der Geos-Diskette ein. Dies 
ist notwendig, weil man mit dem »GDM VI .0« leicht unge¬ 
wollt Daten zerstören kann, was sich auf der Original-Disk 
fatal auswirken würde. Drücken Sie jetzt <F6>. Die Disket¬ 
tewird initialisiert. Lesen Sie jetzt mit < Fl > und der Einga¬ 
be von »18 00« den BAM-Block der Diskette. Wenn Sie »Tips 
& Tricks zu Geos« im 64’er-Magazin gelesen haben, wissen 
Sie schon Bescheid: Hier vermerkt Geos in den Bytes 173 
bis 188, ob die Diskette unter Geos formatiert wurde. Si¬ 
cherlich wissen Sie, daß Geos eine sogenannte »Border« 
(Rand) verwaltet, auf der Dateien abgelegt werden können. 
Irgendwo muß Geos ja den Inhalt dieser Border speichern. 
Byte 171 und 172 der BAM enthalten einen Zeiger auf den 
Border-Block. Dieser Block (bei unserer Diskette ist es 


Block 


Byte 2 »A« 
Byte 4-143 
Byte 144-161 

Byte 162-163 
Byte 165-166 
Byte 171-172 
Byte 173-188 


Formatkennzeichen VC1541 
Bitmuster der belegten Blocks. 
Diskname mit 160 
(SHIFT-SPACE) aufgefüllt. 

Disk ID. 

»2A«:DOS-Version. 

Spur/Sektor der Border. 

»Geos format VI .0« 
Geos-Dos-Formatkennzeichen. 


Nachdem Sie jetzt das Verfahren der Border-Verwaltung 
und des Geos-Formatzeichens kennen, wenden wir uns 
wieder dem Geos-Dateiformat zu. Geos legt ja über jede 
Datei einen Infoschirm an. Auch dieser Infoschirm muß ja 
irgendwo gespeichert werden und, was noch wichtiger ist, 
mit der zugehörigen Datei in Beziehung gebracht werden. 


Byte 

Funktion 


Byte 

Funktion 


Byte 0 

Filetyp,mit eingeblendetem Bit 7 ($80). 

0 = DELeted (Gelöscht) 

1 = SEQuential (Sequentiell) 



Tun®"»' 

2 = PROgram (Programm) 

3 = USerR (Benutzer) 

5 = RELative (Relativ) 



Wenn zusätzlich noch Bit 6 gesetzt ist, so ist 
die Datei gegen Löschen geschützt. 

Byte 1,2 

Spur und Sektor des ersten Blocks der 

Datei. 


Byte 3-18 

Dateiname, aufgefüllt mit #160 
(SHIFT+SPACE) 


Byte 19-20 

Spur und Sektor des Info-Schirms. 

Byte 21 

File-Struktur: 

0 = Sequentiell (CBM-DOS) 



1 = VLIR (ausschließlich Geos-DOS) 

Byte 22 

Filetyp: Geos V.1.2 

Geos V.1.3 

0 = Non Geos 

C 64 PRG 


1 = Basic-Program 

Basic-Programm 


2 = Assembler-Prg. 

Assemblerprog. 


3 = Data File 

reine Daten 


4 = System File 

Systemdatei 


5 ■= Desk 

Hilfsprogramm 


Accessory 



6 = Application 

(Anwendung) 


7 = Application 

Dokument 


Data 



8 ■= Font File 

Schriftart 


9 = Printer Driver 

Druckertreiber 


10 = Input Driver 

Eingabetreiber 


11 = — 

Disk-Treiber 



(noch nicht ver¬ 
wendet) 


12 = — 

Startprogramm 


13 = — 

Temporär 
(erscheint unter 
Desktop nicht) 


14 - — 

selbstausführend 

Byte 23-27 


Schreibdatum 

Zelt Im Format 

Jahr/Monat/ 

Tag/Stunde/ 

Minute. 

Byte 28-29 


Btockanzahl der 

Datei im Format 
LO/HI. 


Tabelle 1. Die Struktur eines Dateieintrags unter Geos-DOS. 
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Dafür benutzt Geos die freien Stellen im Dateieintrag. Aus 
Tabelle 1 sind die Funktionen der einzelnen Bytes des Da¬ 
teieintrags zu entnehmen. 

Byte 19 und 20 enthalten also Spur und Sektor des Info¬ 
schirms. Wenn Sie mit dem »GDM VI .0« jetzt diesen Block 
laden, können Sie anhand Tabelle 2 die Struktur des 
Infoschirm-Blocks erkennen. 

Sie haben jetzt die wichtigsten Informationen zum Geos- 
DOS-Format und den Einträgen auf Diskette. Sehen Sie 
sich einfach mal mit dem »GDM VI.0« die einzelnen Geos- 
Dateien an. Experimentieren Sie nach Herzenslust (auf ei¬ 
ner Backup-Disk wohlgemerkt) herum und sehen Sie, wie 
Geos seine Dateien verwaltet. 


Die verflixte Geos-Uhr 


Warum geht die Geos-Uhr in der (englischsprachigen) 
Geos-Version 1.2 eigentlich nach? Die Echtzeituhren in der 
CIAs (Complex Interface Adapter) des C64 werden von der 
Netzfrequenz getaktet. In Deutschland und in den meisten 
europäischen Ländern beträgt die Netzfrequenz 50 Hz (50 
Schwingungen pro Sekunde). In den USA, wo Geos pro¬ 
grammiertwurde, ist dieser Netztakt 60 Hz. Deswegen läuft 
die Geos-Uhr (Alarm Clock) um ’/io zu langsam. Erst für 
Version 1.3 in deutscher Sprache wurde dies berichtigt. 
Beim Studium des Geos-Listings fällt eine Speicherstelle 
im Geos-Kernel auf, die den Grundwert der Trigger-Spei¬ 
cherstelle der CIA-Echtzeituhr beinhaltet. Wird dort das 
siebte Bit gesetzt, so stellt die CIA auf 50 Hz um. Das hier 
vorgestellte Programm (Listing 4) macht nun nichts ande¬ 
res, als den korrekten Wert in das Geos-1.2-Kernel zu 
schreiben. r; ., C3 , r 


Mlt Geos 1.3 darf Listing 4 unter keinen Umständen verwendet 
werden; ansonsten könnte die Systemdiskette Schaden nehmen. 


Wie alle Programme des Geos-Kurses benutzt auch das 
50-Hz-Programm die Maschinenroutine »GDM.OBJ« des 
Geos-Disk-Monitors. Diese muß sich also auf jeden Fall auf 
der gleichen Diskette befinden, auf der Sie das 50-Hz- 
Programm speichern. 

Um das Programm auf seine Funktionstüchtigkeit zu 
überprüfen, kopiert man das Geos-Kernel auf die gleiche 
Diskette. Nach dem Starten von »50 Hz Geos« werden Sie 
aufgefordert, eine Diskette mit dem Geos-Kernel einzule¬ 
gen und eine Taste zu drücken. Der betreffende Block des 
Kernel wird geladen, korrigiert und wieder gespeichert. 
Wenn das Programm dabei keine Fehlermeldung ausgibt 
und auch die Floppystation nicht blinkt, ist alles in Ordnung. 
Um nach erfolgreichem Test die Änderung auf der Original- 
Diskette vorzunehmen, muß ein eventuell angebrachter 
Schreibschutz entfernt und die Geos-Diskette ins Laufwerk 
gelegt werden. Nach nochmaligem Ablaufen der oben be¬ 
schriebenen Prozedur haben Sie ein auf deutsche Verhält¬ 
nisse angepaßtes Geos. 

Das zweite Tool, das wir Ihnen an die Hand geben wollen, 
ist der »Geos File Linker« (Listing 5), welcher der Kürze hal¬ 
ber im folgenden »GFL« genannt wird. Verbunden wird in 
diesem Fall ein unter CBM-DOS geschriebenes Programm 
mit einem Geos-Fileheader (Infoblock), dessen Aufbau be¬ 
reits analysiert wurde. Nach dem Starten mit RUN fragt der 
GFL nach dem Namen des zu linkenden Programmes. Zu¬ 
erst werden Sie sicher Ihre Basic-Programme mit einem ei¬ 
genen Icon versehen wollen. Das geht sehr einfach, indem 
man als Programmtyp 1 (Basic-Programm) angibt. Danach 
fragt der GFL nach dem Datum und der Zeit, die als Erstel¬ 
lungsdatum vermerkt werden soll. Danach wird der Fileein¬ 


Byte 

Funktion 

0,1 

Endezeiger des Blockes, kein Folgeblock. 

23 

Höhe und Breite des Icons, das die Datei 
repräsentiert. Meistens 24/21, das Format eines 
C64-Sprites. 

4 

HIRes Mode Flag, gibt die Anzahl der Bytes 
des Icons an. Normalerweise 63 Bytes. 

5-67 

Werte des Icons. Sie haben genau das Formal 
eines Sprites 

68 

CBM-Flletyp 

129 = Daten 

130 = Programm 

69 

Geos-DOS Filetyp (Siehe Dateieintrag) 

70 

Filestruktur 

0 = SEQ (CBM-DOS) 

1 = VLIR (GeoDos) 

71,72 

Ladeadresse des Programms. 

73,74 

Bel Accessories (Hilfsmittel) wird hier das Ende 
des Programms Im Format LO/HI angegeben. 

75,76 

Einsprung (SYS-) Adresse des Programms. 

77-96 

Programmtyp (CLASS) 

97-116 

Name des Programmierers, sofern es sich um 
eine Applikation handelt. Ist es ein Data File 
(Datendatei), so steht hier der Name der 

Diskette, auf der sich die Applikation befindet, 
die diese Datei erzeugt hat. 

117-136 

Handelt es sich um ein Data File, so wird hier 
der Name der Erzeugerapplikation eingetragen. 

Geos weiß dann, welche Applikation beim 
Doppelklicken der Datendatei geladen werden 
muß. 

137-159 

Platz für interne Daten der Applikation. 

160-255 

Infotext. 


Tabelle 2. Der Aufbau des Infoschirm-Blocks 

trag wieder auf die Diskette zurückgeschrieben (Bild¬ 
schirmflackern) und der betreffende Info-Block wird ge¬ 
sucht. 

Sollte noch kein Info-Block vorhanden sein, was bei eige¬ 
nen Programmen wohl meistens der Fall ist, wird ein freier 
Block auf der Diskette gesucht und per »B-A«-Befehl (Block 
Allocate) als belegt gekennzeichnet. Der GFL meldet »Info- 
Schirm« und der im GFL integrierte »Icon-Editor« erscheint. 
Auf der rechten Bildschirmseite wird im Spriteformat das 
aktuelle Aussehen des Icons angezeigt, während es links 
stark vergrößert dargestellt wird. Im Editorfeld links befindet 
sich ein Cursor, der auf gewohnte Weise zu steuern ist. Mit 
< SPACE > werden Punkte gesetzt beziehungsweise ge¬ 
löscht. Da die Byte-Werte im neu geschaffenen Info-Block 
zufällig besetzt sind, erscheint zunächst ein wirres Muster 
im Editorfeld. Dieses kann nach Druck auf < CLR/HOME> 
gelöscht werden. Ist das Icon fertig entworfen, wird der Edi¬ 
tor mit <Q> verlassen. Im folgenden fragt der GFL noch 
die Start-, End- und Einsprungsadresse des bearbeiteten 
Programms, sowie »Class...; Author...« und den Infotext 
ab. Die Adressen können entweder dezimal oder mit voran¬ 
gestelltem <$> hexadezimal angegeben werden. Bei ei¬ 
nem Basic-Programm geben Sie bei den Adressen jeweils 
»0« ein. Im Anschluß daran wird der Info-Block auf Diskette 
geschrieben, und der GFL gibt die Meldung »FERTIG I!« 
aus. Bei Eingabe von <N> (noch mal) kann ein weiteres 
Programm bearbeitet werden. Mit <E> verlassen Sie das 
Programm. 

Mit dem GFL haben Sie jetzt alle benötigten Tools für un¬ 
sere Reise in das Innere von Geos. 

Natürlich kann in dem begrenzten Umfang dieses Kurses 
keine vollständige Beschreibung aller Geos-Routinen ge¬ 
geben werden. Wenn Sie aber die höheren Weihen der 
Geos-Programmierung empfangen möchten, so sei Ihnen 
das Buch »C64 - Alles über Geos 1.2« bzw. »C64 - Geos 
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1.3« des Markt &Technik Verlages empfohlen. Die Autoren 
haben Geos in diesem Buch bis zum letzten Byte auseinan¬ 
dergenommen und analysiert. 

Baukastenprinzip beim Programmieren 


Um Ihnen aber das Programmieren von Geos auf möglichst 
einfache Art und Weise nahezubringen, wird schritt¬ 
weise eine Programmbibliothek aufgebaut, deren Funktio¬ 
nen beim Programmieren nur noch aufgerufen werden 
müssen. 

So kann man sich beim Schreiben von Programmen auf 
das Wesentliche konzentrieren, ohne das Rad jeweils neu 
erfinden zu müssen. 

Nun wollen wir uns mit Geos-Routinen befassen, die eine 
sehr wichtige Aufgabe erledigen: die Textausgabe. 

Doch bevor es ans Programmieren geht, sollen einige 
grundsätzliche Fragen zur Speicherbelegung geklärt 
werden: 

Geos benötigt durch seine umfassenden Routinen ziem¬ 
lich viel Speicherplatz. Dem Programmierersteht aber im¬ 
mer noch der Bereich $0400-$5fff, also etwa 23 KByte zur 
Verfügung. 

Der Hypra-Ass benötigt aber mindestens den Bereich bis 
$2000, also bleiben noch 16 KByte übrig, in denen auch 
noch der Quelltext abgelegt werden muß. Unter dem Strich 
können also Maschinenprogramme von etwa 10 KByte 
Quellcode-Länge entwickelt werden. 

Um beim Speicherplatz zu bleiben: Legen Sie den Pro¬ 
grammstart (durch den Pseudobefehl »,ba«; Begin of As- 
sembly) immer möglichst hoch, damit es keine Probleme 
mit Überlappungen von Quelltext und Maschinencode gibt. 
Sollte der Hypra-Ass dennoch in den Bereich ab $6000 
assemblieren, so kann der .ba-Bereich ja immer noch her¬ 
untergesetzt werden. 

Das Beispielprogramm, das hier entwickelt werden soll, 
ist nicht sehr lang. Deshalb kann der Programmstart nach 
20000 ($4e20 hex.) gelegt werden. Die erste Zeile des 
Quellcodes lautet demnach: 

10- .ba 20000 

Geos ist ein sehr umfassendes Betriebssystem, welches 
viele Routinen enhält. Natürlich müssen all diese Routinen 
beim Aufruf mit Parametern versorgt werden. Dies ist zwar 
nicht schwer, dafür aber etwas umständlich. Deshalb wur¬ 
den für die wichtigsten Funktionen Makros geschrieben, 
die die Routinen mit Parametern versorgen. Ein Makro ist 
eine mit einem eigenen Namen versehene Folge von Be¬ 
fehlen, die eine bestimmte Funktion ausführt. Beim Assem¬ 
blieren wird das Makro über seinen Namen aufgerufen. 

Die Makro-Bibliothek finden Sie als Listing 6. Laden und 
starten Sie also den Hypra-Ass, tippen Listing 6 ab und 
speichern es als »GEOS-LIB« (IS "GEOS-LIB") Zeile 15201 
gilt nur für Geos VI .2. Für die Version 1.3 ist die Zeile zu än¬ 
dern: 

15201- jsr $ C48D 

Dieses Bibliotheks-File wird vor dem Assemblieren an 
das Programm angebunden. Nun aber zum eigentlichen 
Quelltext: Zuerst muß die Funktionsbibliothek beim Hypra- 
Ass »angemeldet« werden. Das geschieht durch den Ma¬ 
kro-Aufruf: 

20- ...init-lib 

Dieses Makro importiert alle wichtigen Konstanten und 
Sprungadressen von Geos als Labels. Bei der Textausgabe 
unter Geos sind eine Reihe von Extrafunktionen möglich. 
Vor der Textausgabe muß natürlich zuerst der Bildschirm 
gelöscht werden. Dafür gibt es das Makro »CLS«, das wie 
alle Hypra-Ass-Makros aufgerufen wird. Die nächste Zeile 
lautet deshalb: 


25- ...cls 

Da dieses Makro jedoch nicht ausschließlich über die 
standardisierte Geos-Sprungtabelle abläuft, muß für die 
Vei Wendung mit Geos 1.3 wie folgt abgeändert werden: 
15201- Jar $ C48D 
Bei Geos 1.2 heißt es wie im Listing, jsr$ CD A3. 

Nun beginnt es diffizil zu werden: Geos arbeitet mit einer 
anderen Zeichensatz-Codierung. Deshalb müssen alle 
Texte vor der Ausgabe umcodiert werden. Um die Arbeit 
beim Programmieren zu erleichtern, gibt es auch dafür eine 
Makro-Funktion, die über die Bibliothek abgerufen werden 
kann. Die Zeile, in der der auszugebende Text steht, wird 
später als Label DEMOTEXT definiert. Hierfür lautet der 
Aufruf: 

30- ... execlib demotext, convert) 

Es wird also zuerst die Textadresse per Label »demotext« 
und dann der Aufruf »convert« übergeben. Daran erkennt 
die Bibliothek, daß der Text in den Geos-Zeichensatz kon¬ 
vertiert werden soll. 

Bei der Textausgabe selbst wird die »lnline«-Funktion von 
Geos benutzt. Dies ist eine Eigenschaft von Geos, die das 
Programmieren wesentlich erleichtert: Nach dem Aufruf ei¬ 
ner Routine folgen die Parameter als Tabelle direkt im Ma¬ 
schinencode (beim Hypra-Ass über die Pseudobefehle .by, 
.wo, .tx). Geos liest diese Werte ein, und setzt die Abarbei¬ 
tung des Maschinenprogramms nach der Tabelle fort. Das 
ist wesentlich einfacher, als ständig irgendwelche Geos- 
Register zu laden oder diesen mit »STA $xxxx« Werte zuzu¬ 
weisen. 

Die Geos-Routine zur Textausgabe hat in der Funktions¬ 
bibliothek das Label »IPUTSTRING« mit der Adresse 
$C1AE. Also: 

-jsr iputstring 

Es wi.j dann folgende Tabelle erwartet: 

.wo x-position ; x: 0 bis 319 
.by y-position j y: 0 bis 199 
.tx "text" 

.by null ; null ist eine Konstante (0). 

Die Null markiert hier das Ende der Tabelle. Die Angaben 
x- und y-position sind in Bildschirmpunkten anzugeben. 
Sofern die x/y-Werte hinterher nicht mehr manipuliert wer¬ 
den müssen, kann auch das Makro »-... putstring (x-posi¬ 
tion, y-position)« verwendet werden. 

Die Tabelle verkürzt sich dann auf: 

- .tx text 

- .by null 

Das Beispiel erweitert sich also folgendermaßen: 

40 - ... putstring (10,10) 

50 - .tx (hier folgt der Text) 

60 - .by null 

Das ist im wesentlichen schon das ganze Programm. Da¬ 
nach folgt in den Zeilen 70 bis 112 eine Verzögerungsschlei¬ 
fe von etwa 10 Sekunden. Im Anschluß daran springt das 
Programm in Zeile 115 mit JMP $C22C zum Desktop zu¬ 
rück. 

Nun war von Sonderfunktionen bei der Textausgabe die 
Rede. Es sind folgende Steuerzeichen möglich: 

1. Cursor- und Textpositionierung 

BACKSPC (8): Löscht das letzte Zeichen. Achtung: Ohne 
Unterstützung durch das Programm kann nur ein Zeichen 
gelöscht werden. 

FWDSPC (9): Ein Zeichen nach rechts. 

LF (10): Springt eine Zeile nach unten, bleibt aber in der 
gleichen Spalte. 

UPL (12): Eine Zeile nach oben. 

CR (13): Carriage Return. Bewegt den Cursor an den An¬ 
fang der nächsten Zeile, wobei der x-Abstand wieder auf 0 
gesetzt wird. 
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2. Steuerzeichen zum Umschalten der Schriftstile 

UNDERLINEON (14): Unterstreichen ein. 
UNDERLINEOFF (15): Unterstreichen aus. 
REVERSEON (18): Revers ein 
REVERSEOFF (19): Revers aus 
GOTOX (20): Interpretiert das nächste Wort (16 Bit in 
Low/High-Format) als x-Position: 

- .by gotox 

- .wo x ; (0 bis 319) 

GOTOY (21): Das nächste Byte gibt die Y-Position an. Da 
nur Werte bis 199 sinnvoll sind, reicht die Parameterüber¬ 
gabe per ».by«: 

- .by gotoy 

- .by y ; (0-199) 

GOTOXY (22): Setzt den Cursor auf die folgenden x/y- 
Werte. Eine Kombination der beiden letzten Steuerzeichen. 



Bild 1. Kleines Programm - aber dafür große Wirkung. 
Solche Ergebnisse ermutigen zu weiteren Experimenten. 


Die Parameterübergabe erfolgt wie oben: 

- .by gotoxy 

- .WO X 

- .by y 64€R Of 

BOLDON (24): Schaltet Fettschrift an. 

ITALICON (25): Schaltet Kursivschrift an. 

OUTLINE (26): Schaltet auf umrissene Schrift (»Kontur«). 

PLAINTEXT (27): Schaltet alle Schriftstil-Modifikationen 
aus. 

COMMODORE (128): Gibt das Commodore-Logo aus. 

Diese Steuerzeichen werden jeweils als Byte mit dem .by 
Pseudobefehl übergeben. 

Den kompletten Hypra-Ass Quellcode des Demo-Pro¬ 
gramms finden Sie im Listing 7. Ein unter Geos lauffähiges 
Maschinenprogramm wird daraus nun folgendermaßen ge¬ 
neriert: 

1. Hypra-Ass starten. 

2. Quelltext eingeben. Dabei die Initialisierung init-lib 
nicht vergessen und darauf achten, daß Stellen wie der 
CLS-Einsprung auch auf die verwendete Geos-Ver- 
sion zutreffen. 

3. Den Quelltext speichern (hier: IS "DEMO-SRC") 

4. Mit dem Merge-Befehl von Hypra-Ass die Funktions-Bi¬ 
bliothek mit dem Demo-Programm verketten: 

/M "GEOS-LIB" 

5. Die Assemblierung mit RUN starten. Eventuelle Fehler 
korrigieren und die Adressen, die am Ende des Assem¬ 
bler-Laufs (»Base« und»Last Byte at SAdresse« notie¬ 
ren. 

6. Wurde fehlerfrei assembliert, muß nach dem »-.ba«-Be- 
fehl das Kommando zum Assemblieren auf Diskette 
eingefügt werden: 

15 - .OB "DEM01-ASS,P,W" 

7. Das Programm erneut assemblieren. Der Maschi¬ 
nencode wird nun auf Diskette geschrieben. 

8. Den GFL laden und »DEMOI-ASS« als das zu linken¬ 
de File angeben. Als Geos-Filetyp ist »Applikation« 
anzugeben. 

9. Ein Icon für das Testprogramm entwerfen 

330 ? 


10. Als Start- und Endadresse werden die von Hypra-Ass 
angezeigten Werte eingegeben Beim hier angeführ¬ 
ten Beispiel ist die Start- und Einsprungadresse 
$4e20, die Endadresse $4eee. 

Addieren Sie zur »LAST BYTE«-Angabe noch den Wert 2, 
um sicherzustellen, daß Geos das Programm auch wirklich 
korrekt lädt. 

Zum Test des Programms wird dessen Icon wie gewohnt 
doppel-geklickt. Es erscheint der im Quellcode festgelegte 
Text in verschiedenen Schriftarten auf dem Monitor (Bild 1). 
Nach dem Durchlaufen der Verzögerungsschleife (etwa 10 
Sekunden) springt das Programm wieder zum Desktop zu¬ 
rück und mit Geos kann weitergearbeitet werden. 

Alle Routinen und Makros funktionieren mit Geos 1.2 und 
Geos 1.3 gleichermaßen, ausgenommen dem Makro .CLS 
(nur für VI.2; siehe Seite 72 oben rechts). 

Auf das Problem der Speicherknappheit beim Arbeiten 
mit dem Hypra-Ass wurde oben schon eingegangen. Die¬ 
ses Problem wird durch »Hypra Patch« gelöst! Dieses Pro¬ 
gramm (Listing 8) modifiziert den Hypra-Ass so, daß nicht 
mehr in den Speicher, sondern nur noch auf Diskette as¬ 
sembliert wird. Dadurch ist es jetzt möglich, als Programm¬ 
startadresse den ganzen Bereich von $0400-$5FFF zu nut¬ 
zen. Hypra-Patch überschreibt den in den Speicher assem- 
blierenden Teil von Hypra-Ass, und ersetzt ihn durch NOPs 
(No Operation = $EA). Hypra-Patch wird folgendermaßen 
angewendet: 

Geben Sie Hypra-Patch mit dem MSE ein, und speichern 
es auf Diskette. Laden Sie es daraufhin mit "LOAD 
HYPRA-PATCH",8,1 und geben anschließend NEW ein. 
Laden Sie dann den Hypra-Ass und starten Sie den Patch 
mit SYS 49152. Darauf kann der geänderte Hypra-Ass unter 
dem Namen »Hypra-Ass-P« gespeichert werden. 

D oc weiteren besprechen wir nun einige neue Routinen 
aus der Makro-Bibliothek sowie neu sind die Definitionen 
der Geos-Register. Diese Register haben folgende Funk¬ 
tion: 

Die 6510-CPU hat 3 Register (Akku,X und Y), in denen 
man Werte Zwischenspeichern kann. Wenn Geos-Funktio- 
nen aufgerufen werden, müssen meistens Parameter über¬ 
geben werden. Manchmal sind das aber mehr als 3 Werte. 
Wohin nun mit den restlichen Parametern? Daher existie¬ 
ren unter Geos 16 zusätzliche Pseudo-Register, nämlich 
die Speicherstellen $02 bis $22. Damit auch Werte, die grö¬ 
ßer als 255 sind (beispielsweise X-Koordinaten) übergeben 
werden können, sind diese Register jeweils ein Wort (16 Bit 
= 2 Byte ) groß. 

Wenn Sie nun also den Wert $FFFE in das Register 0 (rO) 
laden wollen, so wäre die übliche Befehlsfolge: 

LDA #$FE 
STA R0 
LDA #$FF 
STA R0+1 

Dies ist aber recht umständlich. Zur Vereinfachung die¬ 
ser Funktion gibt es in der Geos-Bibliothek das Makro 
LOADW (LOAD Word). Es lädt eine Konstante in ein Regi¬ 
ster, also... LOADW (Wortregister). Das Beispiel von oben 
sieht dann so aus: 

... loadw ($fffe,r0) 

Nun kann es aber Vorkommen, daß Werte aus einem Re¬ 
gister in ein anderes übertragen werden müssen. Der Inhalt 
von R0 soll beispielsweise nach RI kopiert werden: 

LDA R0 
STA RI 
LDA R0+1 
STA Rl+1 

Auch diese Funktion kann vereinfacht werden, nämlich 
durch: 

... transw (r0,rl) 
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Das Makro TRANSW (TRANSfer Word) hat die Form 
...TRANSW (quelle,ziel). Neben diesen Register-Handling- 
Makros, die den Grundstock einer späteren 16-Bit- 
Arithmetik bilden, sind jetzt auch Makros für die Prozessor¬ 
behandlung vorhanden: 

... resetcpu: dieses setzt den Prozessor zurück. 

Dabei werden Akku.X- und Y-Register sowie alle Flags 
gelöscht. 

... pushcpu speichert Akku.x und y Register zwischen, 
und legt das Statusregister auf den TOS (top of stack). 

... popcpu holt die Werte wieder zurück. 

Welchen Nutzen haben »PUSHCPU« und »POPCPU«? 

Die Makros und auch die Geos-Routinen verändern Ak¬ 
ku,X- und Y-Register. Das kann beispielsweise in Schleifen 
verheerende Folgen haben, wenn Sie das X-Register als 
Zähler benutzen: 

LDX #$10 

LOOP JSR Geos-Funktion 
;(X wird dort verändert!) 

DEX 

BNE LOOP 

Das Ergebnis wäre eine unkontrollierte Schleife, da ja X 
nicht mehr den gesetzten Wert hat. Hier kommt 
PUSH/POPCPU zum Zug: 

LDX #$10 

LOOP ... PUSHCPU ; 

(Zwischenspeichern) 

JSR Geos-Funktion 
... POPCPU 
;(Zurückladen) 

DEX 

BNE LOOP 

Weitere nützliche Funktionen, die per JSR angesprun¬ 
gen werden, sind folgende: 

INITIO: Eine sehr nützliche Funktion für Programmierer, 
die gerne auf die Routinen des C64 ROMs zurückgreifen 
würden (für Fließkommarechnungen). »INITIO« konfigu¬ 
riert den C64 so um, daß ROM-Zugriffe vorgenommen wer¬ 
den können. 

DONEIO: Das Gegenstück zu »INITIO«. Diese Routine 
schaltet wieder auf die Geos-Konfiguration um. 

DESKTOP: Lädt das Geos-Desktop von Diskette, und 
startet es. Sollte kein Desktop auf der eingelegten Diskette 
sein, so fordert Geos durch eine Dialogbox zum Einlegen 
einer Diskette mit diesem Programm auf. 

PANIC: Diese Routine sei hier mehr spaßeshalber er¬ 
wähnt. »PANIC« erzeugt die Dialogbox mit den höchsten 
Einschaltquoten: "SYSTEM ERROR NEAR $ XXXX" (zu 
deutsch: Systemfehler nahe $ xxxx). Sie brauchen Panic 
noch nicht einmal über JSR PANIC aufrufen, ein BRK- 
Befehl tut's genauso. 

Unabdingbar für die Programmierung unter Geos ist die 
Kenntnis der Speicherbelegung. Genaue Aufschlüsse dar¬ 
über gibt Tabelle 3. 


Druckertreiber für 
MPS 802 und FX-80/85 


Hatten bislang nur diejenigen gut lachen, die den MPS 802 
mit dem Grafik-ROM aus der Januar-Ausgabe 1987 des 
64’er-Magazins »aufgerüstet« haben, so kommen jetzt 
auch die Besitzer des normalen MPS 802 zum Zuge. Das 
Programm »MPS 802 CREATER« (Listing 9) nämlich 
schreibt den Druckertreiber komplett mit Icon und Info- 
Sektor auf eine mit Geos formatierte Diskette. Sie müssen 
lediglich eine Geos-Arbeitsdiskette, auf der noch minde¬ 
stens drei Blocks frei sein sollten, in das Laufwerk einlegen 



Bild 2. Eine Hardcopy auf dem MPS 802 mit dem neuen 
Druckertreiber erscheint in sehr guter Qualität 


und das Programm mit RUN starten. Nach einigen Sekun¬ 
den steht Ihnen der Druckertreiber zur Verfügung, der wirk¬ 
lich brauchbare Ausdrucke von Geopaint oder Geowrite 
herstellt, wie Bild 2 zeigt. Die Besitzer von Geos 1.3 sind die¬ 
ses Problems von vorneherein enthoben. Denn mit Geos 
1.3 wird der Druckertreiber 1526 ausgeliefert, der dem 
MPS 802-Treiber entspricht. 

Anpassung des Druckertreibers FX-80 
an gängige Interfaces 


Besitzer von Epson-Druckern mit einem Wiesemann- oder 
Görlitz-Interface haben sicher schon festgestellt, daß mit 
dem auf der Geos-Diskette befindlichen Druckertreiber 
»FX-80« Kein Ausdruck möglich ist. Man ist so gezwungen, 
auf den Treiber für den MPS 801 auszuweichen, Dies liegt 
an der Voreinstellung der Sekundäradresse 5. Eine Einstel¬ 
lung der Sekundäradresse 1 (Linearkanal des Wiesemarin¬ 
interfaces 92000/G) führt man folgendermaßen durch: 

1. Formatieren einer Diskette unter Geos. 

2. Kopieren des FX-80-Treibers auf diese Diskette. 

3. Geos verlassen, Disk-Monitor laden und starten. 


Adresse 

Länge 

(Byte) 

Funktion 

$00 

1 

6510-Daten-Richtungsregister 

$01 

1 

6510-Eingabe/Ausgaberegisler 

$02-$7F 

126 

Von Geos benutzter Zeropage¬ 
bereich 

$80-$FF 

128 

Zeropagebereich für Applikationen 

$0100-$01FF 

256 

CPU-6510-Prozessorstack 

$0200-$0300 

512 

Reservierter Bereich für 
Kernel-Routinen 

$0400-$5FFF 

23552 

RAM-Bereich für Applikation und 

Daten 

$6000-$7F3F 

8000 

Hintergrund-Hlres-Schirm 

$7F40-$7FFF 

192 

Hilfsspeicher für Applikationen 

$8000-$89FF 

2560 

Disk-Puffer, variable Verwendung 

$8A00-$8BFF 

512 

Spite-Daten 

$8C00-$8FD7 

1000 

Video-RAM 

$8FD8-8FFF 

24 

8 Byte freies RAM, Sprite-Zeiger 

$9000-$9FFF 

4096 

Geos-Code Teil 1 

$A000-$BF3F 

8000 

Vordergrund-Hires-Schirm 

$BF40-$BFFF 

192 

Tabellen 

$C000-$CFFF 

4096 

Geos-Code Teil 2 (resident) 

$D000-$DFFF 

4096 

I/O-Bereich/Geos Code Teil 3 

$E000-$FE7F 

7808 

C64 Kernel-ROM/Geos Code Teil 4 

$FE80-$FFF9 

378 

Eingabetreiber (Joystick, Mouse, 

Koala) 

$FFFA-$FFFF 

6 

NMI, IRQ und Reset-Vektoren 


Tabelle 3. Der Speicherbelegungsplan des C64 unter Geos 
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4. Den ersten Directory-Block (12/01 Hex.) laden (Bild 3). 
Die Bytes 4 und 5 geben den ersten Datenblock des 
Druckertreibers an. Dies ist bei einer neu formatierten 
Diskette der Block 01/10 (Hex.). 

5. Diesen Block laden und die in Bild 4 unterstrichenen By¬ 
tes wie dargestellt ändern. 

6. Den Block wieder auf Diskette zurückschreiben. 

7. Den geänderten Druckertreiber auf eine Arbeitsdiskette 
kopieren. 

Geopaint-Bilder im Hi-Eddi-format 


Bislang war es unmöglich, Geopaint-Bilder wegen ihres un¬ 
gewöhnlichen Diskettenformates in eigenen Programmen 
oder Diashows zu verwenden. Durch unser Programm 
»Transgeos« (Listing 10) ist es kein Problem, Geopaint- 
Bilder sektorweise in das Format von Hi-Eddi umzuwan- 


diger Bildschirm funktionieren. Der Bildschirminhalt unter 
der Dialogbox wird zwischengespeichert, und nach dem 
Verschwinden der Dialogbox wieder an die alte Stelle ge¬ 
schrieben. Dieser scheinbar unnötige Aufwand hat durch¬ 
aus seinen Sinn, der anhand eines kleinen Beispieles de¬ 
monstriert werden soll: 

Stellen Sie sich vor, Sie hätten ein Textverarbeitungspro¬ 
gramm geschrieben. Dieses soll bei der Textspeicherung 
zuerst den Textnamen erfragen, dann speichern und einen 
eventuellen Diskettenfehler melden. Das Löschen des Bild¬ 
schirms für solche Zwecke ist jedoch sehr unkomfortabel. 

Man müßte also einen zweiten Bildschirm haben, den 
man ein- und hinterher wieder ausblenden kann. Genau 
das ist die Idee der Dialogboxen. Diese Boxen unter Geos 
zu programmieren ist recht einfach. Dafür sind natürlich 
wieder Konstantendefinitionen und Makros notwendig, die 
sich alle schon in unserer Makro-Bibliothek befinden. 

Logischerweise muß eine Dialogbox zuerst geöffnet wer¬ 
den, bevor Funktionen wie Textausgabe durchgeführt wer- 
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Bild 3. Der erste 
Directory-Block 
zeigt die Lage des 
FX-80-Druckertreibers 
auf der Diskette 


Bild 4. Die 
unterstrichenen 
Bytes müssen zum 
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dein. Nach dem Start von »Transgeos« mit RUN werden Sie 
nach dem Namen des zu konvertierenden Bildes gefragt. 
Die Eingabe hat in Klartext zu erfolgen. Eine Eingabe der 
im Directory aufgeführten Grafiksymbole ist nicht nötig, da 
Transgeos auch hier eine automatische Korrektur der Zei¬ 
chencodes vornimmt. Danach verlangt das Programm die 
Eingabe der Sektornummer. Da es mit Geopaint möglich 
ist, Bilder im Format einer DIN-A4-Seite zu zeichnen, wer¬ 
den diese von Transgeos in vier horizontale Sektoren ein¬ 
geteilt. Für das obere Viertel des Bildes geben Sie bei¬ 
spielsweise »1« ein. Daraufhin lädt und konvertiert Trans¬ 
geos das Bild. Zwischen der linken und rechten Sektorhälf¬ 
te kann mit <F1> umgeschaltet werden. Mit <F3> kann 
eine neue Sektoreingabe erfolgen. <F5> erlaubt die Ein¬ 
gabe eines neu zu bearbeitenden Bildes. <F7> schließ¬ 
lich dient zur Speicherung des aktuellen Bildschirminhal¬ 
tes. Das heißt, daß für das Speichern eines ganzen Sektors 
(sofern die Zeichnung über die ganze Bildbreite geht) zwei 
Grafikfiles auf Diskette benötigt werden. Die Startadresse 
dieser Files entspricht dem Hi-Eddi-Format: Im Bereich von 
$2000 bis $3fff wird die Bitmap abgelegt, der Bereich von 
$4000 bis $43ff enthält das Farb-RAM. Die Bilder belegen 
pro Sektorhälfte 37 Blocks auf Diskette. 

Weitere fantastische Möglichkeiten stehen Ihnen mit 
dem Listing »Bitmap-Converter« (Seite 27 in diesem Heft) 
zur Verfügung. 

Benutzerfreundlichkeit durch Windows 


Dialogboxen setzt Geos fast immer dann ein, wenn es dar¬ 
um geht, vom Benutzer Eingaben zu holen, oder ihn auf et¬ 
was aufmerksam zu machen. Dialogboxen sind umrahmte 
Fenster mit symbolischen Schatten, die wie ein eigenstän¬ 



den können. Geos baut eine Dialogbox mit Hilfe einer Ta¬ 
belle auf, die der Programmierer vorher definieren muß. In 
dieser Tabelle stehen die Werte für Größe, Position, Füllmu¬ 
ster und eventuelle »OK«-Felder. Listing 11 zeigt das dazu 
notwendige Vorgehen sehr anschaulich: Vor dem Aufruf 
des »DIALBOX«-Makros muß in Register 0 die Position die¬ 
ser Tabelle übergeben werden. Die Beispieltabelle soll ab 
»DBTABELLE« liegen, also heißt der vollständige Aufruf im 
Hypra-Ass-Format: 

- ... loadw (dbtabelle,r0) 

- jsr dialbox 

Nun muß man sich um den Aufbau der Parametertabelle 
kümmern. Geos erwartet dabei folgenden Aufbau: 

- .BY Füllmuster des Randes 

- .BY Obere Grenze (der Dialogbox!) 

- .BY untere Grenze 

- .WO linke Grenze 

- .WO rechte Grenze 

- TABELLE.... 

- .BY 0 (Abschlußkennung der Tabelle) 

Sie können auch sehr leicht eine Dialogbox in der 
Standard-Größe einer Fehlermeldungsdialogbox erzeu¬ 
gen. Dazu brauchen Sie nur in dem Byte, welches das Füll¬ 
muster bestimmt, Bit 7 zu setzen. Die Größe der Box wird 
dann automatisch bestimmt. Mit dem Füllmuster ist das 
Muster gemeint, mit dem der »Schatten« der Dialogbox ge¬ 
füllt werden soll. Geos stellt hier zweiunddreißig solcher 
Muster zur Verfügung. Dies bedeutet: 

- .BY Füllmuster des Randes 
-Io! $80; (!oI meint 0R) 

Eine Fehlermeldungsbox hat folgende Parameter: 
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Rand oben : $20; (#32) 

Rand unten : $7F; (#127) 

Rand links : $40; (#64) 

Rand rechts : $FF; (#255) 

Bei Benutzung dieser Funk¬ 
tion fällt die Tabelle mit den 
Randbegrenzungen natürlich 
weg. Listing 11 führt Ihnen die¬ 
se Füllmuster vor. Anhand die¬ 
ses Listings läßt sich auch 
sehr schön verfolgen, wie man 
die Geos-Programmbibliothek 
anwendet. Um aus den bei der 
Assemblierung erzeugten 
Objektfiles unter Geos lauffä¬ 
hige Programme zu generie¬ 
ren, muß man so vorgehen, 
wie oben bereits beschrieben 
wurde. 

Nun aber zurück zu unserer 
Tabelle: 

Da die Koordinaten der Dia¬ 
logbox konstant sind, kann 
das Makro »DIALINTRO« in 
Aktion treten. Es hat die Syn¬ 
tax: 

... dialintro (füllmuster- 
,ystart,yende,xstart, 
xende) 

Das Beispiel arbeitet dann 
mit folgenden Parametern: 

- ... dialintro (1,20,180 
,20,300) 

Das Byte für das Füllmuster 
ist 1, also eine schwarze Flä¬ 
che. Die Dialogbox ist damit 
geöffnet. Nun soll auch etwas 
in ihr ausgegeben werden. 

Dazu sind die Dialogbox-Op- 
codes da, die in Tabelle 4 dar¬ 
gestellt sind. In den Dialogbo¬ 
xen befinden sich Befehlsfel¬ 
der. Nach dem Anklicken ei¬ 
nes solchen Feldes wird die 
Dialogbox abgebaut, und die 
Nummer des Feldes in Regi¬ 
ster 0 (rO) gespeichert. 

Sie können also beispiels¬ 
weise mit: 

- lda rO 

- cmp #ok 

- bne okwargeklickt 
abfragen, ob das OK-Feld an¬ 
geklickt worden war. Nun aber 
zurück zu unserem Beispiel. 

Es soll ein Text ausgegeben 
werden, beispielsweise: »Bitte 
geben Sie Ihren Namen ein:«. Tabelle 4. Die Dialogbox-Opcodes und Ihre Bedeutungen 


Equate 

Opcode 

Parameter 

Funktion 

OK 

$01 

.BY OK 
.BY x-Positlon 
.BY y-Position; 

Erzeugt ein OK-Feld, das angeklickt werden 
kann. Achtung; Die x-Position mit 8 multipliziert 
gibt die wirkliche obere linke Ecke der Befehls¬ 
felder OK/CANCEL etc. 

CANCEL 

$02 

.BY CANCEL 
.BY x-Position 
.BY y-Position; 

CANCEL-Feld 

YES 

$03 

.BY YES 
.BY x-Position 
.BY y-Positlon; 

YES-Feld 

NO 

$04 

.BY NO 
.BY x-Position 
.BY y-Positlon; 

NO-Feld 

OPEN 

$05 

.BY OPEN 
.BY x-Position 
.BY y-Position; 

OPEN-Feld 

DISK 

$06 

.BY DISK 

.BY x-Position 
.BY y-Position; 

DISK-Feld 

DBTXTSTR 

$0B 

.BY DBTXTSTR 

.BY x-Position 
.BY y-Position 
.WO zeiger; 

Ausgabe des Textes ab »zeiger« an Position x/y. 

(x < =255). Der Text wird mit »0« abgeschlossen. 

DBVARSTR 

$0C 

.BY DBVARSTR 
.BY x-Position 
.BY y-Positic.r. 

.BY Register; 

Indirekte Textausgabe. DBVARSTR funktioniert 
wie DBTXTSTR. Allerdings wird der Zeiger auf 
den auszugebenden Text indirekt berechnet: 

Geos liest den Inhalt der Speicherstelle 
»Register« und »Register+1« und nimmt diesen 
als Zeiger auf den Text. 

DBGETSTR 

$0D 

.BY DBGETSTR 
.BY x-Position 
.BY y-Position 
.BY Reg-Nummer 
.BY ZEICHENMAX; 

Indirekte Texteingabe an der Position 

Fensterstart-x + x-Position/Fensterstart-y + 
y-Position. Funktioniert indirekt wie DBVARSTR. 
Dabei muß in Register 5 -10 der Zeiger auf die 
Adresse abgelegt worden sein, ab der der Text 
eingelesen werden soll. An dieser Adresse muß 
sich eine 0 befindenl. ZEICHENMAX Ist die 
maximale Anzahl der einzulesenden Zeichen. 

DBSYSOPV 

$0E 

keine 

Setzt eine interne Speicherstelle so, daß beim 
Klicken außerhalb eines Dialogbox-Icons 
zurückgesprungen wird, und In $0E In Adresse 
$851D geladen wird. 

DBUSRROUT 

$13 

.WO ADRESSE; 

Die Routine ab ADRESSE wird nach dem 

Zeichnen der Dialogbox aufgerufen. Mit 
DBUSRROUT Ist es möglich, Grafiken in die 
Dialogbox einzuzeichnen, bevor der Benutzer 
etwas in der Dialogbox auswählen kann. 


- -by 

dbtxtstr 

; Textausgabe 

- .by 

10 

; XPosition 

- .by 

50 

; YPosition 

- .wo 

ausgl 

; ab " txl" liegt der Text 


Nun soll der Name eingegeben werden, wobei maximal 
20 Zeichen erlaubt sind: 

- .by dbget ; Texteingabe 

atring 

- .by 10 ; X-Position 


- .by 62 • ; Y-Position 

- .by r5 ; R5 ist der Zeiger auf den Text 

- .by 40 ; Maximal 20 Zeichen akzeptieren 

Das Beispielprogramm soll nun den eingegebenen Na¬ 
men wieder ausgeben. Dazu muß aber eine neue Dialog¬ 
box geöffnet werden. Listing 12 enthält die kompletten Sy¬ 
stemaufrufe und führt Ihnen auch die indirekte Textausga¬ 
be vor. Probieren Sie am besten einmal alle Möglichkeiten 
der Dialogboxen aus. 
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Es wurde in unserem Kurs zwar erst ein kleiner Teil der 
Geos-Routinen besprochen, und doch ist die Funktion- 
Bibliothek schon recht ansehnlich. Nun kommen die Label 
der Einsprungadressen zum Zeichnen von Linien, Recht¬ 
ecken und andere Grafik-Routinen hinzu. Geos arbeitet mit 
zwei Grafikbildschirmen. Der für den Anwender sichtbare, 
ab jetzt Bitmap 1 genannte Bildschirm, liegt bei $AOOO, der 
andere (Bitmap 2) bei $6000. Bei den meisten Grafikrouti¬ 
nen kann man entscheiden, ob eine bestimmte Operation 
im sichtbaren Bildschirm oder im Bildschirm ab $6000 aus¬ 
geführt werden soll. Dies wird bestimmt durch die beiden 
oberen Bits in der Speicherstelle $2F (47 dezimal): 

Bit 6: in Bildschirm ab $6000 schreiben (0=nein/1=ja) 
Bit 7: in Bitmap ab $A000 schreiben (0=nein/1 =ja) 

Grafikoperationen 


Es können auch beide Bits gesetzt oder gelöscht sein. Bis 
auf Menü- und Dialogbox- sowie Verschieberoutinen (zwi¬ 
schen beiden Bildschirmen) beziehen sich alle Grafikrouti¬ 
nen auf diese Adresse. 

Die Anwendung von zwei Bildschirmspeichern hat meh¬ 
rere Vorteile: 

1. Grafikfunktionen können rückgängig gemacht werden. 
Das nutzt beispielsweise Geopaint mit der Undo-Funk- 
tion aus. 

2. Rechenaufwendige Grafikoperationen können in Bit¬ 
map 2 vollzogen, und dann erst in die sichtbare Bitmap 
1 kopiert werden. Dadurch wirkt der Aufbau des Grafik¬ 
bildschirms nicht ruckhaft, sondern kann sich fließend 
vollziehen. 

Sofern nicht anders beschrieben, beziehen sich die nun 
folgenden Grafikroutinen auf die Bitmap 1. DieZeile 12062 
muß für die Version 1.3 lauten: 

12062-.gl imprline =$ C737 

Folgende Möglichkeiten stehen Ihnen über den Aufruf 
der einzelnen Routinen nun zur Verfügung: 

HLINE 

Zieht eine horizontale Linie. Die X-Anfangsposition muß 
in R3, die Y-Position in R11, und die X-Endposition in R4 ge¬ 
speichert werden. Die Definition der Geos-Register und de¬ 
ren Makro-Behandlung ist oben nachzulesen. 

Achten Sie darauf, daß der X-Endwert auch wirklich 
rechts vom X-Anfangswert liegt, sonst können Fehlfunktio¬ 
nen auftreten. In den Akkulumator muß das Zeichenmuster, 
welches auch zum Ziehen einer Linie verwendet werden 
kann, geladen werden. Der Aufruf dieser Funktion lautet 
dann wie folgt: 

... loadw (r3,x-anfang) 

... loadw (rll,y) 

... loadw (r4, x-ende) 

LDA # linienmuster 
JSR HLINE 

INVLINE 

Invertiert eine horizontale Linie. Die Parameterübergabe 
ist die gleiche wie bei HLINE, allerdings wird, da in diesem 
Fall unnötig, kein Linienmuster übergeben. Der Aufruf lau¬ 
tet: 

... loadw (r3j x-anfang) 

... loadw (rll, y) 

... loadw (r4, x-ende) 

JSR INVLINE 

RECVLINE 

Holt eine Linie aus Bitmap 2 in Bitmap 1. 

Die Parameterübergabe ist analog der von INVLINE. 


IMPRLINE 

Diese Routine steht wie CLS nicht in der Sprungtabelle 
des Geos-Kernel. Deshalb ist der Einsprung $ edd2 (Zeile 
12062) nur für bei Geos 1.2 zutreffend. Für Geos 1.3 muß es 
$ C737 lauten. Ist das Gegenstück zu RECVLINE. Es wird 
also eine Linie von Bitmap 1 nach Bitmap 2 transferiert. Pa¬ 
rameterübergabe wie bei RECVLINE. 

VLINE 

Zieht eine vertikale Linie. 

Parameter: 

R3: Koordinate des oberen Punktes. 

R3+1: XY-Koordinate des unteren Punktes. 

R4: X-Koordinate der Linie. 

Akku: Enthält das Linienmuster. 

Aufruf: 

LDA # Y-oben 
STA R3 

LDA # Y-unten 

STA R3+1 

... loadw (x,r4) 

LDA # Muster 
JSR VLINE 

BOX 

Zeichnet ein ausgefülltes Rechteck. Dabei wird das ak¬ 
tuelle Füllmuster verwendet. Die Parameter werden wie 
folgt übergeben: 

R2: Y-Koordinate links oben 
R2+1: Y-Koordinate rechts unten 
R3: X-Koordinate links oben 
R4: X-Koordinate rechts unten 
Aufruf: 

Y-oben / 

STA R2 

LDA # Y-unten 
STA R2+1 

... loadw (x-oben,r3) 

... loadw (x-unten,r4) 

JSR BOX 

FRAME 

Zeichnet einen Rahmen um eine rechteckige Fläche. Die 
Parameterübergabe entspricht der von BOX, in den Akku 
wird das Linienmuster geladen. 

INVBOX 

Invertiert eine Box. Die Parameter werden wie bei BOX 
übergeben. 

RECVBOX 

Holt einen rechteckigen Bereich aus Bitmap 2 nach Bit¬ 
map 1. Die Parameter sind die gleichen wie bei BOX. 


PRBOX 

Funktioniert wie RECVBOX, jedoch wird von Bitmap 1 
nach Bitmap 2 kopiert. 

LINE 

Zieht eine Linie zwischen zwei beliebigen Punkten. Sie 
sollten diese Routine dann verwenden, wenn HLINE und 
VLINE, wie bei diagonalen Linien, nicht anwendbar sind. 
LINE ist zwar sehr schnell, doch HLINE/VLINE sind wegen 
der einfacheren Berechnung um einiges schneller. 
Parameter: 

R3: X-Koordinate Punkt A 
R4: X-Koordinate Punkt B 
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R11: Y-Koordinate Punkt A 
R11+1: Y-Koordinate Punkt B 
N=0: Linie wird gezeichnet 

N=1: Linie wird aus Bitmap 2 in Bitmap 1 übertragen 
C=0: Linie wird gelöscht 
C=1: Linie wird gezeichnet 

Das Kürzel »N« steht für das N-Flag (Negativ-Flag) des 
Prozessors. Sie können es mit LDA #$80 setzen, und mit 
LDA #$00 löschen. 

»C« steht für das Carry-Flag des Prozessors. Mit SEC 
(Set Carry) können Sie es setzen, und es mit CLC (Clear 
Carry) löschen. 

POINT 

Setzt einen einzelnen Punkt. 

Parameter: 

R3: X-Koordinate des Punktes 

R11: Y-Koordinate 

N=0: Punkt wird gesetzt 

N=1: Punkt wird aus Bitmap 2 geholt 

C=0: Punkt wird gelöscht 

C=1: Punkt wird gesetzt 

STRING 

Diese Funktion führt eine Kette von Grafikbefehlen aus. 
Wenn Sie eine Folge von Grafikfunktionen aufrufen wollen, 
bei der die Parameter feststehen, so können Sie diese Rou¬ 
tine nutzen. 

Da diese Funktion einigermaßen komplex ist, finden Sie 
in Listing 13 ein Beispielprogramm für diese Funktion. Der 
Aufruf der Dialogbox-Funktion und andere Aufrufe sind ja 
schon aus der letzten Folge bekannt. 

Vor dem Aufruf von »STRING« muß in Register 0 (R0 = 
$02/$03)) die Adresse der folgenden Tabelle geschrieben 
werden. Die Grafikbefehle werden als Tabelle übergeben, 
die mit $00 beendet werden muß. In dieser Tabelle sind fol¬ 
gende Funktionen möglich: 

.by setpix 
.wo x 

• by y 

Setzt den (virtuellen) Cursor auf x/y. 

.by lnepix 
.wo x 
•by y 

Zieht eine Linie von der Cursorposition zu x/y. 

.by boxpix 
.wo x 

• by y 

Zeichnet ein ausgefülltes Rechteck, x/y ist dabei die eine 
Ecke, die Position des Pixelcursor die andere. Gefüllt wird 
mit dem aktuellen Muster. 

.by patpix 
.by nr 

Setzt »nr« als aktuelles Füllmuster. 

.by putpix 

Schaltet auf Interpretation als Textstring um. (PUT¬ 
STRING Textausgabe) 

.by framepix 
.wo x 
■by y 

Zeichnet einen Rahmen. Die Eckpunkte sind dabei x/y 
und die Position des Cursors. 

.by rightpix 
.wo re 

Verschiebt den Pixelcursor um »re« Pixel nach rechts 

.by downpix 
.by ru 

Verschiebt den Cursor um »ru« Punkte nach unten 

.by drpix 


.wo re 
.wo ru 

Verschiebt den Cursor um »re« Punkte nach rechts und 
»ru« Punkte nach unten 

PATTERN 

Setzt das Flächenfüllmuster. Vor dem Aufruf dieser Rou¬ 
tine muß in den Akku die Nummer des gewünschten Mu¬ 
sters ($00-$21) geladen werden. 

SCAN 

Holt die Adresse einer Zeile der Bitmap 1 und 2. Diese 
Routine rechnet die Anfangsadresse einer Zeile im Grafik¬ 
bildschirm aus. 

Im X-Register muß die Nummer der zu berechnenden 
Zeile stehen. Nach JSR SCAN beinhaltet R5 die Adresse 
der Zeile in Bitmap 1, während in R6 die Adresse in Bitmap 
2 abgelegt ist. 

RPOINT 

Parameter: 

R3: X-Koordinate 
R11: Y-Koordinate 

Nach JSR RPOINT findet man im Carry-Register des 
Prozessors den Zustand des Punktes: C=0 Punkt nicht ge¬ 
setzt, C=1 Punkt gesetzt. 

Für einige Grafikroutinen gibt es auch Aufrufe, die mit der 
»lnline«-Funktion arbeiten. Das heißt, daß nach dem Aufruf 
die Parameter in ».BY«-oder».WO«-Werten stehen müssen. 
Diese sind: 

IBOX 

Funktioniert wie »BOX«. 

Folgenae Parameter müssen dabei übergeben werden: 
.by Y-Koordinate links oben 
.by Y-Koordinate rechts unten 
.wo X-Koordinate links oben 
.wo X-Koordinate rechts unten 
Gefüllt wird das Rechteck mit dem aktuellen Füllmuster 
(siehe »PATTERN«) 

IFRAME 

Arbeitet wie »FRAME«, jedoch werden die Parameter als 
Tabelle übergeben: 

.by Y-Koordinate links oben 
.by Y-Koordinate rechts unten 
.wo X-Koordinate links oben 
.wo X-Koordinate rechts unten 
.by zeichenmuster 

IREVBOX 

Wie »RECVBOX«, Parameterübergabe wie oben: 

.by Y-Koordlnate Ecke links oben 
.by Y-Koordinate Ecke rechts unten 
.wo X-Koordinate Ecke links oben 
.wo X-Koordinate Ecke rechts unten 

ISTRING 

Führt wie »STRING« eine Kette von Zeichenbefehlen 
aus. Die Tabelle folgt jedoch dann direkt, es müssen keine 
Zeiger gesetzt werden. Die Tabelle muß mit $00 beendet 
werden: 

- JSR ISTRING 
-.BY 1 

- WO 160,100 
-.BY 2 

- WO 300,105 
-.BY 0 

- nächster Befehl 
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IPRBOX 

Funktioniert wie PRBOX, jedoch folgen die Parameter di¬ 
rekt. 

Menüstrukturen unter Geos 


Geos hat seine hohe Beliebtheit durch seine große Benut¬ 
zerfreundlichkeit erworben. Pull-Down-Menüs haben ei¬ 
nen großen Anteil daran. Diese Art der Menüsteuerung hat 
den genialen Grundgedanken, verschiedene Funktionen 
unter einem Oberbegriff zusammenzufassen und dann, 
ähnlich einer Baumstruktur, Stück für Stück weiter aufzu¬ 
schlüsseln. 

Geos unterscheidet zwischen zwei Arten von Menüs: 
den horizontalen und den vertikalen. Horizontale Menüs 
sind beispielsweise die aus dem Desktop bekannten Menü¬ 
leisten. Mit einem solchen horizontalen Menü bietet Geos 
im allgemeinen die Überbegriffe der dann folgenden Pull- 
Down-Menüs an. Diese Pull-Down-Menüs sind die eben er¬ 
wähnten vertikalen Menüs. 

Sicher haben Sie auch schon bemerkt, daß man den 
Mauszeiger aus einigen Menüs herausbewegen kann (es 
schließt sich dann automatisch), während das bei anderen 
unmöglich ist. Begrenzte Menüs, die ein Herausbewegen 
des Mauszeigers nicht gestatten, werden im weiteren »Visi¬ 
ble«-, die anderen »Closing«-Menüs genannt. 

Natürlich muß auf das Anklicken eines Menüpunktes 
auch eine Reaktion folgen. Die Art dieser Reaktion kann 
man unter Geos genau festlegen. Dies geschieht durch 
den sogenannten »Menüstatus«, der als ein Byte-Wert im 
Aufruf der Menüroutine übergeben wird. Wenn ein Menü¬ 
punkt den Status »SPRUNG« hat, so wird direkt nach An¬ 
klicken des Punkts eine Routine aufgerufen, deren Adres¬ 
se im Menüprogramm mitzuliefern ist. »SUBMENUE« als 
Menüstatus ($80) hat zur Folge, daß ein weiteres Unterme¬ 
nü aufgebaut wird, dessen Tabellenadresse ebenfalls zu 
übergeben ist. 

TrickreUhe Programmierung 


Auch eine Kombination ist möglich: Beim Menüstatus 
»SPRUNTERM« (Sprung-Untermenü) wird vor dem Aufbau 
eines weiteren (Unter-) Menüs eine Routine aufgerufen, die 
dann mit RTS zurückkehrt und vorher im Register R0 die 
Adresse der Untermenü-Tabelle ablegt. Wie man diese 
ganzen Fähigkeiten in ein Programm einbaut, soll an einem 
Beispiel demonstriert werden. Dazu ist es notwendig, Li- 
sting 14 einzugeben und es parallel zu den folgenden Er¬ 
läuterungen zu lesen. Es stellt ein kleines Demo-Programm 
dar, das ein horizontales Menü mit zwei Wahlmöglichkeiten 
aufbaut. Werden diese angeklickt, erscheint jeweils ein 
vertikales Menü. Diese haben lediglich die Funktion, wie¬ 
der den Desktop aufzurufen. Beim Aufruf des rechten Me¬ 
nüs wird jedoch noch ein Rasterzeilen-Interrupt ausgelöst 
und die Rahmenfarbe des Bildschirms wechselt. 

Am Anfang des Programms erfolgen die üblichen Aufru¬ 
fe wie Startadresse des Objektcodes festlegen, Objektco¬ 
de auf Diskette umleiten und Geos-Bibliothek öffnen. Das 
geschieht in den Zeilen 100 bis 115. 

Nun tritt beim Aufruf des Makros »MENU« die Geos-Rou- 
tine »DOMENU« ($0151) in Aktion. Ihr wird in $02 (R0) die 
Adresse der Menütabelle übergeben. Der Wert im Akku 
legt fest, auf welchen Menüpunkt der Mauszeiger nach An¬ 
zeigen des Menüs stehen soll. (Beginnend bei Null). Dann 
kann DOMENU aufgerufen werden. Das Makro »MENU« 
hat die Parameter: 

... menu (tabellenadresse, nummer) 


Zeile 135 des Beispiels demonstriert dieses. Nachdem 
Geos die Tabelle verarbeitet hat, wird das Programm in ei¬ 
ner Art fortgesetzt, die etwas gewöhnungsbedürftig ist. Ge¬ 
os setzt dann nämlich seine Fähigkeit zum Multitasking ein. 
Multitasking bedeutet, daß mehrere Aufgaben vom Com¬ 
puter gleichzeitig abgearbeitet werden. So erscheint es - 
durch die Geschwindigkeit, mit der der Computer zwischen 
den einzelnen Aufgaben oder »Tasks« wechselt - dem An¬ 
wender jedenfalls. In diesem Fall läuft die Anwenderappli¬ 
kation und gleichzeitig dazu eine Routine ab, die prüft, ob 
ein Menü angeklickt wurde. Sofern das geschieht, muß Ge¬ 
os ja darauf reagieren können. Um dem System dazu Gele¬ 
genheit zu geben, muß so oft wie möglich in die sogenannte 
Hauptschleife (MAIN) gesprungen werden. Die einfachste 
Möglichkeit dazu ist der RTS-Befehl. Das klingt zwar unlo¬ 
gisch, ist es aber nicht: 

Wenn Geos ein Programm startet, geschieht dieses aus 
der Hauptschleife heraus per JSR-Programmstartadresse. 
Ein RTS müßte also in die Hauptschleife zurückspringen. 
Genau das geschieht auch. Nachdem das Menü geschlos¬ 
sen wurde, setzt Geos die Applikation nach dem RTS-Be¬ 
fehl fort. Muß das Hauptprogramm allerdings ständig eine 
bestimmte Aufgabe (wie das Bildschirmflackern beim De¬ 
moprogramm) ausführen, so wäre RTS ungünstig, da die 
Applikation ja nicht weiterläuft. Doch auch hier hilft ein klei¬ 
ner Trick. Man lädt in $849B/$849C die Adresse, an der 
»MAIN« die Applikation fortsetzen soll. Die Adresse $849B 
ist als Label »CONTINUE« definiert. Der Aufruf wäre dann: 
... loadw (adresse,continue). 

Nun wird per JMP MAIN die Hauptschleife angesprun¬ 
gen. Sofern nun kein Menüpunkt aktiviert wird, springt die 
Hauptschleife zu »Adresse«. Auch hierfür gibt es ein Makro: 
... raain (adresse). 

hi*-, mit läßt sich leicht eine Schleife bilden: 

-ANFANG (Ausführen einiger Befehle 


- ... MAIN (ANFANG) 

Soweit zur Hauptschleife MAIN. Der nächste, wohl wich¬ 
tigste Teil der Menüprogrammierung unter Geos ist die Me¬ 
nütabelle selbst. Sie beginnt mit der Angabe der Menüposi¬ 
tion und Größe (Zeile 180 bis 200): 

.by y-position oben 
.by y-position unten 
.wo linke Grenze 
.wo rechte Grenze 

Die Größe des Menüs muß leider vom Benutzer selbst er¬ 
rechnet werden. Dies ist ein eindeutiges Manko der Geos- 
Routinen. Die Größe eines Menüs kann man folgenderma¬ 
ßen errechnen: 


Horizontales Menü: 

X-Rechts = X-Llnks + Zahl der Buchstaben *5+10 
Y-Unten = Y-Oben + 14 

Vertikales Menü: 

X-Rechts = X-Links + Zahl der Buchstaben des längsten Eintrages 
*5 + 10 

Y-Unten = Y-Oben + Zahl der Einträge *14 + 1 


Nach den Koordinaten folgt das sogenannte Spezifika¬ 
tions-Byte. Im Spezifikations-Byte geben die Bits 0-4 die 
Anzahl der Menüpunkte an, also maximal 64. Bit 6 legt fest, 
ob das Menü nach dem Verlassen sichtbar bleiben soll 
oder nicht. Mit Bit 7 legt man den Menütyp fest (gesetzt = 
horizontal). Für diese Bits gibt es Definitionen in der Geos- 
Bibliothek. Sie heißen: »VISIBLE« und »CLOSING« für das 
Bit 6 sowie »HORIZONTAL« und »VERTIKAL« für Bit 7. 

Diese Bits werden in Zeile 200 mittels der ODER-Funk- 
tion (Io!) gesetzt. 
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ln der Menütabelle folgen nun die einzelnen Menüpunk¬ 
teinträge. Solch ein Eintrag ist folgendermaßen aufgebaut: 

1. Zeiger auf die Adresse, ab der der Menüpunkttext abge¬ 
legt ist. (.WO Adresse) 

2. Menüstatus (als Byte .BY): 

SPRUNG: Direkter Sprung 
SUBMENUE: Weiteres Untermenü 
SPRUNTERM: Weiteres Untermenü mit vorherigem 
Aufruf einer Routine 

3. Parameter zu 2 (mit .WO) 

Nach diesem Menüeintrag käme dann der nächste. Der 

Menüpunkttext an der Adresse von Punkt 1 muß wie immer 
mit .BY NULL abgeschlossen werden (Zeile 265). Denken 
Sie auch unbedingt daran, den Text in das Geos-Textformat 
zu konvertieren (Zeile 120 bis 130)1 Eine Übersicht überden 
Aufbau der Menütabellen finden Sie in den Tabellen 5 und Tabelle 5 - Menüs unter Geos sind durch übersichtliche 
0 Strukturen einfach zu programmieren 

Was passiert nun, wenn ein Menüpunkt mit dem Status 
SPRUNG angeklickt wird? Sobald die Hauptschleife ange¬ 
sprungen wird, wird von dort aus an die in 3. angegebene 
Adresse verzweigt. Dort kann nun entsprechend reagiert 
werden. Danach muß die Applikation fortgesetzt werden. 

Dafür gibt es mehrere Möglichkeiten: 

1. Abbau des Menüs: Dazu reicht ein RTS. 

2. Wiederaufbau des Menüs: JMP REDOMENU gibt das 
aufrufende Menü zur erneuten Auswahl frei. 

3. Sprung zum vorherigen Menü: JMP PREMENU springt 
zu dem Menü, aus dem das aktuelle Menü geöffnet wur¬ 
de (das jeweils nächsthöhere). 

4. Sprung zum ersten Menü: JMP MENU1 öffnet das erste 
aktivierte Menü. Im Desktop wäre das etwa die Menülei¬ 
ste (GEOS, FILE, etc.). 

Noch eine Bemerkung zum Wiederaufbau der Menüs: 

Soll ein selbstabbauendes Menü wiedereröffnet werden, 
so muß der Mauszeiger dann auf einen Punkt dieses Me¬ 
nüs gesetzt werden, da das Menü sonst sofort wieder abge¬ 
baut wird. Nachdem das Beispielprogramm nun analysiert 
wurde, kann es assembliert und durch die Generierung ei¬ 
nes Icons samt Infoblock in Geos eingebunden werden. 

Das geschieht wie immer mit dem modifizierten Hypra-Ass 
und dem GFL. 

Hilfen für Hypra-Ass-Einsteiger 


».by« gibt innerhalb des Quelltextes ein Byte mit (0 bis 255 
oder vorzeichenbehaftet -127 bis 127) an. 

.wo hat die gleiche Aufgabe wie .by, jedoch handelt es 
sich dann um ein 16-Bit-»wort« (0 bis 65535 oder vorzei¬ 
chenbehaftet -32767 bis 32767) 

.tx verfährt genauso mit einem Text 
lol ist eine Assembler-Pseudodirektive und stellt ein logi¬ 
sches ODER (OR) dar. Es können damit gezielt Bits gesetzt 
werden. 

11o! 2 ergibt beispielsweise 3. Io! wird im Listing 2. bei .BY 
oder .WO in den Menütabellen eingesetzt. 

Auf der Leserservice-Diskette zu diesem Sonderheft be¬ 
findet sich die komplette hier erschienene Geos-Funktions- 
bibliothek. Zusätzlich finden Sie dort auch das Demopro¬ 
gramm (Listing 14). Dieses Programm kann also ohne Vor¬ 
arbeiten mit dem Hypra-Ass, der sich ebenfalls auf der Dis¬ 
kette befindet, assembliert werden. 

Wenn Sie diesen Kurs aufmerksam studiert und auch ei¬ 
nige der Demoprogramme nachvollzogen haben, so sind 
Sie jetzt schon in der Lage, interessante Programme unter 
Geos zu schreiben. Sollte Ihr Informationsdurst noch nicht 
gestillt sein, so finden Sie in diesem Heft zahlreiche Hinwei¬ 
se zu weiterführender Literatur, die Sie zum Geos-Profi 
macht. (T. Petrowski/F. Müller/rs) 


Aulbau einer Menütabelle 


1. Zeiger auf Text des Menüpunktes (.WO Adresse des Textes) 

2. Menüstatus (.BY): 

SPRUNG: Der Wert aus 3. wird als Sprungadresse aufgefaßt. 
Wird dann der Menüpunkt angeklickt, so wird zu dieser 
Adresse per JSR verzweigt. 

SUBMENUE: Der Wert aus 3. wird als Zeiger benutzt, der bei 
angeklicktem Menüpunkt als Adresse einer weiteren 
(Unter-)Menütabelle gesehen wird. 

SPRUNTERM ist eine Mischung aus SPRUNG und 
SUBMENUE. Bei aktiviertem Menüpunkt dieser Art wird 
zuerst zu der Adresse aus 3. verzweigt. Die Routine an dieser 
Adresse muß in R0 den Zeiger auf eine weitere Menütabelle 
hinterlassen und per RTS zurückkehren. 

3. Parameter zu 2. Muß als 16-Bit-Wert (also als .WO = Wort) 
an?“ eben werden. 


Form des Textes (zu 1.): 
Textübergabekommando .TX "Text" 
Geos-Zeichensatz zu konvertieren. 


. »Text« Ist vorher in den 


Möglichkeiten einen aktivierten Menüpunkt zu beenden: 

a) RTS beendet die Auswahl, das Menü wird geschlossen, und 
die Applikation normal fortgesetzt, 

b) JMP REDOMENU gibt das Menü erneut zur Auswahl frei. 

c) JMP PREMENU schließt das aktuelle Menü, und öffnet das 
ranghöhere, zuvor geöffnete Menü. 

d) JMP MENU1 öffnet das erste benutzte Menü. 


Tabelle 6 . Parameter der einzelnen Menüpunkte. Die Haupt¬ 
arbeit erledigt dabei Geos selbst. 


10 REM-;- < 140> 

20 REM - MAKE CObES - <033> 

30 REM - ERZEUGT - <056> 

40 REM - CODETABEULE - <220> 

50 REM - FUER BDM - <206> 

60 REM- < 190> 

61 s <037> 

62 REM * T.PETROWSKI 64'ER GEOS KURS * <194> 

63 REM <061> 

70 s <046> 

B0 PRINT“ DISKETTE EINLEGEN - TASTE“:POKE 

198,0:WAIT 19B,1 <209> 

110 OPEN 2,8,2,“GDM.CODES,P,W“:PRINT#2,CHR 

*(0>CHR*(195); <180> 

130 FOR T=0 TO 255:PR—T <054> 

135 IF T<32 OR T>122 THEN PR=46 <046> 

150 IF T>=97 AND T<“122 THEN PR=PR-32:GOTO 

180 <198> 

160 IF T>=65 AND T<=90 THEN PR-PR+12B <110> 

180 PRINT#2,CHR#(PR> 5 :NEXT T:CLOSE 2 <182> 

Listing 1. »GDM.MAKE« erzeugt eine Geos-Code-Tabelle 


Tabelle für Menüleiste 


1. obere Y-Position (.BY 0-199) 

2. untere Y-Position (.BY 0-199) 

3. linke X-Position (.WO 0-319) 

4. rechte X-Position (.WO 0-319) 

5. Spezifikationsbyte (.BY) 

Format: 

»Zahl der Menüpunkte« IOI VISIBLE; (Mauszeiger kann nicht 
aus dem Menü herausbewegt werden, siehe Zelle 200,330) 
»Zahl« 10! CLOSING (Menü schließt sich beim Verlassen) 
»Zahl« IO! HORIZONTAL (Horizontales Menü/ Menüleiste) 
»Zahl« IOI VERTIKAL (Vertikales Menü/Pull-Down-Menü) 

6. Menüeinträge im einzelnen (Anzahl Im Spezifikationsbyte 
festgelegt) 
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Name : gdm.obj cOOO cl3b 


cOOO 

a2 

02 

20 

c6 

ff 

a2 

00 

aO 

db 

c008 

00 

20 

cf 

ff 

9d 

00 

c2 

8d 

0c 

oOlO 

20 

dO 

e8 

88 

dO 

f3 

4c 

cc 

5b 

c018 

ff 

aO 

00 

b9 

00 

c2 

aa 

bd 

db 

e020 

00 

c3 

20 

d2 

ff 

c8 

dO 

f3 

d6 

e028 

60 

a2 

02 

20 

c9 

ff 

a2 

00 

85 

c030 

bd 

00 

c2 

20 

d2 

ff 

ee 

20 

cb 

o038 

dO 

e8 

dO 

f4 

4c 

CC 

ff 

a2 

bf 

c040 

01 

20 

c6 

ff 

20 

cf 

ff 

fO 

65 

c048 

lf 

20 

cf 

ff 

20 

cf 

ff 

85 

f7 

c050 

63 

20 

cf 

ff 

85 

62 

20 

dl 

47 

c058 

bd 

20 

cf 

ff 

fO 

0a 

aa 

bd 

9f 

c060 

00 

c3 

20 

d2 

ff 

4c 

59 

cO 

ed 

c068 

4c 

cc 

ff 

a5 

14 

48 

a5 

15 

13 


c070 : 

48 

20 

fd 

ae 

20 

8a 

ad 

20 

6b 

c078 : 

f7 

b7 

a5 

14 

8d 

af 

cO 

a5 

db 

c080 : 

15 

8d 

bO 

cO 

68 

85 

15 

68 

78 

c088 : 

85 

14 

20 

fd 

ae 

20 

9e 

b7 

b5 

c090 : 

8a 

48 

20 

fd 

ae 

20 

8b 

bO 

82 

c098 ; 

: 85 

49 

84 

4a 

20 

a3 

b6 

68 

f7 

cOaO : 

: 20 

75 

b4 

aO 

02 

b9 

61 

00 

2f 

c0a8 : 

: 91 

49 

88 

10 

f8 

c8 

ad 

ff 

8e 

cObO : 

; ff 

aa 

bd 

00 

c3 

91 

62 

ee 

a4 

c0b8 : 

: af 

cO 

dO 

03 

ee 

bO 

cO 

c8 

65 

cOcO : 

: c4 

61 

dO 

ea 

60 

20 

fd 

ae 

23 

c0c8 : 

: 20 

8a 

ad 

20 

f7 

b7 

20 

fd 

56 

cOdO : 

: ae 

20 

9e 

ad 

aO 

00 

bl 

64 

85 

c0d8 : 

: 85 

24 

c8 

bl 

64 

85 

04 

c8 

ec 

cOeO 

: bl 

64 

85 

05 

aO 

00 

bl 

04 

9e 

c0e8 

: c9 

2e 

fO 

Ob 

a2 

ff 

dd 

00 

07 


cOfO : 

: c3 

fO 

03 

ca 

dO 

f8 

8a 

91 

68 

c0f8 : 

: 14 

c8 

c4 

24 

dO 

e8 

60 

20 

3c 

C100 : 

: fd 

ae 

20 

9e 

b7 

86 

61 

a2 

ab 

cl08 : 

: 08 

a5 

61 

3d 

ld 

cl 

dO 

05 

10 

cllO : 

: a9 

20 

4c 

17 

cl 

a9 

2a 

20 

12 

cll8 : 

: d2 

ff 

ca 

dO 

ec 

60 

01 

02 

90 

cl20 : 

; 04 

08 

10 

20 

40 

80 

20 

fd 

b5 

cl28 : 

: ae 

20 

9e 

b7 

aO 

00 

bd 

00 

86 

cl30 : 

: c2 

99 

40 

03 

e8 

c8 

cO 

40 

88 

cl38 : 

: dO 

f4 

60 

82 

ff 

00 

ff 

00 

eb 


Listlng 2. »GDM.OBJ« - Der Maschl- 
nensprache-Tell des »GDM«. 

Bitte mit dem MSE (Seite 159) 
eingeben. 


1 A=A+1:IF A=1 THEN LQAD"BDM.OBJ 11 ,8,1 

2 B“B+1:IF B=1 THEN LOAD"GDM.CODES",8,1 

3 sREM NEU 

14 REM - 

15 REM - GDM BEOS DISKETTEN MONITOR - 

45 REM - (C) MARKT & TECHNIK 

50 REM - 

51 : 

55 ! 

60 HE* = "-i 


<0B3> 
<239> 
<072> 
<046> 
<135> 
< 117> 
<0B2> 
<027> 
<031 > 
< 210 > 
<192> 
<051 > 


65 H2*="-0123456789ABCDEF" 

75 : 

85 CLOSE 15:OPEN 15,B,15,“I":CLOSE 2:0PEN 
2 , 8 , 2 ,"»" 

90 .POKE 532B0,0:POKE 532B1,0:POKE 53272,23 
:POKE 657,128:POKE 646,1 

91 POKE 53248,32:POKE 53249,219:POKE 53288 
,1:POKE 53269,1:POKE 52264,0 

92 POKE 2040,13 
95 : 

100 REM -HAUPTMENUE- 

105 PRINT"{CLRJßBÜCSHIFT—SPACEJßEOS 3ISKM0 

NITOR Jt2{16SPACEJ";:POKE 53269,1 <104> 

106 PRINT"{3SPACE1BY IHORSTEN £ETROWSKI{3S 

PACEXC) 64'ER" <030> 

107 PRINT“ TAl'uWu"u"lATl/l füllWu" l! II - Uliu UViAjWÜVÜ i)U 


<18B> 


<078> 


<215> 

< 141 > 


<0B7> 


115 PRINT"{2SPACE,RVSON>F1{RVOFF,SPACE>i£S 
EN C2SPACE,RVS0NJF2 {RVOFF,SPACE > NAECHST 
ER12SPACE,RVSON >F3(RVOFF,SPACE JSCHREIB 
EN“ 

120 PRINT:PRINT"{2SPACE,RVSON1F4IRVOFF,SPA 
CEJ£YTE EDIT «2SPACE,RVS0NJF5{RVOFF,SPA 
CE >BIRECTORY {2SPACE,RVSON >F 6 {RVOFF,SPA 
CEJfiESET" 

125 PRINT:PRINT"{SPACE,RVSON >F7{RVQFF,BPAC 
EJSLOCK EDIT{SPACE,RVSON>FB{RVOFF,SPAC 
E}£NDE {SPACE, RVSON > «- {RVOFF , SPACE 1.2UMP { 
SPACE,RVSON >H{RVOFF,SPACE>Ü££-£DIT"; 

126 PRINT"’iTiTiTiTTi'iTlTlTl'lTiTl'i'ii TiTTTTT 
TTTfTTTT"-, 

130 F'R I NT " {RVSON, 5SPACE, RVOFF 1 SPUR C {4SPAC 
E }I{SPACE,RVSON,SPACE,RVOFF,SPACE > SEKT 
OR C(4SPACE> 3{RVSON,BSPACE,RVOFF >": 

131 PRINT" 'OTi'uTi'uWuTi'uWlAAj'u'u'u U U ITÜTiTiWuWtfuK 

135 PRINT" {7DOWNIb'bVbTimiWuTAimramf{RVSON,U 
P,LEFT,24SPACE,RVOFF >" ; 

140 PRINT " {D0WN>aYTE«{3SPACE>:,a&i » {4SPAC 
E ))IE_X »{3SPACE1SL& 7. {BSPACE 5" 

141 PRINT“W*jt*S" 

142 PRINT" = {3BPACE> = SPRITE" 

143 PRINT"r.{3SPACE> = " 

144 PRINT" = (3SPACE>=" 

145 PR I NT "f&äyfx 1 {HOME > "; 

146 BOSUB 575 

150 : 

155 : 

160 REM - AUSWAHL MENUE - 

165 MD*="> KfU_T.I-KG. (SHIFT—SPACEX " • BOSUB 20 
00 

166 GET KEY*:IF KEY*“"" THEN 165 

170 IF KEY*“"{Fl>" THEN GOSUB 590 

175 IF KEY*“"(F5>" THEN PRINT"{CLR>":GOSUB 


< 1B2> 


<1B7> 


< 022 > 


<U1> 


< 104 > 

< 111 > 

<204> 

< 003 > 

< 169> 
<05B> 

< 038> 
<039> 
<206> 

< 13B> 
<126> 

< 131 > 

< 179 > 

<057> 
<230> 
<233> 


253 


460:GOTO 105 <14B> 

176 IF KEY*="H" THEN 1000 <205> 

180 IF KEY*="{F7>" THEN BOSUB 575:GOTO 225 <243> 

185 IF KEY*“"{F 6 >" THEN 85 <073> 

190 IF KEY*="(F3>" THEN BOSUB 650 <030> 

195 IF KEY*“"{FBI" THEN CLDSE 2:CL0SE 15:P 
OKE 53269,0:PRINT"{CLRIF'ROGRAMMENDE":E 
ND <004> 

200 IF KEY*="{F2>" THEN T=PEEK(49664):S=PE 

EK(49665):KEY*“"{Fl:GOTO 170 <028> 

205 IF KEY*="{F4>" THEN GOSUB 630 <1B0> 

210 IF KEY*““«-" THEN BOSUB 340:GOTO 105 <040> 

215 GOTO 165 <143> 

220 : <196> 

225 REM -EDITIEREN- <047> 

230 CR“1464+NR:RO=CR <082> 

235 X=29:Y=0:GOSUB 675: PRINT" > EJUXIKG < “ <125> 

240 IF NR>255 OR NR<0 THEN NR=NO:CR=RO <021> 

245 GOSUB 605 <133> 

POKE RO,PEEK(RO> AND 127 <094> 

POKE CR,PEEK(CR) OR 128 <092> 

260 RO=CR:NO=NR <090> 

265 GET MO*:IF MO*“"" THEN 265 <222> 

270 MO=ASC(MO*>:PQ=MO <013> 

275 IF M0=29 THEN NR=NR+1:CR=CR+1:BOTO 240 <199> 
280 IF M0=17 THEN NR=NR+40:CR=CR+40:GOTO 2 

40 < 050 > 

285 IF M0=138 THEN GOSUB 630:GOTO 240 <057> 

290 IF MO“145 THEN NR=NR-40:CR=CR-40:GOTO 

240 <201> 

295 IF MO“157 THEN NR=NR-1:CR=CR-1:GOTO 24 

0 <132> 

300 IF MO“13 THEN POKE RQ,PEEK(RO) AND 127 

:GOTO 150 <121> 

305 IF MO>=65 AND MO<=90 THEN P0“P0+32:GOT 

0 315 <094> 

310 IF MO>=193 AND M0<=218 THEN PO=PO-12B <144> 
315 Y=INT(NR/40):X=NR-Y*40:Y=Y+11:GOSUB 67 

5:PRINT CHR*(MO); <198> 

320 POKE 49664+NR.PD <031> 

325 IF MR<255 THEN NR=NR+1:CR=CR+1 <197> 

330 GOTO 240 <076> 

335 : «357> 

340 REM -HARDCOPY <197> 

341 PRINT" {CLR> 11 : X=0: Y=12: GOSUB 675:PRINT" 

SRUCKER-BUMP ...“«POKE 53269,0 <167> 

342 PRINT TAB<10>" UDEZIMAL" <031> 

343 PRINT TAB(10)"(ü)EXADEZIMAL“ <106> 

344 PRINT TAB(10>"(S) iS£{SHIFT-SPACE>!" <090> 

345 GET MO*:IF MO*“"" TUEN 345 <172> 

346 IF MO*="S" THEN RETURN <210> 

347 IF MO*="H" OR MO*="D" THEN 353 <143> 

348 GOTO 345 <006> 

353 OPEN 4,4,7:REM MPS-B01 GGF.AENDERN <153> 

354 POKE 768,61:PRINT»4,:CLOSE 4:P0KE 768, 

139 <026> 

355 IF STO-128 THEN 359 <002> 

356 X=5:Y=20: GOSUB 675: PRINT"SÄÜ.QJt£.a{SHIFT 

-SPACE > HI-C_HT <SH I FT-SPACE } { 

SHIFT—SPACE}!—IASTE " <23B> 

Listing 3. »GDM«. Der Geos-Disketten-Monitor. 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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357 FQR T—0 TD 255:POKE 53280,T: NEXT: BET A 

*:IF A*="" THEN 357 <226> 

358 BDTO 340 <112> 

359 OPEN 4,4,7: QOSIJB 675: PRINT" {3BSPACEJ " <143> 

360 FOR OUT =0 TO 31 <091> 

361 :PRINT#4,"C"; <172> 

362 :IF MQ*="D" THEN PRINTM4.RIEHT*(STR*(0 

UT*B+1000),3);"T :"s <012> 

363 :IF MO*="H" THEN BY=0UT*8:BOSUB 35000: 

PRINT#4,HI*;"T "; <231> 

365 : FOR YB =0 TO 7 <022> 

369 : : IF MO*="H" THEN BY=PEEK (49664+OUT»8+ 

YB): BOSUB 35000: PRINTt!4,HI*; <023> 

370 ::IF MO*="D" THEN PRINT44.RIEHT*(STR*( 

PEEK(49664+0UT*8+YB)+1000),3); <092> 

371 : PRINT44, " <1B9> 

375 :NEXT YB <082> 

380 :SYS 49259,49664+OUT»8,8,PR* <254> 

385 :PRINT#4,PR* <0B8> 

390 NEXT OUT <235> 

395 PRINT«4:PRINT«4,"aaQ ££08 .SISK flDNITOR 

VON X. JiETROWSKI (£) 64 • ER": PRINT44 <136> 
400 CLOSE 41 POKE 53269,1:RETURN <016> 

405 : <127> 

410 REM -DISK-STATUS- <156> 

415 1NPUT#15,EN,ER*,ET,ES:POKE 212,0 <235> 

420 X=6:Y=24:BOSUB 675:PRINT"<32SPACEJ"; <212> 

425 X=6:Y=24:BOSUB 675:P0KE 212,0 <179> 

430 PRINT",QISK :";ER*;"CHOME}" <136> 

435 RETURN <239> 

440 : <162> 

445 REM -STRICH- <20B> 

450 PRINT" 

; : RETURN <143> 

455 : <177> 

460 REM -DIRECTORY <221 > 

465 CLOSE 1:OPEN 1,B,0,"*0“:POKE 53269,0 <157> 

470 BETttl ,A*,A*: D=0: POKE 198,0 <169> 

475 D=D+1:IF D=2 THEN PRINT:BOSUB 445 <100> 

480 PRINT:PRINT"{5SPACEJ";:IF (ST AND 64)= 

64 THEN BOTO 500 
485 IF PEEK (198> =0 THEN 495 
490 POKE 198,0:WAIT 19B,1:P0KE 198,0 
495 SYS 49215:BOTO 475 

500 PRINT"{DOWN,2SPACEJ- XASTE DRUECKEN 

-":POKE 19B,0:WAIT 198,1 <105> 

505 POKE 53269,1:RETURN <142> 

510 : <232> 

515 REM - SPUR/SEKTOR EINBABE - <101> 

520 X=11:Y=9:BOSUB 675:IN=T:BOSUB 700:T=IN <017> 

535 X=27:Y=9:BOSUB 675:IN=S:BOSUB 700:S=IN <22B> 

545 RETURN <095> 

550 : <01B> 

555 REM -BLOCK LESEN- <216> 

560 POKE 53269,0:PRINT#15,"Ul 2 0 "T;S <013> 

565 SYS 49152:NR=0:POKE 53269,1:RETURN <229> 

570 : <03B> 

575 REM -ANZEIBEN- <070> 

580 X=0:Y=11:BOSUB 675:SYS 49177:POKE 5328 

0,0:RETURN <0B9> 

585 : <053> 

590 REM -LESEN- <027> 

595 BOSUB 515:BOSUB 555:BOSUB 410:BOSUB 57 

5:RETURN <104> 

600 : <068> 

605 REM -WERT AUSBEBEN- <254> 

610 X=5:Y=19:BOSUB 675:PRINT RIEHT*(STR*(N 

R+1000),3); <249> 

614 POKE 211,14:PRINT RIEHT*(STR*(PEEK(496 

64+NR)+1000),3); <132> 

615 POKE 211,23:PRINT MID*(HEX*,(((PEEK(49 

664+NR) AND 240)+16)/16)+1,1>; <153> 

616 PRINT MID*(HEX*,(PEEK(49664+NR)AND 15) 

+ 2,1>S <235> 

617 SYS 49446,NR:POKE 211,31;SYS 49407,PEE 

K(49664+NR) <037> 

620 RETURN <170> 

625 : <093> 

630 REM -BYTE EDIT <021 > 

635 BOSUB 605:X=18:Y=22:BOSUB 675:PRINT"HE 

UER HERT:“; <174> 

636 OPEN 3,0,0:INPUT#3,BY*:CLOSE 3 <109> 

637 MO*=LEFT*(BY*,1) <043> 

638 IF M0*< >"*" THEN 641 <186> 

639 IN*=MID*(BY*,2):BOSUB 41000 <211> 

640 BY=IN:BOTO 649 <233> 



fii 


641 IF M0*< >"7." THEN 645 <192> 

642 BY=0:FOR BI=0 TO 7 <039> 

643 IF MID*(BY*,9-BI,1>="1" THEN BY=BY+2TB 

I <131> 

644 NEXT BI:BOTD 649 <162> 

645 IU=1:IF M0*=“#“ THEN IU=2 <059> 

646 BY=9AL(MID*(BY*,IU,3)) <096> 

649 POKE 49664+NR,BY:BOSUB 575:RETURN <079> 

650 REM -SCHREIBEN- <232> 

655 BOSUB 515:PRINTtt15,"B—P 2 0":SYS 49193 <044> 

660 PRINTtt 15, "U2 2 0 "-,T;S <168> 

665 BOSUB 410:RETURN <09B> 

670 : <138> 

675 REM - CURSOR SETZEN - <245> 

680 POKE 211,X:POKE 214,Y:SYS 58732:RETURN <239> 

690 : <15B> 

700 REM - EINBABE (AUCH HEX) <225> 

701 1N*=RIEHT*(STR*(IN+1000),2):BOSUB 800 <192> 

715 IF LEFT* <IN*,1)="*" THEN IN*=RIBHT*<IN 
*,2>:BOSUB 41000:RETURN 

716 IN=VAL(IN*) 

720 RETURN 

800 PRINT IN*; 

801 PRINT"CRVSON,SPACE,RVOFF,LEFT J"; 

805 BET A*:IF A*="" THEN 805 
810 LL=LEN(IN*):IF A*=CHR*<20> AND LL>0 TH 

EN IN*=LEFT*(IN*,LL-1>:PRINT"{LEFT,2SP 
ACE, 2LEFTJ 11 ; 

Bll IF A*=CHR* (20) THEN 801 
812 IF A*=CHR*(13> THEN PRINT" ";:RETURN 

815 IF(A*>="0"AND A*<="9")OR(A*>="A"AND A* 

< = "F")OR(A*> = "ß"AND A*< = "£")THEN 825 

816 IF A*="*" THEN 825 
820 BOTO 805 

025 IF LEN(IN*)<3 THEN IN*=IN*+A*:PRINT A* 

;:BOTO 801 
B30 BOTO 805 

1000 REM - HEX EDIT - 

1005 EB=0 

1010 X=0:Y=12:BOSUB 675 

1011 PRINT" ÜRT3SPACE}+0 +1 +2 +3 +4 +5 +6 

ÜL5SPACE > "; < 114> 

SUbüB 445:PRINT"I40SPACEJ";:BOSUB 445 <060> 
1013 PRINT"{3SPACEJ+ S3RW. - ZUR. RETURN {S 
HIFT—SPACE >£1NBEBEN Q £NDE" 

1030 X=0:Y=14:BOSUB 675:PRINT"I";:BY=EB:BO 
SUB 35000:PRINT HI*;"I{2SPACE}"; 

1035 FOR T=0 TO 7:BY=PEEK<49664+EB+T):BOSU 
B 35000:PRINT HI*" ";:NEXT T 

1036 FOR T=0 TO 7:PRINT CHR*(PEEK(PEEK(496 
64+EB+T)+49920)>;:NEXT 

1040 BET K*: IF l<*="" THEN 1040 
1045 IF K*="Q" THEN BOSUB 575:ß0T0 160 
1050 OB=EB:IF K*="+" THEN EB=EB+B:IF EB=25 
6 THEN EB=0 

1060 IF K*="—" THEN EB=EB-8:IF EB<0 THEN E 
B=24B 

1065 IF K*=CHR*(13) THEN 1080 

1070 IF OBOEB THEN 1030 

1071 BOTO 1040 

1080 PB=1590:0P=1589 

1081 X=0:Y=16:BOSUB 675:PRINT"C2SPACEJ0-F 
/ 0-E, 6INBABE , .g£X.U.RH = ££RTIB{3SPAC 
E>"; 

1090 POKE OP,PEEK(OP) AND 127 
1100 POKE PB,PEEK(PB) OR 128 
1120 BET K*:IF l<*="" THEN 1120 
1125 OP=PB 

1130 IF K*="{RIBHT>" THEN PB=PB+1 
1140 IF K*="{LEFT>" THEN PB=PB-1:B0T0 1179 <235> 
1145 : <105> 

1150 IF K*>="0" AND K*<="9" THEN POKE PB,A 

SC <K*> OR 12B:PB=PB+1 <077> 

1160 IF K*>="A" AND K*<="F" THEN POKE PB,( 

ASC <l<*) -64) OR 128: PB=PB+1 <09B> 

1170 IF K*>="fl" AND K*<="£"THEN POKE PB,(A 

SC(K*)-128) DR 128:PB=PB+1 <00B> 

1179 IF ((PB—1589)/3)< >INT((PB—1589)/3) 

THEN 1185 <216> 

1180 IF K*="{LEFT>" THEN PB=PB-1:B0T0 1185 <051> 

1181 PB=PB+1 <067> 

1185 IF K*=CHR*(13) THEN POKE OP,PEEK(OP) 

AND 127:BOTO 1220 <094> 

1190 IF PB>1612 THEN PB=1590 <205> 

1200 IF PB<1590 THEN PB=1612 <023> 

1210 BOTO 1090 <167> 


<014> 

<050> 
<014> 
< 118 > 
< 196> 
<015> 


<01B> 

<07S> 

<216> 

<221 > 
<213> 
< 202 > 

< 120 > 
< 212 > 
< 200 > 
<075> 
< 102 > 


<140> 

<1B7> 

< 117> 

< 186> 
<032> 

< 133> 

<106> 

<037> 

<013> 

< 149> 

< 123> 
<035> 


<237> 
< 166> 
<005> 
< 175> 
<241 > 
<1B3> 
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1220 AD=1589sFOR CN=0 TO 7 

<073> 

35000 

REM - UMRECHNEN DEZ-HEX 

< 156> 

1230 GOSUB 30000sPOKE (49664+EB+CN),BY 

<095> 

35010 

HI*=""sIN=INT((BY AND 240)/16)sGOSUB 

<106> 

1240 NEXT CNs GOTO 1010 

< 123> 


35030 

2000 REM - MODUS ANZEIGEN - 

<073> 

35020 

IN=(BY AND 15)s GOSUB 35030sRETURN 

<215> 

2010 X=39sY=0sGOSUB 675sPRINT "£11SPACE3"; 


35030 

HI*=HI*+MID*(HE*,IN+2,1> sRETURN 

<205> 

sGOSUB 675s PRINT MD*sRETURN 

30000 REM - UMRECHNEN HEX-DEZ BILDNIBBLE 

<075> 

41000 

REM - UMRECHNEN HEX-DEZ 1 NIBBLE - 

<223> 

S 

30010 BY=0s GOSUB 30020sBY=BY+16*SBsGOSUB 3 

<010> 

41001 

IN=0sI4-MID*(IN*.2,1)sGOSUB 41010:IN 
=BBsI$=MID*(IN$,1,1)s GOSUB 41010 

<217> 

0020s BY=BY+SBs AD=AD +1sRETURN 

< 132> 

41002 

IN=IN+16#SBs RETURN 

<053> 

30020 AD=AD+1s B0=PEEK < AD)AND 191sSB=0 

30030 IF B0>47 AND B0<5B THEN SB“B0-48sRET 

<15B> 

41010 

41020 

SB=0s FOR C=2 TO 17 

IF I*=MID*<HEX*,C,1> OR I*=MID*(H2*, 

<223> 

URN 

<255> 


C,l> THEN SB=C-2sC=17 

<025> 

30031 IF B0>0 AND B0<8 THEN SB=B0+95 RETURN 

30032 IF B0>65 AND B0<71 THEN SB=(B0-65)+9 

<028> 

41030 

NEXT Cs RETURN 

<031 > 

s RETURN 

30033 RETURN 

<168> 

< 117> 

Listing 3. »Geos Disk Monitor« (Schluß) 



MAKE50HZ ERZEUGT EURO-GEOS — 
THORSTEN PETROWBKI 10/86 
(C> 64'ER 


10 REM -- 
15 REM 
20 REM 
25 s 
30 E 

35 A=A+1:IF A=1 THEN LOAD"BDM.OBJ",8,1:REM 
MASCHINENCODE LADEN 

40 PRINT"CCLRTGEOS-KERNAL DISK EINLEGEN - 
TASTE ":REM ANWEISUNG AUSGEBEN 
45 POKE 198,0B WAIT 19B,lsREM AUF TASTE WAR 
TEN 
50 : 

55 s 

60 OPEN 15,8,15,"UI"s PRINT#15,"IO"s REM DIS 
K INITIALISIEREN 

65 OPEN 2,8,2,"GEOS KERNAL"s REM GEOS-KERNA 
L OEFFNEN 


<054> 

<245> 

< 141 > 
< 001 > 
<006> 

< 102 > 

<208> 

<059> 
<026> 
<031 > 

< 220 > 

< 169> 
<046> 
<207> 
<056> 
6 


70 s 

75 GOSUB 200s REM DISK-STATUS PRUEFEN 
80 s 

85 SYS 49152s REM RECORDLISTE (9LIR) LESEN £ 

90 s < 

95 TR=PEEK (49666) s SE=PEEK (49667) s REM BLOCK 

/SEKTOR DES ZWEITEN RECORDS HOLEN <022> 

100 PRINT«15,"B-P:2 0"5REM KANAL 2 RUECKSE 

TZEN (AUF 0.BYTE) <116> 

105 s <081> 

110 POKE 53265,llsREM BILDSCHIRM AUS <245> 

115 E <091> 

120 FOR RE=0 TO 16eREM 17 BLOCKS UEBERSPRI 


6 > 


NGEN <124> 

125 sPRINT#15,"Uls2 0"5TR;SEsREM BLOCK NR 

RE LESEN <194> 

130 sSYS 49152s REM UND IN SPEICHER HOLEN <079> 
135 TA“TRs SA=SEs REM SPUR/SEKTOR MERKEN <149> 

140 TR=PEEK < 49664 > s SE=PEEK < 496651 e REM UND 

SPUR/SEKTOR NAECHSTER BLOCK HOLEN <156> 

145 NEXT REsREM ENDE DER SCHLEIFE <1B4> 

150 E <126> 

155 POKE 49774,12BSREM WERT FUER CIA REGIS 

TER NETZFREQUENZ AUF 50HZ SETZEN <107> 

160 E <136> 

165 SYS 49193s PRINT«15, "U2s 2 0" 5 TA;SA:REM 

BLOCK RUECKSCHREIBEN <201> 

170 s <146> 

175 POKE 53265,27sREM BILDSCHIRM WIEDER AN <07B> 
180 e <156> 

185 CLOSE 15e CLOSE 2sREM KANAELE SCHLIESSE 

N <233> 

190 PR I NT" GEOS-KERNAL AUF 50HZ TAKT UMGESC 

HALTET"eENDEREM MELDUNG AUSGEBEN <066> 

Wb . <171> 

200 REM-DISK-ERROR- <008> 

205 INPUT#15,EC,E*,T,SsPRINT"DISK:";EC;E*; 

T;S s REM FEHLERKANAL LESEN <22B> 

210 RETURNsREM ZURUECK <22B> 

Listing 4. Mit »50 Hz Geos« wird die Uhr In Geos VI.2 
ganggenau. 


10 A=A+lsIF A=1 THEN LOAD"GDM.OBJ",8,1 <092> 

15 B=B+1:IF B=1 THEN LOAD"GDM.CODES",8,1 <252> 

16 REM NEU <190> 

20 BM=49664sF0R T=0 TO 7sPOKE 4943B+T,2TTs 

NEXTsPOKE 53269,0sPOKE 53280,0sPDKE 646 
,1 <007> 

25 POKE 5328 1,0bBUFF=BM-i-2e POKE 53272,23 <176> 

30 POKE 657, 12Bs PRINT" £CLR JfiEOS £ILE .LINKE 
R£2SPACE >VON IHORSTEN ££TROWSKITTTTTTTT 

35 PRINT " {DOWN,SPACEJSJ LINKENDES AILE";: 

GOSUB 175:FF=0sSF*=IN* <250> 

36 CLOSE 15s CLOSE 2sOPEN 15,8,15,“IO"sOPEN 

2,8,2,"«" <254> 

40 IF IN*="*" THEN SF*=CHR*<0> <00B> 

45 GDSUB 210EIF FF=0 THEN 35 <170> 

50 PRINT" £2DQWN■ RVSON > f.I.I.-E. - E-IXT,RJLG. s IRVOFFI 

"sIF ITO0 THEN 75 <006> 

55 IT=lsIS=0 <249> 

60 PRINTH15,"B-A 0"?ITjISsINPUTH15,REP,DUM 

MY*,IT,IS <084> 

61 IF REP=0 THEN IT=18IS=0sGOTO 75 <242> 

62 IF IT=IB THEN IT=19:IS=0:GOTO 60 <247> 

65 IF REP=65 AND IT=0 THEN PRINT"£DOWN>-AI 

CUTS MEHR FREI !"bEND <096> 

75 POKE RB+21,0s POKE RB+19,ITsPOKE RB+20,I 
Ss PRINT" £D0WN,4SPACE>S£ä§. Z.ILETYP : £DOW 
N>" <206> 

80 PRINT"0£2SPACE>AICHT ££A£" ,,,"1«2SPACE> 

BASIC“,,,,"2£2SPACE> ASSEMBLER",,,"4 £2SP 
ACEISYSTEM—AATEI",,, <068> 


85 PRINT"5£2SPACE> 2ESK@ÜCCESSORY",,,"6 £2SP 
ACEIAPPLIKATION",,,"8£2SPACE>£DNT-£ILE" 

,,, <095> 

90 PRINT"9<2SPACE>ARUCKERTREIBER",,,"10 £1 

NGABETREIBER" <206> 

95 AD=RB+22:PRINT“<DOWN,SPACE}JURE ÜAHL"? s 

GOSUB 1B0sGT=VAL(IN*> <115> 

100 AD=RB+23s OU*="£DOWN >SEHREIBJAHR"s GOSUB 

205s QU*="£5SPACE>-MONAT"s GOSUB 205 <197> 

105 OU*="£7SPACE}-TAG"sGOSUB 205s DU$="C4SP 

ACE>-STUNDE”BGOSUB 205 <245> 

110 OU*="£4SPACE>-MINUTE"sGOSUB 205 <1B5> 

115 PRINTW15,"B—P 2 0":SYS 49193sPRINT«15, 

"U2 E 2 0"s ATiAB B PRINT"I2DOWN,RVSON 3 XNFO 
SCHIRMCDOWN3“ <010> 

120 PRINT«15,"Uls2 0 ";ITiISeSYS 49152eP0KE 

BM, 0 s POKE BMH, 255E POKE BM+2,3 <002> 

125 POKE BM+3,21b POKE BM+4,1918POKE BM+69, 

GTsPOKE BM+70,0 <012> 

130 FOR T=0 TO 62sPOKE B32+T,PEEK(BM+5+T)s 

NEXTsPOKE BM+68,129 <074> 

135 GOSUB 285sPRINT"CCLRJÜNFANGSADRESSE";s 

AD=BM+71sGOSUB 185sGOSUB 190 <147> 

140 PRINT"{2SPACE3£NDADRESSE";B AD=BM+73s BO 

SUB 185 <117> 

145 PRINT"£2SPACE>STARTADRESSE"5 sAD=BM+75s 

GOSUB 185 <17B> 


Listing 5. Den »Geos File Linker« bitte mit dem 
Checksummer V3 eingeben 
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'£ia§£•"!:AD=BM+77:L=20:GDSUB 20 


150 PRINT 

0 <0B3> 

PRINT " 1 aUXOS 1 "!:AD=BM+97:L=19:GDSUB 20 
0 <032> 

PRINT" •£&££"•! :AD=BMH60:L=94:GOSUB 2 
00 <190> 

PRINT#13,"B-P 2 0"sSYS 49193:PRINT«15. 

"U2:2 0";IT;IS:PRINT"{2D0WN>£ERTIG!" <214> 

CLDSE 2:CLOSE 15:B0T0 445 <107> 

PRINT" :"::OPEN 3,0,0:INPUT«3,IN*:CLOS 
E 3:PRINT:RETURN <251> 

GOSUB 175:POKE AD,VAL(IN*):RETURN <179> 

GDSUB 175:MEM=VAL(IN*) <021> 

Eil = INT (MEM/256) : B0= ( (MEM/256)-INT (MEM/ 

256))*256 <045> 

PDKE AD,B0: POKE AD-M ,Bl: RETURN <007> 

GDSUB 175:WE*=LEFT*<IN*,L):GOTO 425 <067> 

205 PRINT DU*::GOSUB 200:POKE AD,VAL(IN*): 

AD=AD+1:RETURN <071> 

AT=18:AS-1:PRINT"(DOWN,SPACE JfllSK-fiEAR 
CH ...{DOWN>":FF=0 <044> 

PRINT«15,"B—P 2 0":PRINT«15,"Ul:2 0";A 
T;AS:SYS 49152:P0KE 53280,0:SB=0 <164> 

220 RB=32*SB+BUFF:INPUT«15,ER,ER*,ET,ES <166 > 

225 IF ERO0 THEN PRINT" <2DDWN>£ISK-£RROR 

"sER ;":"5 ER*;ET;ES:END <197> 

SYS 49259,(RB+3),16,NF*:PRINT NF*:LS=L 
EN(SF*):RI*=RIBHT*(SF*,1) <170> 

IF RI*< >"*" AND MID*(NF*,LS+1,1)<>"." 

THEN 265 <0B2> 

IF RI*="*" AND SF*=LEFT* <NF*,LS-1)+"*" 

THEN 250 <240> 

IF SF*< >LEFT*(NF*,LS) THEN 265 <179> 

CN=LEN(NF*) <127> 

IF I1ID*(NF*,CN,1>=". " AND CN>0 THEN CN 
=CN-1:GOTO 255 <22B> 

SF*=LEFT*(NF*,CN>:IT=PEEK(RB+19):IS=PE 
EK(RB+20):FF=1:RETURN <13B> 

SB=SB+1:IF SB <8 THEN 220 <034> 

270 AT=PEEK(BUFF—2):AS=PEEK(BUFF—1):IF AT= 

0 THEN RETURN <065> 

GOTO 215 <133> 

B1=INT(AD/256):B0=((AD/256)-INT(AD/256 
))*256:RETURN <022> 

PR INT" <CLR, SPACE, RVSON } J.CDN £D IT CRVDFF 
}":PDKE 49425,32:POKE 49430,42 <061> 

S Y*=" .*:*A*.**.«-*-*^ " <102> 

PRINT" «HOME, DOWN, 2SPACE > ff" S Y* " S" < 004> 

AD=S32:FOR Y=0 TD 20 <222> 

PRINT"C2SPACE> = ";:FDR X=0 TO 2:SYS 494 


155 

160 

165 

170 

175 

1B0 

1B5 

190 

195 

200 


210 


215 


230 

235 

240 

245 

250 

255 

260 

265 


275 

280 

285 

290 

295 

300 

305 


07,PEEK(AD) :AD=AD-i 1:NEXT X:PRINT"—“:NE 
XT Y 

310 PRINT"<2SPACE}y‘SY*"y" 

315 PRINT"CHOME,6D0WN>"TAB(2B>;"Ttttt" 

320 POKE 53269,1:POKE 2040,13:POKE 53248,2 
55:POKE 53249,76:POKE 53288,1 
325 POKE 53264,0:X=0:Y=0:OX=2022:OP=0:DD=1 
107 

330 POKE OX,P£EK(OX>AND 127:POKE DD,PEEK(D 
D)OR 128 

335 GET KEY*:IF KEY*="" THEN 335 
340 OX=DD:IF KEY*-"{RIGHT>" AND X<23 THEN 
X-X+l 

345 IF KEY*-"{LEFTJ" AND X>0 THEN X-X-l 
350 IF KEY*—"{UP}" AND Y>0 THEN Y-Y-l 
355 IF KEY*-"(DOWN5" AND Y<20 THEN Y-Y+l 
360 IF KEY*< >"Q" THEN 370 

365 FOR T—0 TO 62: POKE 49669+T ,PEEI< (832+T > 

:NEXT:POKE 53269,0:RETURN 
370 IF KEY*< >"R" THEN 390 

375 POKE 832,255:POKE 833,255:POKE 834,255 
:POKE 893,255:POKE 894,255 
380 PDKE 892,255:FOR T-835 TO 889 STEP 3 
385 POKE T,PEEK (T) QR 12G:P0KE T+2,PEEK (Th-2 
)OR 1:NEXT:GOTO 295 

390 IF KEY*—"{CLR}" THEN FOR T-B32 TO B95: 

POKE T,0:NEXT:GOTO 295 
395 IF KEY*<>" " THEN 415 
400 IF (PEEK(BY)AND BI)-BI THEN 410 
405 POKE BY,PEEK(BY)OR BI:POKE DD,170:GOTO 
415 

410 POKE BY,PEEK(BY)AND(255-BI):POKE DD,16 
0 

415 DD-1107+Y*40+X:BY=832+(Y*3)+INT(X/B):B 
I=2t(7-(INT<((X/8)—INT(X/8))*B)>) 

420 GOTO 330 

425 WE*=WE*+CHR*(0>:FOR W=1 TO LEN(WE*):WE 
—ASC < MID*(WE*,W,1)) 

430 IF WE>64 AND WE<91 THEN WE-WE+32:GOTO 
440 

435 IF WE>192 AND WE<219 THEN WE—WE-12B 
440 PnKF AD-1+W,WE:NEXT W:RETURN 

E 

450 GET KEY*:IF KEY*-"" THEN 450 
455 IF KEY*—"N" OR KEY*—"M" THEN RUN 20 
460 IF KEY*="E" OR KEY*="&" THEN END 
465 GOTO 450 

Listing 5. »Geos File Linker«. (Schluß) 


'{DOWN,SPACE >(ü)OCHNAL ODER (£)ND 


< 1BB> 
<1B8> 
<191> 

<042> 

< 131 > 

< 172> 
<137> 

< 150> 
<078> 
<080> 

< 131 > 
<099> 

<195> 

<242> 

<16B> 

<034> 

<216> 

<175> 

<230> 

< 185> 

<226> 

<250> 

<197> 

<158> 

<238> 

<081 > 

<20B> 

<037> 

<205> 

< 222 > 

< 114> 
<092> 
<243> 


lOCOO-;****************#*********,,*.,. xxx 

12009--gl underlineoff« 15 


10001 -; 

12010 -.gl reverseon 

= 18 


10002 -; geos library : konstanten 

12011 -.gl reverseoff 

= 19 


10003-j sprungadressen 

12012 -.gl gotox 

= 20 


10004-; makros 

12013-•gl gotoy 

= 21 


10005-j 

120l4-.gl gotoxy 

= 22 


10006-; fuer geos Programmierer 

12015-.gl boldon 

- 24 


10007-; 

12016-.gl italieon 

= 25 


10008-; autor: thorsten petrowski 

12017-.gl outline 

= 26 


10009-; 

12018-.gl plaintext 

= 27 


10010-; (c) 1987 64'er > vl.l < 

12019-.gl commodore 

= 128 


10011 -; 

12020 -; 



10012 -;*x*************xxx#)(********)(*xx 

12021-.gl rO 

= $02 


10013-i 

12022 -.gl rl 

= $04 


10014-; 

12024-.gl r 2 

= $06 


10015-; 

12025-.gl r3 

= $08 


10016-; #* uebergeben der geos- 

12026-.gl r4 

= $ 0 a 


10017-; konstanten & routinen *# 

12027-.gl r5 

= $ 0 c 


10018-; 

12028-.gl r 6 

=■ $ 0 e 


10019-•ma lnit-lib 

12029-.gl r7 

= $10 


12000 -.gl lputstring = $clae 

12030-.gl r 8 

= $12 


12001 -.gl null = 0 

12031-.gl r9 

= $14 


12002 -.gl backspe = 8 

12032-.gl rlO 

= $16 


12003-.gl fwdspc = 9 

12033--gl rll 

= $18 

Listing 6. »GEOS- 

12004-.gl lf = io 

12034-.gl rl2 

= $la 

LIB«. Die Geos- 

12006-.gl upl = 12 

12035-.gl rl3 

= $le 

Bibliothek. Bitte mit 

12007-.gl er = 13 

12036-.gl rl4 

= $le 

dem Hypra-Ass einge- 

12008-.gl underlineon = 14 

12037-.gl rl5 

= $20 

ben. 
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12038-.gl panio 

= 

$c2c2 

15070- 

lda $fb 

12039-•gl initio 

3 

$c25c 

15075- 

sta cnvt3+l 

12040-.gl doneio 

- 

$c25f 

15080- 

sta next+1 

1204l-.gl desktop 

= 

$c22c 

15085- 

lda $fo 

12042-; 



15090- 

sta cnvt3+2 

12043-.gl dialbox 

B 

$c256 

15095- 

sta next+2 

12044-.gl ok 

3 

$01 

15100-cnvt3 

lda $ffff,x 

12045-.gl cancel 

• 

$02 

15105- 

beq endcnv 

12046-.gl yes 

3 

$03 

15110-convertod 

cmp # "a" 

12047-.gl no 

S 

$04 

15115- 

bcc next 

12048-.gl open 

3 

$05 

15120- 

cmp #91 

12049-.gl dlsk 

3 

$06 

15125- 

bcs next 

12050-.gl dbtxtstr 

3 

11 

15130- 

eor #$20 

12051--Ri dbvarstr 

3 

12 

15135- 

Jmp next 

12052-.gl dbgetstring = 

13 

15140-scndonvt 

cmp # "a* 

12053--gl dbsysopv 

3 

14 

15145- 

bcc next 

12054-.gl dbgetfiles 

3 

15 ; ■*#* 

15150- 

cmp #219 

12055-.gl dbopv 

3 

17 

15155- 

bcs next 

12056-.gl dbusrioon 

S 

18 ; **# 

15160- 

eor #$20 

12057-.gl dbusrrout 

= 

19 

15165-next 

sta $ffff,x 

12058-i 



15170- 

lnx 

12059-.gl hllne 

3 

$cll8 

15175- 

jmp cnvt3 

12060-.gl lnvllne 

= 

$cllb 

15180-endcnv 

rts 

12061-.gl recvllne 

3 

$clle 

15185-; 


12062-.gl imprline 

3 

$edd2 ; nur fuer geos 1.2 

15190-; 




bei geos 1.3: $o737 

15195-; # schirm loeschen # 

12063-.gl vline 

3 

$cl21 

15200-.ma cls 


12064-.gl box 

3 

$cl24 

15201- 

jsr $cda3; bei geos 1.2 

12065-.gl frame 

3 

$cl27 

15202-; bei geos 1.3: jsr $c48d 

12066-.gl invbox 

3 

$cl2a 

15205- 

.rt 

12067-.gl recvbox 

3 

$cl2d 

15206-; 


12068-.gl llne 

= 

$cl30 

15207-; * String ausgeben * 

12069-.gl point 

= 

$0133 

15210-.ma putstring (x,y) 

12070-.gl String 

= 

$cl36 

15220- 

jsr $clae 

12071-.gl setpix 

— 

1 

15225- 

.wo X 

12072-.gl lnepix 

= 

2 

15230- 

• by y 

12073--gl boxpix 

3 

3 

15235- 

.rt 

12074-.gl patpix 
12075-.gl putpix 

3 

l s*e=R oni 

~±?245-.ma loadw (value,register) ; wort 'value' 

12076-.gl framepix 

= 

7 


in 'register' laden 

12077-.gl rightpix 

3 

8 

15250- 

lda # <(value) 

12078-.gl downpix 

3 

9 

15255- 

sta register 

12079--gl drpix 

3 

10 

15260- 

lda #> (value) 

12080-.gl pattern 

= 

$cl39 

15265- 

sta reglster+1 

12081-.gl scan 

= 

$cllb 

15270- 

.rt 

12082-.gl rpoint 

3 

$cl3f 

15271- ; . 


12083-.gl ibox 

3 

$cl9f 

15275-.ma transw (srcreg,destreg) ; wort aus 1 

12084-.gl ifrarae 

> 

$cla2 

srcreg 1 

in 'destreg' uebertragen 

12085-.gl irevbox 

« 

$cla5 

15280- 

lda srcreg 

12086-.gl istring 

3 

$cla8 

15285- 

sta destreg 

12087- ; 



15290- 

lda srcreg+1 

12088~.gl main 

= 

$clc3 

15295- 

sta destreg+1 

12089-.gl menul 

= 

$clbd 

15296- 

.rt 

12090-.gl domenu 

3 

$cl51 

15297- ; 


12091-.gl vertikal 

3 

$80 

15380-.ma pushcpu ; cpu Inhalte sichern 

12092-.gl horizontal 

3 

$00 

15390- 

sta $fd 

12093--gl visible 

3 

$40 

15400- • 

stx $fe 

12094-.gl closing 

3 

$00 

15410- 

sty $ff 

12095-.gl sprung 

= 

$00 

15415- 

php 

12096-.gl sprunterm 

S 

$40 

15420- 

.rt 

12097-.gl submenue 

8 

$80 

15425- ; 


12098-.gl continue 

3 

$849b 

15430-.ma popcpu j cpu Inhalte zurueckladen 

12999-.rt 



15435- 

lda $fd 

15000-j 



15440- 

ldx $fe 

15005- ; * makros & 

routinen * 

15450- 

ldy $ff 

15010-; bibliotheksfunktion mit parameter versorgt 

15451- 

plp 

starten 



15455- 

.rt 

15015-.ma exeolib (lable,call) 

15456-; 


15020- lda 

# <(lable) 

15460-.raa resetcpu ; epu-reset 

15025- sta $fb 


15480- 

lda #$00 

, 15030- lda 

#> (lable) 

15490- 

pha 

15035- sta $fc 


15495- 

plp 

15040- jsr 

call 

15500- 

tax 

15045- .rt 



15505- 

tay 

15050—; 



15510- 

.rt 

15055-; 



15511- ; 


15060-;* konvertierung text->geos * 

15520-; 


15065-convert ldx 

#$00 

15525--ma dialbox (adx’esse; 
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15530- 

lda # <(adresse) 



15535- 

sta $02 



15540- 

lda #> (adresse) 



15545- 

15550-.rt 

sta $03 



15555-; 
15560-.ma 

dialintro (muster,ya,ye,xs 

xe) 


15565- 

.by muster 



15570- 

• by ys 



15575- 

.by yo 



15580- 

.wo xa 



15585- 
15590-.rt 
15595-; 
15600-; 

.wo xe 



15605-.ma 

menu (adr,ni') 



15610- 

... loadw(adr,$02) 



15615- 

lda #nr 



15620- 

jsr $ol51 



15625-.rt 
15630-; 
15635-.ma 

callmain (adr) 



15640- 

15650- 

... loadw(adr,$849b) 
jmp $clo3 

Listing b. 
Geos-Funktions- 

15655-.rt 


bibliothek 

15999-.en 



(Schluß) 


10 

— 

■ba 20000 

20 

- 

... init-lib 

25 

- 

... cls 

30 


... execlib(demotext,convert) 

40 


... putstring(10,10) 

41 

-demotext 

•tx 'Hier,bei 10/10 faengt’s an.." 

42 

" 

•by gotoxy 

43 

“ 

•wo 100 

44 


■by 100 

45 


•by outline 

46 

- 

.by boldon 

47 


.tx "Der 64’er GEOS-Kurs" 

48 


. by er 

49 

- 

.by plaintext 

50 

- 

. by er 

51 


.. by italicon 

52 


• tx •" Italic " 

53 


.by underlineon 

54 


-tx "Unterstrichen!" 

55 


. by er 

56 

“ 

-by plaintext 

57 

“ 

.by gotox 

58 

“ 

•wo 100 

59 


.by commodore 

60 

“ 

.by reverseon 

61 


-tx " Test Test !!" 

62 


.by null 

70 

- 

lda (130 

75 

“ 

ldx #00 

80 

- 

ldy #00 

85 

-schleife 

dey 

90 

- 

bne schleife 

95 

“ 

dex 

100 


bne schleife 

105 

- 

sec 

110 

- 

sbc #01 

112 


bne schleife 

115 

~ 

jmp $c22c ; zum desktop 

Listing 7. Hypra-Ass-Quellcodelisting. Demo zur 
Textausgabe. 


Name 

hypra-patch cOOO c015 

Listing 8. »Hypra- 
Patch« verändert 

cOOO 

a9 ea 8d ea 13 8d eb 13 

52 

den Hypra-Ass so, 

c008 

8d f2 13 8d f3 13 8d fa 

89 

daß er nicht mehr 

C010 

13 8d fb 13 60 f3 4c cc 

bc 

In den Speicher 
assembliert. 


g*er onun^» . 


10 OPEN 3,B,3,"MPS-B02,U,W" <174> 

20 READ N:IF N>-1 THEN PRINT#3,CHR*(N>;:BO 

TO 20 <150> 

30 CLOSE 3 <057> 

40 OPEN 1,0,15:0PEN 2,8,2,"#" <077> 

50 PRINTttl,"M-R"CHR*(9)CHRt(0):GET#1,A*sDS 

=ASC(At)sT=l:S=0 <i^s> 

60 PRINTttl,"B-A 0";T;S:INPUTttl,A,B$,TT,SSs 

IF A=0 THEN 90 <123> 

70 T=TTsS=SSsIF T=18 THEN T=19sS=0 <030> 

80 GOTO 60 <042> 

90 PRINTttl,"B-P 2 0“:FOR 1=0 TO 255:READ N 

:PRINT#2,CHR*<N>;:NEXT <245> 

100 PRINTttl,"U2 2 0 "5 T;S:PRINTttl,"Ul 2 0 1 

B";DS <221> 

110 Nt“""!PRINT#1,"B-P 2";P+5:FOR 1=1 TO 7 

:BET#2,A*sN*=N*+A*sNEXT <076> 

120 IF Nt< > "MPS—802"THEN P=P+32:G0T0 110 <146> 

130 PRINTttl,"B-P 2";P+2:PRINT#2,CHR*(195 )f <202> 
140 PRINTttl,"B-P 2"5P+21sPRINT#2,CHR*<T>;C 

HR*(S); <241> 

150 FOR 1=1 TO 8 :READ N:PRINT#2,OHR*(N) 5 :N 

EXT <192> 

160 PRINTttl,"U2 2 0 18";DSrCLOSE 2:CL0SE 1 <157> 
170 DATA 96,234,234,76,25,121,76,70,121,76 

,17B,121,76,212,121,0,0,0,0,0,0,0 <044> 

180 DATA 0,0,0,169,4,32,176,194,32,92,194, 

169,126,160,6,32,46,122,162,126,32 <1965 

190 DATA 201,255,32,183,255,141,23,121,20B 

,5,169,21,32,202,241,169,126,32,195 <226> 

200 DATA 255,32,95,194,174,23,121,96,169,4 

,32,176,194,32,92,194,169,124,160 <04B> 

210 DATA 0,32,46,122,169,125,160,5,32,46,1 

22,162,124,32,201,255,169,141,32,202 <063> 

220 DATA 241,165,3,133,9,165,2,133,8,169,0 

,141,24,121,32,219,121,144,39,32,242 <013> 

230 DATA 121,32,5,122,174,24,121,240,8,169 


,32,32,202,241,202,208,250,169,254 <166> 

240 DATA 32,202,241,169,141,32,202,241,32, 

29.122.174.24.121.224.80.208.212.169 <155> 
250 DATA 13,32,202,241,169,125,32,195,255, 

169.124.32.195.255.32.95.194.96.169 <039> 


260 DATA 4,32,176,194,32,92,194,169,124,16 

0,0,32,46,122,162,124,32,201,255,169 <113> 

270 DATA 12,32,202,241,169,124,32,195,255, 

32,95,194,96,169,0,162,80,160,90,96 <010> 

280 DATA 160,7,177,8,20B,15,136,16,249,32, 

29,122,174,24,121,224,80,208,237,24 <019> 

290 DATA 96,56,96,120,160,7,177,8,162,7,10 

6,126,15,121,202,16,249,136,16,242 <123> 

300 DATA 88,96,162,125,32,201,255,162,0,18 

9,15,121,32,202,241,232,224,8,208 <040> 

310 DATA 245,162,124,32,201,255,96,24,165, 

0,105,0,133,8,165,9,105,0,133,9,238 <163> 

320 DATA 24,121,96,162,4,32,1B6,255,169,0, 

32,189,255,76,192,255,-1 <240> 

330 DATA 0,255,3,21,191,255,255,255,128,0, 

1,128,63,241,128,64,97,128,07,97,12B <091> 

340 DATA 64,97,128,66,97,128,128,193,131,8 

,253,133,0,205,137,255,221,144,0,61 <124> 

350 DATA 191,255,253,160,0,121,167,243,113 

,160,0,97,191,255,193,128,0,1,12B <050> 

360 DATA 0,1,128,0,1,255,255,255,131,9,0,0 

,121,59,122,0,0,00,114,105,110,116 <109> 

370 DATA 100,114,105,118,101,114,32,86,49, 

46,50,0,0,0,0,00,101,116,101,114,32 <179> 

380 DATA 66,114,101,109,101,114,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <119> 

390 DATA 0,0,0,0,0,0,32,176,194,32,161,194 

,224,13,240,52,169,2,141,141,132,138 <23B> 

400 DATA 208,41,169,130,133,3,169,70,111,1 

14,32,67,111,109,109,111,100,111,114 <127> 

410 DATA 101,32,77,80,83,45,56,48,50,46,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <138> 

420 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,65,2,0,0,181 <134> 

430 DATA 132,1,0,B5,65,3,0,0,0,169,132,2,2 

27,33,141,132,1,1,0,0,169,4,208 <007> 

440 DATA 0,9,86,12,10,14,0,3 <056> 


Listfng 9. »MPS 802 CREATER« erzeugt auf einer 
Geos-Diskette den Druckertreiber für den MPS 802. 
Bitte mit dem Checksummer (Seite 159) eingeben. 
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Name 

transseos 


0801 0f98 

Oa51 

4c 

9c cO 

aO 

05 

84 

ff 

a4 

ed 

Ocbl 

ee 3a 

cO 

dO 

02 

68 

60 

ad 

47 










0a59 

ff 

a2 00 

86 

fe 

b9 

00 

cf 

d8 

0cb9 

3a cO 

fO 

04 

68 

4c 

a2 

c6 

11 

0801 

Ob 

08 

cl 

07 

9e 32 

30 

36 

Oa 

0a6l 

c9 

aO fO 

25 

aa 

38 

e9 

60 

30 

Occl 

ad a8 

c4 

c9 

40 

dO 

04 

68 

98 

0809 

31 

00 

00 

00 

a9 2c 

aO 

08 

c9 

0a69 

90 

05 8a 

e9 

20 

bO 

01 

8a 

fc 

0cc9 

4c bf 

c4 

ad 

2a 

cO 

dO 

Oe 

e4 

0811 

85 

5f 

84 

60 

a9 98 

aO 

Of 

73 

0a71 

a6 

fe dd 

03 

cO 

dO 

05 

c8 

a6 

Ocdl 

68 8d 

00 

20 

ee 

a7 

c4 

dO 

e5 

0819 

85 

5a 

84 

5b 

a9 6c 

aO 

c7 

68 

0a79 

e8 

4c 30 

c2 

a5 

ff 

18 

69 

79 

0cd9 

11 ee 

a8 

c4 

dO 

Oc 

68 

8d 

4e 

0821 

85 

58 

84 

59 

20 bf 

a3 

4c 

46 

0a81 

20 

85 ff 

90 

d2 

a9 

00 

fO 

d2 

Ocel 

00 60 

ee 

b5 

c4 

dO 

03 

ee 

40 

0829 

00 

cO 

00 

4c 

93 cO 

00 

00 

52 

0a89 

21 

bd 03 

cO 

c9 

Od 

dO 

ec 

84 

0ce9 

b6 c4 

ee 

2b 

cO 

dO 

03 

ee 

9f 

0831 

00 

00 

00 

00 

00 00 

00 

00 

32 

0a91 

a5 

ff e9 

03 

a8 

b9 

00 

cf 

09 

Ocfl 

2c cO 

ad 

2c 

cO 

fO 

la 

ad 

c6 

0839 

00 

00 

00 

00 

00 00 

00 

00 

3a 

0a99 

fO 

10 c8 

b9 

00 

cf 

8d 

26 

fc 

0cf9 

2b cO 

29 

40 

fO 

13 

ad 

2a 

89 

0841 

00 

oo 

00 

00 

00 00 

00 

00 

42 

Oaal 

cO 

c8 b9 

00 

cf 

8d 

27 

cO 

bb 

OdOl 

cO 49 

01 

8d 

2a 

cO 

a9 

00 

a7 

0849 

00 

00 

00 

00 

00 00 

00 

00 

4a 

0aa9 

a9 

01 8d 

28 

cO 

60 

20 

CC 

64 

0d09 

8d 2b 

cO 

8d 

2c 

cO 

ee 

39 

05 

0851 

00 

00 

00 

00 

00 00 

00 

00 

52 

Oabl 

ff 

a9 Od 

20 

d2 

ff 

a9 

01 

a2 

Odll 

cO 60 

78 

a9 

00 

85 

fa 

85 

78 

0859 

00 

00 

00 

00 

00 23 

32 

cO 

bd 

0ab9 

20 

c3 ff 

a9 

02 

20 

c3 

ff 

20 

Odl9 

fc a9 

04 

85 

fb 

a9 

lc 

85 

24 

0861 

14 

cO 

76 

c6 

00 00 

00 

00 

4c 

Oacl 

aO 

00 b9 

c2 

al 

48 

29 

7f 

28 

Od21 

fd a9 

08 

85 

ff 

a9 

00 

85 

fe 

0869 

00 

00 

2a 

2a 

2a 20 

32 

2e 

02 

0ac9 

20 

47 ab 

c8 

68 

10 

f3 

60 

28 

0d29 

fe 20 

e3 

c6 

58 

a9 

01 

20 

20 

0871 

31 

56 

20 

53 

4f 45 

47 

53 

23 

Oadl 

20 

16 c3 

a9 

Od 

85 

fd 

a9 

6b 

Od31 

c3 ff 

a9 

02 

20 

c3 

ff 

a5 

Oa 

0879 

4e 

4l 

52 

54 

20 2a 

2a 

2a 

d7 

0ad9 

00 

85 ff 

8d 

3c 

cO 

ad 

29 

20 

Od39 

c6 fO 

fc 

20 

b4 

e5 

aa 

c9 

73 

0881 

00 

4d 

52 

55 

54 53 

20 

52 

6c 

Oael 

cO 

dO 41 

8d 

39 

cO 

8d 

3a 

50 

Od4l 

85 dO 

13 

ad 

2e 

cO 

c9 

lc 

fl 

0889 

45 

54 

4e 

45 

55 47 

20 

59 

f7 

0ae9 

cO 

a5 fd 

fO 

51 

20 

fb 

c6 

ad 

Od49 

dO 06 

20 

da 

c5 

4c 

Oc 

c5 

fa 

0891 

42 

00 

3f 

45 

4d 41 

4e 

45 

ee 

Oafl 

a4 

ff b9 

00 

ce 

8d 

26 

cO 

77 

Od51 

20 cO 

c5 

4c 

Oc 

c5 

c9 

86 

ef 

0899 

4c 

49 

46 

00 

3f 52 

4f 

54 

88 

0af9 

c8 

b9 00 

ce 

8d 

27 

cO 

c8 

le 

Od59 

dO 06 

20 

f2 

c5 

4c 

9f 

cO 

51 

08al 

4b 

45 

53 

44 

4c 49 

42 

00 

04 

ObOl 

84 

ff ad 

26 

cO 

dO 

06 

20 

aO 

0d61 

c9 87 

dO 

06 

20 

f2 

c5 

4c 

2c 

08a9 

3f 

45 

4d 

41 

4e 44 

4c 

49 

dl 

0b09 

63 

c3 4c 

e8 

c2 

20 

81 

cl 

35 

0d69 

93 cO 

c9 

88 

dO 

c9 

4c 

Of 

8a 

08b 1 

42 

00 

55 

31 

20 32 

20 

30 

e3 

Obll 

20 

a7 cl 

c6 

fd 

ee 

3c 

cO 

18 

0d71 

c6 00 

aO 

00 

84 

fd 

86 

fe 

bO 

08b9 
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460 

- j 



470 

- 

• by 0 

; endmarkierung befehlostrin« 

480 

-; 



490 

- ; 



500 

-Parameter 

-by *82 

; window 

510 

- 

-by *01 

; ok 

520 

- 

.by 10 

i Position x 

530 

- 

.by 20 

; Position y 

540 

- 

.by 0 

; ende der Parameter 

550 

-.en 



ready. 




Listing 13. Ein Beispiel für die »STRING«-Funktion 


100 

-.ba 2000 



105 

-.ob "i*.'menuedcno-exc.P,w" 


110 

- 

... lnit-lib 

Oeos-Bibliothck ooffnen 

116 

- 

... als 

Schirm loeschen 

120 

- 

... execllb(mtoxtl.convert)i Henuetexte 1, 

125 

- 

... execllb(mtext2,convert); 2 und 

130 

- 

.. exccllb(mtoxt3,convert); 3 konvertieren 

135 

- 

... menuttabellel,0): Menuo aufbauon 

US . . 

... callmaln(schleife); Hauptschleife anspringen 

165 

- j 



170 

-.nun Tabelle fuer Menuololste «00 

176 




180 

-tabellel 

■ by 5 

Angaben aur Groesse des Monuos 

1 66 

- 

.by 17 


190 

- 

wo 5 


196 

- 

.wo 130 


200 

- 

.by 2!olvl9ible!o!horiaontal: 2 Eintraage, horlüontol 

205 

n» Monuopunkt 'Honuo-Demo” fl» 

210 

-npunktl 

wo mtextl 


215 


.by submonuo ; 

als Untermenue 

220 

- 

wo tabelle2 

Zeiger auf UntormonuetabelIle 

225 

0# Henuepunkt "Menuolelste' «« 

230 

-mpunkt2 

.wo mtext2 


235 

- 

.by sprunterm , 

Untermenue mit Routine 

240 


wo execl ; 

Zeiger auf Dispatch 

245 




250 




266 

(Texte bu Henuel) 


260 

-otoxtl 

.tx Henuo-Domo" 

Text bu Henuo 1,Punkt 1 

266 

- 

by null 

Abschlusskennung (wie Immer!) 

270 

-ntext2 

1.x "Henuololnt« 

. Text eu Honue 1,Punkt 2 

276 

- 

.by null 


280 

-1 



286 




290 

- • 



296 

;H» Untermenue bu "Menua-Dcmo ' im 

300 




305 

-1 



310 

-tabello2 

•by 18 ; 

Untormenuo su Henuel,Punkt 1 

316 

- 

.by 30 


320 

- 

wo 6 


325 

- 

.wo 30 


330 

- 

.by 1lolvlaibleioivertlkal ; 1 Monuopunkt.aohllenaond.vert1kal 

336 

, »■ Henuepunkt. "ÜIC01T an 


340 

-npunktS 

.wo int.©xt3 ; 

Zeiger auf Text "QE08" 

34 5 

- 

•by nimm« 1 

bol ankllchon nur Routine REXTURN springen 

350 

- 

wo return 


366 

-; (text ru monue 2) 


300 

-mt.ext.3 

• tx "CJEOO" 


365 

- 

.by null 


370 

-5 



375 




380 

- j 



385 

II» Rookt-lonon bu Henuo 

«M 

390 

- i 



396 




400 

-oxocl 

Jsr inltlo ; 

VIC ln den Adroasboraich nlnblondon 

405 

- 

ldx narr 

X- Indizierte Hchlelfe r.um Farbweohnel 

410 

-loop 

lnc fd020 


416 

- 

idy »nrr 


420 

-Ip2 

doy 


426 


bne lp2 


430 

• 

dox 


436 

- 

bne loop 


440 

- 

Jsr donoio ; 

Original QEOS-Konflguration wlodor oinachalten 

445 

- 

... loadw(tabolle3,rO), Adronao doo üntermenuea hlntorlaoson 

460 

- 

rta ; 

Bur Hauptsohleife 

465 




460 

- tobollo3 

.by 10 ; 

Untermenue bu Monuopunkt 1/2 

405 

- 

by 30 


470 

- 

.wo 80 


476 

- 

wo 110 


400 

- 

.by 1loioloBlngiolvertikol 

485 




490 

- 

.wo mtext3 ; 

Zeiger auf "ÜEOS " 

495 

- 

.by Sprung 


600 

— 

.wo return 


505 




510 

-return 

jmp desktop ; 

Zum DeskTop 

Listing 14. Ein kleines Demo-Programm zur Menütechnik 
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GEOS-SOFTWARETEST 


GEOCALC 64/128 


Gut gerechnet ist halb gewonnen 


89 



Tabellenkalkulation 
ist eine Standardan¬ 
wendung für PCs. Mit 
Geocalc werden 
auch der C64 und 
der C128 zu komforta¬ 
blen Rechengenies, 
die beispielsweise Ihre 
Finanzen verwalten. 


nen wesentlich besseren Über¬ 
blick verschaffen. Dieser Artikel wird Ihnen 

zweierlei vermitteln: Zum einen erfahren Sie, wie 

man überhaupt mit Tabellenkalkulationen umgeht; zum an¬ 
deren zeigen wir Ihnen, worin die besonderen Stärken von 
Geocalc liegen und ob es an die bisherigen Sensationen 
der Geos-Serie anknüpft. 

Nach der Installation und dem Starten von Geocalc hat 
man die Wahl, eine bestehende Datei zu laden oder ein 
neues »Spreadsheet« (deutsch: »Arbeitsblatt«) zu entwer¬ 
fen. Ein Spreadsheet (Bild 1) ist eine zweidimensionale Ta¬ 
belle, die bei der Kalkulation zu Ihrem Arbeitsbereich wird 
(ähnlich wie bei Geopaint das Grafikfenster). Ein solches 
Arbeltsblatt teilt sich in Reihen und Spalten auf, die durch 
Linien gekennzeichnet werden. Geocalc hat stolze 28672 
»Zellen«, In denen entweder Kommentare oder Zahlenwer¬ 
te stehen dürfen. Jeder Zelle wird auch eine eigene »For¬ 
mel« Zügewiesen, aus der ihr Inhalt hervorgeht (dazu spä¬ 
ter mehr). Bis zu 200 Zeichen haben in einer Zelle Platz; die 
Zellenbreite ist zeilenweise variabel (einfach mit dem Joy¬ 
stick oder der Maus verbreitern), zu lange Texte werden in 
die weiter rechts stehenden Zellen ausgelagert. 

Zur eindeutigen Zuordnung besteht das Spreadsheet 
aus Zellen, geordnet in 112 Zeilen (numeriert durch Zahlen) 


Sie sehen bereits, die Tabellenkalkulation ist eine zahlen- 
und faktenorientierte Anwendung. Ohne Mathematik geht 
es auch hier nicht, aber der Computer nimmt einem alle lä¬ 
stige Routinearbeit ab. Dadurch kann man seine Energie 
für wichtigere Dinge aufwenden. Durch Computer-Einsatz 
lassen sich wesentlich mehr Beispiele in der gleichen Zeit 
durchrechnen als von Hand. So können Sie sich schnell ei- 


N eben Textverarbeitung 
und Dateiverwaltung 
zählt die Tabellenkal¬ 
kulation zu den wichtigsten 
Anwendungen auf dem C 
64. Was macht Kalkulations¬ 
programme so attraktiv? 

Folgendes Prinzip steckt 
dahinter: Will man Kalkula¬ 
tionen »von Hand« mit ei¬ 
nem Taschenrechner be¬ 
rechnen, so ist dies eine 
langwierige Angelegenheit, 
und schon kleinere Tippfeh¬ 
ler sind im nachhinein nicht 
mehr genau zu lokalisieren. 

Auch Änderungen lassen 
Kopf und Taschenrechner 
rauchen. 

Ferner gibt es zahlreiche 
Fälle, in denen bestimmte 
Berechnungen in Abhän¬ 
gigkeit von gegebenen Wer¬ 
ten durchzuführen sind; so sind etwa Unternehmenskalku¬ 
lationen abhängig von Investitionen, Umsatz, Steuern, Kre¬ 
diten, und vielen weiteren Komponenten. Möchte man 
auch nur einen Wert, wie den erwarteten Umsatz, ändern, 
so zieht dies zahlreiche Neuberechnungen in anderen Be¬ 
reichen nach sich. Um sich hier schnell einen Überblick zu 
verschaffen, wurden Tabellenkalkulationsprogramme ge¬ 
schaffen. Man gibt einfach die »Abhängigkeiten« oder »Be¬ 
ziehungen« zwischen den Werten formelmäßig ein und teilt 
dem Computer die entsprechenden Basisdaten mit (z.B. 
Umsatz, Kosten etc.). Blitzschnell ermittelt der »Rechen¬ 
knecht« alle weiteren Zahlen, die aus dem gegebenen Ma¬ 
terial hervorgehen. 


Rechnen, bis der Monitor qualmt 


ossta? 
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GEOS-SOFTWARETEST 


C 64, C 128 


und 256 Spalten, durchgezählt mit Buchstaben. Eine mög¬ 
liche Zellenkoordinate wäre A5, aber auch B25 oder BD17. 
Da sich mit solchen Positionsbezeichnungen nicht gut um¬ 
gehen läßt, erlaubt Geocalc sehr flexible Namensgebun¬ 
gen (Bild 2). Es empfiehlt sich, so weit als möglich mit eige¬ 
nen Namen zu operieren. Doch zum Bearbeiten von Zellen 
benötigt man nicht immer die Tastatur: In vielen Fällen ge¬ 
nügt einfaches Anklicken mit dem Joystick, wie man es von 
Geos kennt, und schon wird beispielsweise in eine aktuelle 


gioi Ui ei: op'ins d splij 
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m 

A 

B 

c 

D 

( 

F 

i 
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Kaufpreis 

01115 400.00 




LZ 

_6_Anzohlung ['/.) Anzahlung 

loufzeit (Jahre) 
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? 

0'< 

OHO, 00 

5 

9,90/ 

011326. 45 

01119 586.84 

8 

m 

888 

5 

9 602 

0H291.76 

01119 045 83 

9 

m 

8 8 8 

5 

9,30/ 

011257.54 

0HI8 532.43 

18 

38'/, 

888 

5 

9 00/ 

011223 78 

01118 046 50 

11 

Ov. 

OHO. 00 

4 

9 60/ 

011387 63 

01118 606 34 

12 

10'/. 

888 

4 

9.30/ 

011346 88 

01118 190 45 

11 

20'/. 

888 

4 

9 00/ 

0H306 58 

OMI 7 796 02 

14 

30/. 

888 

4 

8 20/ 

0H266 73 

01117 <22 93 1 

•“i.-• -j—i- — TTU 









rantiert Geocalc 12stellige Exaktheit in einem Zahlenbe¬ 
reich zwischen etwa IO 65 und IO 62 ; bei allen »höheren« 
Operationen und Funktionen, beginnend mit der Potenzie¬ 
rung, sind es immer noch satte neun Stellen im Intervall von 
IO 37 bis 10 38 . Für Rechnungen mit Geldwerten ist selbst 
die niedrigere mathematische »Auflösung« geradezu uto¬ 
pisch hoch, Geocalc muß in diesem Bereich also niemals 
passen. Bei wissenschaftlichen Kalkulationen dürfte es 
ebenfalls keinerlei Schwierigkeiten geben. Im Test hat sich 
Geocalc übrigens als ein äußerst zuverlässiges System be¬ 
währt, Abstürze gab es bisher nicht. 

Wie schon erwähnt, werden Zellen durch Koordinaten 
(Zeile und Spalte) oder selbstdefinierte Namen aufgerufen. 
Um nun Formelzuweisungen innerhalb des Spreadsheet 
auszutauschen, hat man auch die Möglichkeit, »relative« 
Bezugspunkte anzugeben. 

Alles ist relativ 


Bild 1. Das »Spreadsheet« ist das Arbeitsblatt von Geocalc 

Berechnungsvorschrift die Nummer der ausgewählten Zel¬ 
le eingefügt. Ein wichtiges Argument für Einsteiger, sich mit 
Geocalc vertraut zu machen: Es ist zwar leistungsstark, 
aber man wird von seinem Funktionsumfang auch nicht 
»erschlagen«, da zahlreiche Hilfen geboten werden. 


Gute Dokumentation 


Das deutschsprachige Handbuch führt behutsam in Geo¬ 
calc ein und wiederholt auch viele Geos-Details, so daß es 
einen sicheren Einstieg in die Tabellenkalkulation garan¬ 
tiert. Das Geocalc-Programm 


hat deutsche Dialogboxen, 
so daß man auch Fehler¬ 
meldungen auf Anhieb ver¬ 
steht. Nicht nur wegen des 
guten Handbuchs ist es 
kein Nachteil, daß die Me¬ 
nüs bewußt nicht übersetzt 
wurden; denn die »Short- 
cuts«, also die Tastenkombi¬ 
nationen zum schnellen Er¬ 
reichen von Menüfunktio¬ 
nen, gehen so eindeutig 
aus den englischen Begrif¬ 
fen hervor, daß sie hervorra¬ 
gend zu merken sind. Äu¬ 
ßerst erfreulich: Selbst die 
Optionen des Menüs »file« 
sind dadurch verfügbar. 

Von außen präsentiert 
sich Geocalc also als bedie¬ 



An einem Beispiel wird dies klar: Weist man der Speicher¬ 
zelle A5 die Formel »=A3+A4« zu, so heißt dies für Geocalc, 
daß es die Werte aus den beiden darüberliegenden Spei¬ 
cherzellen addiert und das Ergebnis in die aktuelle Spei¬ 
cherzelle schreibt. Kopiert man nun diese Berechnung mit 
den Editierfunktionen »cut«, »copy« und »paste« in Zelle D7, 
so weiß Geocalc automatisch, daß im Fall von D7 nicht mehr 
die Inhalte von A3 und A4, sondern jetzt von D5 und D6 zu 
addieren sind. 

Auch »absolute« Zellbezeichnungen sind möglich: 
»=$A$3+$A$4« würde selbst nach Verschiebungen immer 
die Zellen A3 und A4 addieren. Sie wundern sich, warum 
das Dollarzeichen vor jeder Koordinate steht? Ganz ein¬ 
fach: Soyar Mischungen aus relativer und absoluter Be¬ 
zugsangabe sind möglich; bei »$A5« wäre die Spalte immer 
»A«, die Zeile jedoch durch »5« relativ bezeichnet. 

Durch diese Flexibilität kommt das Programm Geocalc 
dem Anwender nach Kräften entgegen; vor allem spart der 
Geocalc-Anwender unnötige Tipparbeit und ist in der Lage, 
selbst umfangreiche Spreadsheet-Entwürfe effektiv zu be¬ 
werkstelligen. Da Geocalc »interaktiv« arbeitet, führt es alle 

durch Formeln definierten 


Bild 2. Namensgebung erleichtert die Arbeit mit Zahlen 


Berechnungen automa¬ 
tisch aus, sobald sich be¬ 
stimmte Werte ändern. 
Nicht lösbar sind jedoch 
»zyklische Berechnungen« 
oder »Zirkelschlüsse«, bei¬ 
spielsweise wenn man in 
Zelle B3 die Formel »=B3+ 
50« ablegt: Geocalc müßte 
jetzt auf B3 Bezug nehmen, 
ohne von einem Ausgangs¬ 
wert die Berechnung begin¬ 
nen zu können. In einem 
solchen Fall erscheint ein¬ 
fach die Meldung »*REF*« 
(falsche Referenz) in der je¬ 
weiligen Zeile; die fehler¬ 
hafte Formel wird wieder 
zur Editierung freigegeben. 


nungsfreundliches System mit gut durchdachtem Konzept. 
Kommen wir nun zu seinen Rechenfähigkeiten, die glei¬ 
chermaßen überzeugen, um das Urteil vorwegzunehmen. 
Nicht nur, daß man enorm viele Zellen (28672) zur Verfü¬ 
gung hat; auch die Verarbeitung der Zellen vollzieht sich 
schnell und genau. Für die Grundrechenarten (+, -, *, /) 
und alle ausschließlich darauf beruhenden Funktionen ga¬ 


Durchaus sinnvoll sind jedoch »iterative« Berechnungen. 
Folgende Beispieleingabe verdeutlicht diese mathemati¬ 
sche Technik: C3 = C4 + C5, C4 = 0.5*C3, C5 = 50. C3 
und C4 hängen voneinander ab, aber in C5 liegt ein fester 
Wert vor, von dem ausgehend die Rechnung aufgeht. Da 
sich jedoch gleichzeitig der Inhalt von C4 an den C3-Wert 
anpaßt, muß die Rechnung von C3 (= C4 + C5) erneut be- 
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GEOS-SOFTWARETEST 
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j_ 
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]_ 

9 

1L 
u_ 

ü_ 
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02 
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OK 
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nt 

m 

OHO 00 

»M 

ttt 
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1? 043 8! 

': tu z: 
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00. 0N35" t: OMIS ife :• 
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Bild 3. Zahlenformate mit Währungsangabe 

ginnen. Sie sehen: Dies hat kein Ende, doch auf die Dauer 
stabilisieren sich solche Iterationen entweder nach mehre¬ 
ren Durchläufen um einen Wert (Konvergenz) oder nehmen 
überdimensionale Ausmaße an (Divergenz). Bestimmte 
Abläufe lassen sich dadurch gut analysieren, daß man dut¬ 
zendweise Iterationen durchführt, besser gesagt, vom 
Computer durchführen läßt. 

Funktionsvielfalt 


Neben den gängigen Rechenoperationen inklusive der 
Prozentoperation stellt Geocaic ein ganzes Sortiment von 
mathematischen, darunter auch finanzmathematischen 
und statistischen Funktionen zur Auswahl. Falls man einen 
Funktionsnamen nicht buchstabengenau weiß, so wählt 
man ihn einfach aus einer Dialogbox aus (ähnlich der Doku¬ 
mentauswahl). Gleiches gilt auch für die möglichen Zah¬ 
lendarstellungen, die durch einheitliche Formatierung und 
wahlweise Voranstellung von »DM« sehr zur Übersichtlich¬ 
keit beitragen (Bild 3). 

Nun wieder zu den wählbaren Funktionen. Deren Argu¬ 
mente werden entweder durch Kommata getrennt oder 
durch Doppelpunkt abgekürzt; »A3:B9« ist das gesamte 

»Rechteck« von A3 bis B9, in der Reihenfolge A3, A4.A9, 

Bl,... B9. Durch SUM(A3:B9) erhält man somit schnell die 
Summe dieser Zahlen, AVG bezeichnet den Durchschnitt 
(statistisches Mittel), MIN und MAX die Extremwerte. Die 
Rechengenauigkeit für Funktionen wie soeben genannt, 
beträgt zwölf Stellen, da es sich im Prinzip nur um Verket¬ 
tungen von Grundrechenarten handelt. Auch ABS, INT, 
RAND und RND arbeiten so; RAND ist dabei mit RND in Ba- 


64'er-Wertung: Geocaic 


Kurz und bündig 

Tabellenkalkulation 
mit komfortabler Be¬ 
dienung und umfang¬ 
reichen Funktionen. 
Ein Arbeitsblatt Ist 
wie bei den großen 
Vorbildern In Zellen 
aufgeteilt, die sich 
arithmetisch verknüp¬ 
fen lassen. Die Größe 
einer Zelle Ist ohne 
weiteres veränderbar. 


Positiv 

• komfortable Bedienung 
■ Größe der Zelle bis zu 

200 Zeichen 

• Insgesamt 28672 Zellen 
auf einem Arbeitsblatt 
(Spreadsheet) 

• hohe Rechengenauigkeit 

• arithmetische Verknüp¬ 
fung von Zellen 

- Änderungen werden 
sofort in der Kalkulation 
berücksichtigt 

Negativ 

• häufige Diskettenzugriffe 

• keine grafische 
Darstellung möglich 


Wichtige Daten 

Produkt: Geocaic 
64/128 

Preis: 89/119 Mark 
Bezugsquelle: 

Markt »Technik Verlag 
AG, Hans-Plnsol-Str. 

2, 8013 Haar bei 
München 

Testkonfiguration: 

C 64/128, Roppylaul- 
werke 1541/1571, 
Epson FX-85 mit 
Wiesemann-Interface, 
Geos V 1,3 deutsch 


sic zu vergleichen, wogegen RND in Geocaic dem Runden 
(ROUND) anderer Basic-Dialekte gleichkommt. Ansonsten 
hat nur noch PI die hohe Exaktheit, da es sich um den Wert 
für die Kreiszahl Pi handelt. Alle anderen Funktionen kön¬ 
nen »nur« 9stellige Genauigkeit bieten; im Geocalc- 
Handbuch stehen die jeweils zugrundeliegenden Berech¬ 
nungsformeln, so daß man bald erkennt, in welchem Aus¬ 
maß Operationen (vor allem Potenzierung) mit geringerer 
Genauigkeit die Grundlage für solche Funktionen bilden. 

Im einzelnen kennt Geocaic noch folgende Funktionen: 
SQRT (Quadratwurzel), EXP (Eulersche Zahl hoch Argu¬ 
ment), LN (log. nat.), LOG (dekadischer Logarithmus), 
ATAN (Arcustangens), COS (Cosinus), SIN (Sinus), TAN 
(Tangens) sind an Basic-Funktionen angelehnt; die Winkel¬ 
funktionen arbeiten auch ausschließlich im Bogenmaß. Fi¬ 
nanzrechnungen optimieren die Funktionen FV (zukünfti¬ 
ger Wert), PMT (Zahlung in Zeitraum), PV (gegenwärtiger 
Wert), RATE und TERM (Zeitraum), die sich auf konstante 
Zahlungen über Zeiträume beziehen. Als letzte Funktion 
sei NA aufgeführt, wodurch lediglich die Verfügbarkeit ei¬ 
nes Zelleninhalts angezeigt wird. 

Insgesamt vermißt man bei Geocaic kaum eine Pro¬ 
grammfunktion. Die grafische Benutzerführung, volle 
Geos-Integrierung (auch Datenaustausch mit Geowrite 
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Bild 4. »Split-Screen« bringt Amiga-Feeling am C64/C128 


und Geofile möglich), ein flexibler Ausdruck mit NLQ- 
Option, verschiedene Schrifttypen (kursiv, fett, gemischt) 
sowie zahlreiche Bedienungshilfen machen die Arbeit mit 
diesem Produkt zum Vergnügen. Unbezahlbaren Wert hat 
die Option, zwei verschiedene Ausschnitte des Spread- 
sheets untereinander in einem zweigeteilten Bildschirm vor 
sich zu haben (Bild 4); »Screen-Splitting« ist sonst nur bei 
Action-Spielen üblich, für Anwendungen stellt es auf dem 
C64/C128 ein Novum dar. Bei großen Projekten ist 
»Screen-Splitting« unersetzlich. 

Für den C64 und den C128 


Geocaic gibt es sowohl für den C64 als auch den C128 
mit Geos 128. Die C 128-Version bietet die von Geos 128 be¬ 
kannten Vorteile (höhere Floppy-Kapazität, noch größere 
Geschwindigkeit und größere Zeilenbreite), aber keine 
neuen Programmfunktionen, was auch nicht nötig ist. 
Geos-Anwender werden an Geocaic viel Freude haben. 
Wieder einmal ist es Berkeley Softworks gelungen, ein An¬ 
wendungsprogramm zu entwickeln, das sowohl durch sei¬ 
ne Leistungsfähigkeit positiv auffällt als auch mit herausra¬ 
gender Benutzerfreundlichkeit glänzt.(Florian Müller/rf/kn) 
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GEOS-SOFTWARETEST 


C64, C 128 


Geofile - Neue Dimension der 
Datenverarbeitung 


Im Gegensatz zu herkömmlichen Programmen 
setzt Geofile als Zusatzprogramm zu Geos voll 
und ganz auf das grafische Element. Ein neuarti¬ 
ger Weg bei einer Dateiverwaltung. 

G eos bietet durch seine grafisch unterstützte Benutzer¬ 
oberfläche eine hervorragende Basis für ein leicht be¬ 
dienbares und komfortables Datenbankprogramm. 
Um diese Lücke zu schließen hat Berkeley Softworks das 
Programm »Geofile« entwickelt. Dabei handelt es sich um 
eine Dateiverwaltung, die einige Extras bietet. Bereits ge¬ 
wohnt ist man vielleicht die Installation von Geofile von an- 



Bild 1. Mit Hilfe der Maus werden die einzelnen Datenfelder 
erstellt und spezifiziert. Grafiken sind dabei kein Problem. 


deren Geos-Applikationen her. Da wird als erstes die Se¬ 
riennummer der Geos-Boot-Diskette zum Zwecke des Ko¬ 
pierschutzes auf der Original-Geofile-Diskette aufge¬ 
bracht. Dann kann eine Kopie angefertigt werden, die dann 
aber nur zusammen mit der Boot-Diskette lauffähig ist. 
Nach dem Anklicken des Geofile-Icons am Bildschirm prä¬ 
sentiert sich ein bereits gewohntes Bild: Das Programm 
fragt, ob eine neue Datei eröffnet oder eine bereits vorhan¬ 
dene bearbeitet werden soll. Nachdem Sie sich für eine 
neue Datei entschieden haben, sehen Sie nichts als ein lee¬ 
res Arbeitsblatt mit Menübalken vor sich. Eins fällt hier aber 
sofort auf: Ein schwarzes Objekt, das einen kleinen Kasten 
beinhaltet, erscheint in der linken oberen Ecke. 

Neuartiges Konzept: Arbeitsblätter 


Da am Bildschirm nur ein Ausschnitt des gesamten Arbeits¬ 
blattes sichtbar ist, können Sie mit Hilfe dieser Anzeige be¬ 
liebig durch das gesamte Blatt scrollen. Bisher war noch 
kein einziges Mal von Datensätzen oder Feldlängen die Re¬ 
de - Begriffe, die normalerweise untrennbar mit Dateien 
verbunden sind. Nicht so bei Geofile. Um diesem Phäno¬ 
men auf den Grund zu gehen, sehen wir uns zunächst den 
Aufbau einer Datei näher an. Um ein Datenfeld zu deklarie¬ 
ren, erstellen Sie mit Hilfe der Maus oder eines Joysticks ei¬ 
ne Box, die die Daten später aufnehmen soll. Von der Größe 
her sind der Box dabei keine Grenzen gesetzt. In diese läßt 


sich der Feldname eintragen. Danach müssen natürlich 
noch die Kriterien festgelegt werden. Sie können zunächst 
zwischen Textfeld, Kommentarfeld und numerischem Typ 
wählen. Danach läßt sich das Feld noch näher spezifizie¬ 
ren. So läßt sich der Schrifttyp des Feldnamens und der ein¬ 
zugebenden Daten beeinflußen. Fett, kursiv und unterstri¬ 
chen stehen zur Auswahl. In Bild 1 sehen Sie ein Beispiel, 
wie eine Datei mit Geofile aufgebaut sein kann. Die Über¬ 
schrift befindet sich ebenfalls in einer Box und wurde als 
Kommentarfeld deklariert. Das Feld rechts oben, hervorge¬ 
hoben durch die andersartige Umrahmung, stellt das Sor¬ 
tierfeld dar, mehr oder weniger den Schlüssel, nachdem 
die Datei sortiert oder durchsucht werden kann. Natürlich 
lassen sich auch ohne weiteres Grafiken einfügen. Sie se¬ 
hen in Bild 1 auch in jeder Box, links oben und rechts unten, 
ein kleines Quadrat. 

Definition per Joystick 


Diese Marken dienen dazu, das Feld frei auf dem gesamten 
Arbeitsblatt zu verschieben, beziehungsweise zu vergrö¬ 
ßern. Aus den bisherigen Erläuterungen läßt sich schon 
deutlich ersehen, daß Geofile nicht wie konventionelle Da- 
teiverar’^' itungen mit den Daten umgeht. So wird auch im 
Handbuch nicht von einem Datensatz gesprochen, son¬ 
dern von einem »Layout«, einem frei definierbaren Seiten¬ 
aufbau. Geofile verwaltet also nicht Datensätze im her¬ 
kömmlichen Sinn, sondern für jeden »Datensatz« eine kom¬ 
plette Seite mit Felddefinitionen und -großen. Nachdem Sie 
alle Felder generiert haben, können Sie mit der Datenein¬ 
gabe beginnen. Hier werden alle Felder nacheinander an¬ 
gesprungen. Mit Hilfe des Mauszeigers kann auf jedes be¬ 
liebige Feld positioniert werden. Der Rahmen des gerade 
aktuellen Feldes ist dabei durch eine dickere Strichstärke 
hervorgehoben. Innerhalb des Eingabemodus erfolgt auch 
das Blättern durch die Datei, wiederum durch Anklicken ei¬ 
ner Box im oberen Menübalken (Bild 2). Damit läßt sich 
auch problemlos das Ende, respektive der Anfang der Datei 
erreichen. Eine weitere Besonderheit von Geofile stellt das 
Suchen von Datensätzen dar. Die Eingabemöglichkeiten 



Bild 2. Bei der Eingabe werden die Felder nacheinander 
angesprungen. Über die Pfeile wird innerhalb der Datei 
geblättert. 
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Bild 3. Das Druckformat kann auf einfache Art und Weise 
festgelegt werden 

sind hier nicht auf das Schlüsselfeld begrenzt. Wenn Sie 
die Suchfunktion aufrufen, präsentiert sich wiederum die 
komplette Maske in einem eigenen Fenster. Hier können 
Sie nun den zu suchenden Datensatz, auch mit Hilfe von 
Wildcards beziehungsweise Joker (»*? «) eingeben. Jedes 
Datenfeld kann mit einem Suchkriterium versehen werden. 
»Blättern« Sie daraufhin in der Datenbank vor oder zurück, 
erscheinen nur die Datensätze, die Ihren Suchkriterien ent¬ 
sprechen. Natürlich kommen beim Suchen auch verschie¬ 
dene Operatoren zur Anwendung. So ist es ohne weiteres 
möglich, aus einer Adreßdatei alle Postleitzahlen auszu¬ 
sondern, deren Postleitzahl kleiner, gleich oder größer ei¬ 
ner vorgegebenen Zahl ist. Sogar logische Verknüpfungen 
wie AND und OR sind vorgesehen. Wenn auch noch Geos 
V1.3 Verwendung findet, ist zusätzlich die Ansteuerung der 
Speichererweiterungen möglich, die ursprünglich für den 
C 128 gedacht sind (Modelle 1700 und 1750). Diese kann 
hier als im RAM arbeitende 1541 oder als schattierte (im 
Hintergrund arbeitende) RAM-Floppy eingesetzt werden. 
Bei der schattierten Einstellung werden alle Daten, die aus 
Speicherplatzgründen normalerweise auf Diskette ausge¬ 
lagert werden, in die RAM-Floppy geschrieben. 

Turbo für Geofile 


Die reine 1541-Emulation ermöglicht die Verwendung der 
Speichererweiterung als 1541. So ist neben dem sowieso 
schon gebotenen Komfort auch noch eine immense Ge¬ 
schwindigkeitssteigerung möglich. Damit sind die Lei¬ 
stungsmerkmale von Geofile aber noch nicht erschöpft. 

Kommen wir noch einmal auf die Layouts zurück. Das 
Programm erlaubt die Verwendung von mehreren Layouts, 
also Masken, für ein und dieselbe Datei. Wozu das alles? 
Nun, sicherlich wünschen auch Sie sich ab und zu ver¬ 
schiedene Formate für die Ausgabe Ihrer Daten, sowohl auf 
dem Bildschirm als auch auf dem Drucker. Mit den ver¬ 
schiedenen »Sub«-Layouts können Sie derartige Wünsche 
schnell verwirklichen. Vor allem für den Ausdruck ist die 
Gestaltung von Sublayouts immens wichtig. Geofile er¬ 
möglicht es nämlich, vor dem Druckvorgang einige Para¬ 
meter, natürlich immer mit Fenstertechnik und Maus, fest¬ 
zulegen. Sie selbst entscheiden hier über die Anzahl der 
Datensätze, die auf einer Seite stehen sollen (Bild 3). 

Sie brauchen in dem Fenster, das die Druckvorlage als 
Skizze zeigt, lediglich immer das Plus- oder Minussymbol 
anklicken und schon erscheint auf dem Ausdruck ein Da¬ 
tensatz mehr oder weniger. Damit sind die Fähigkeiten von 
Geos beim Ausdruck noch lange nicht erschöpft. Sie kön¬ 
nen zusätzlich noch festlegen, ob Sie alle Datenfelder mit 


oderohne den auch auf dem Bildschirm sichtbaren Umran¬ 
dungen ausgeben wollen. Daneben lassen sich auch ein¬ 
zelne Felder mit Rahmen drucken, was vor allem Über¬ 
schriften und Schlüsselfelder sehr deutlich hervorheben 
kann. Natürlich können Sie auch die Zahl der Datensätze 
beschränken, die gedruckt werden. Auch die Ausgabe des 
momentan angezeigten Datensatzes ist möglich. Einzelne 
Felder können ebenfalls von einem Erscheinen auf dem Pa¬ 
pier ausgeschlossen werden. Daneben können Sie noch 
die verwendete Papierart festlegen. Hier stehen Endlospa¬ 
pier, Adreßaufkleber und Karteikarten zur Auswahl. Also 
auch beim Drucken beweist Geofile große Flexibilität. 

Ausgang zu Geowrite 


Kommen wir nun zu einem zweiten Programm, das sich 
ebenfalls auf der Geofile-Diskette befindet: Geomerge. Da¬ 
mit ist dem Anwender eine optimale Schnittstelle zu Geo¬ 
write in die Hand gegeben. Um nun Daten von einer Geo- 
file-Datei in einem Serienbrief zu verwenden, sind folgende 
Schritte notwendig: 

Als erstes muß innerhalb von Geofile eine zweite Datei 
angelegt werden, deren Format für die Bearbeitung von 
Geomerge geeignet ist. Aber keine Angst, hier sind keine 
umständlichen Anweisungen nötig, alles wird von einem ei¬ 
genen Geofile-Menüpunkt erledigt. 

Nun müssen Sie Ihren Brief entwerfen. Hier können Sie 
die einzelnen Felder, die aus der Datei benötigt werden, 
eingeben und sogar Beschränkungen angeben. Dafür sor¬ 
gen zwei äußerst komfortable Anweisungen: IF und ELSE. 


64’er-Wertung: Geofile 


Kurz und bündig 

Dateiverwaltung mit 
frei definierbaren 
Masken und varia¬ 
blem Suchsystem. 

Ein Datensatz kann 
sich über acht Bild¬ 
schirmselten 
erstrecken. Es be¬ 
steht die Möglichkeit, 
Gratiken einzubinden. 


Positiv 

- DateigröBe nur durch Dis¬ 
kettenkapazität begrenzt 

- Einbindung von Grafiken 
in die Datei 

- suchen nicht auf 
Schlüssel begrenzt 

• variable Druckausgabe 

Negativ 

- Geschwindlgkeits- 
Einbuflen durch häufige 
Diskottenzugriffe 


Wichtige Daten 

Produkt: Geofile 
64/128 

Preis: 89/119 Mark 
Bezugsquelle: 

Markt&Technik Verlag 
AG, Han8-Plnsel-Str. 

2, 8013 Haar bei 
München 

Testkonfiguration: 

C64/128, Floppylaut- 
werke 1541/1671, 
Epson FX-85 mit 
Wiesemann-Interface, 
Geos V 1,3 deutsch 


So können Sie in Abhängigkeit eines Wertes oder 
Strings, der sich in Ihrer Datei befindet, variable Texte aus¬ 
geben. Die ELSE-Anweisung ermöglicht zudem eine alter¬ 
naive Ausgabe vom Text. Ein kleines Beispiel: 

Sie wollen einen Serienbrief an Ihre Bekannten schrei¬ 
ben. Natürlich sprechen Sie mit Freunden anders als mit fe¬ 
sten Verwandten. In Ihrer Datenbank haben Sie zu diesem 
Zweck ein Feld deklariert, das genau angibt, ob es sich um 
einen Freund oder einen Verwandten handelt. Nennen wir 
dieses Feld »Grad«. Um zwei verschiedene Texte auszuge¬ 
ben, ist folgende Anweisung innerhalb des Briefes notwen¬ 
dig: 

« IF Grad="Freund"» Hallo, Jungs und Mädels, « 
ELSE» Hallo, Ihr Lieben, « ENDIF» ... 

Alles in allem hat Berkeley Softworks mit Geofile bewie¬ 
sen, daß es nicht notwendig ist, anspruchsvolle Anwendun¬ 
gen mit komplizierter Bedienung zu versehen. Geofile 
überzeugt durch die einfache Bedienbarkeit und nicht zu¬ 
letzt durch die angenehme Geschwindigkeit. (rf/kn) 
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Geowrite Workshop - ein tolles 


Es ist nicht leicht, den Favoriten unter den Text¬ 
verarbeitungsprogrammen für den C64 oder 
C128 zu ermitteln. Das Paket »Geowrite Work¬ 
shop« hat jedoch gute Chancen, ganz oben in der 
Spitzengruppe mitzumischen. Lesen Sie selbst. 

D ie erste Geos-Applikation, die bei uns in Deutschland 
erhältlich war, ist »Geowrite Workshop«, früher »Wri- 
ter’s Workshop« genannt. Da jeder Geos-Anwender 
bereits »Geowrite« aus dem Lieferumfang von Geos kennt, 
stellt sich die Frage: Was bringt Geowrite Workshop Neu¬ 
es? Dies läßt sich kurz und treffend beantworten: sehr viel. 

Nicht nur, daß ihm jetzt keine Funktion mehr fehlt, die an 
dere Programme (Vizawrite, Protext, Textomat) auch besit¬ 
zen; es gibt zahlreiche Geowrite-Workshop-Funktionen 
von größtem Nutzen, die Sie im C64- und C128-Bereich 
nicht einmal in annähernder Weise wiederfinden können. 

Geowrite ist erwachsen geworden 


Das Programmpaket »Geowrite Workshop« besteht aus 
fünf Geos-Applikationen (lauffähig ab Version 1.2, am be¬ 
sten jedoch mit VI.3), die in dieser einzigartigen Zusam¬ 
menstellung schlichtweg als unschlagbar zu bezeichnen 
sind. Es handelt sich um: 

- Geowrite in der Version 2.1 (im Geos 1.3-Lieferumfang ist 
Version 1.3 enthalten). Wer so wie der Autor dieses Artikels 
zunächst glaubt, dies sei »nur eine neue Version«, der wird 
eines Besseren belehrt. Denn ist Geowrite bis zur Version 
1.3 gerade als ein »Texteditor« zu bezeichnen, der zwar 
schöne Textgestaltung zuläßt, es aber nicht mit »richtigen« 
Textverarbeitungen aufnehmen kann, so kombiniert Geo¬ 
write 2.1 die Vorteile des Geowrite-Konzepts mit allen Be¬ 
fehlen, die man sich zum effektiven Arbeiten wünscht. 
Geowrite 2.1 ist der Schwerpunkt von Geowrite Workshop, 
deshalb wird seine Betrachtung hier den meisten Raum 
einnehmen. 

- In seinem Bereich ebenso leistungsfähig wie Geowrite 
Workshop ist »Geomerge«. Diese Applikation ermöglicht in 
Verbindung mit Geowrite 2.1 Serienbriefe mit großem Kom¬ 
fort: Intelligente Abfragen von einzufügenden Daten (Bild 1) 
lassen flexible Texte zu. Persönliche Anreden für jeden 
Empfänger sowie ganze Absätze, die von den jeweiligen 
Einsetzdaten abhängen, zeigen die große Flexibilität von 
Geomerge. Da dieses Programm sehr umfangreich ist, ver¬ 
weisen wir hier auf den Test von »Desk Pack 1/Geodex«; 
dort steht eine ausführliche Beschreibung derselben 
Geomerge-Version, die auch Bestandteil des Geowrite 
Workshop ist. In den »Tips & Tricks zu Geos« wird ebenfalls 
auf Geomerge eingegangen, Sie können anhand dieser Ar¬ 
tikel die Leistungsfähigkeit des Programms ersehen. 

Da Geowrite täglich neue Anwender anderer Textpro¬ 
gramme zum Umstieg bewegt, die aber ihre alten Textdatei¬ 
en weiterverwenden wollen, befindet sich auch der »Text 
Grabber« auf der Geowrite-Workshop-Diskette. Dieses Uti¬ 
lity macht ASCII-Dateien, bestehende Texte von Vizawrite 
und amerikanischen Textprogrammen (Easyscript, Paper¬ 
clip, Speedscript und Wordwriter) für Geowrite 2.1 lesbar. 
Auch die deutschen Umlaute von Vizawrite werden übertra¬ 
gen. Geowrite läßt sich also auch zur Nachbearbeitung von 
anderen C64/128-Dokumenten einsetzen. 

- »Geolaser« erzeugt mit dem Apple-Laserdrucker »La¬ 
serWriter« professionelle Ausdrucke bei einer Übertra- 


qeos j flle j edit j optlons j pgqe j font j stqle jj 
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«NAME» «VORNAME» 
«STRASSE» 

«ORT» 


«IF ANREDE > “M"» Seht qeehrfer Herr «NAME» 

«ELSE» Sehf qeehrte F«iu «NAME» 

Unter Bezuqncihme auf unser Schreiben vom «DATUM», möchten 
ujir Ihnen mitteilen, daß eine Anqboterstellunq auf der Basis der 
Preislist vom «PDATUM» leider nicht mehr möqlich ist, da 
seit dem «NDATUM» unsere neue Preisliste Gültigkeit hat. 


Bild 1. Serienbriefe mit Geowrite und Geomerge - 
»intelligente« Verknüpfungen sind kein Problem 


gungsrate von 1200 oder 9600 Baud. Es hat zahlreiche Op¬ 
tionen zur Textgestaltung und zum teilweisen Ausdruck ei¬ 
ner Datei. Die zusätzlichen Zeichensätze der Geowrite- 
Workshop-Diskette sind allesamt mit »LW« zu Beginn des 
Namens gekennzeichnet, weil sie haargenau (besser: 
punktgenau) in dieser Form auf dem LaserWriter wiederge¬ 
geben werden können. Die Anzahl der Anwender, für die 
das Geolaser-Programm in Frage kommt, ist sicherlich 
nicht groß; man sieht aber daran, daß Geowrite jetzt 

Brücken in den Profibereich schlägt. 

On.ina-. a 

Erstklassige Hilfsprogramme 


- Für jeden Anwender interessant ist »Paint Drivers«. Damit 
überträgt man Geowrite-Dokumente unter Berücksich¬ 
tigung aller Schriftarten in identische Geopaint-Bilder, so¬ 
gar die druckerabhängige Größe wird berücksichtigt. Unter 
Geopaint bieten sich dann ungeahnte Nachbearbeitungs¬ 
möglichkeiten. Der Abschnitt »Mini-Publishing mit Geos« 
aus der Rubrik »Tips & Tricks zu Geos« zeigt, daß das Paint- 
Drivers-Programm für kreative Anwender mit Sicherheit 
eines der besten Hilfsprogramme ist, die es für C64 und 
C128 gibt. Noch nie war es möglich, Textdateien bis auf den 
letzten Bildpunkt genau zu beeinflussen. 

Soweit der Überblick über die fünf Bestandteile des Geo¬ 
write Workshop. Da Sie über Geomerge und Paint-Drivers 
auch an anderen Stellen Informationen finden, Geolaser 
und Text Grabber hingegen bereits erklärt wurden, widmen 
wir uns hier voll und ganz der Version 2.1 von Geowrite. Wie 
schon gesagt, verbindet dieses System alle Vorteile, die 
man bereits von Geowrite 1.3 kennt, mit dem vollen Befehls¬ 
umfang professioneller Systeme. Und da Textdateien theo¬ 
retisch bis zu einer ganzen Diskettenseite lang sein dürfen, 
ist es bereits in seiner Kapazität jedem anderen Programm 
für den C64 überlegen. 

Da bei Geowrite 2.1 der volle Befehlsumfang früherer 
Versionen besteht, seien die Vorteile, die bereits bei Geo¬ 
write 1.3 bestehen, kurz Umrissen: Die Textgestaltung wird 
durch Grafikeinbindung bei gleichzeitiger Darstellung am 
Bildschirm, zahlreiche verschiedene Zeichensätze (Fonts) 
und Schriftarten (kursiv, fett, unterstrichen, Kontur) sowie 
die Orientierung an einer DIN-A4-Seite im Ausdruck her¬ 
vorragend. Da alles gleich am Bildschirm so aussieht, wie 
es später auf den Drucker kommt, spricht man von einer 
»WYSIWYG«-Textverarbeitung (What You See Is What You 
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Textsystem für C 64 und C128 


Get; man sieht am Bildschirm, was man im Ausdruck be¬ 
kommt}. Die Direktformatierung am Bildschirm, die »pre- 
view«-Ubersicht und die Tabulatoren unterstützen die Ge¬ 
staltung übersichtlicher Dokumente. Auch Blockoperatio¬ 
nen (verschieben, löschen und kopieren) sind durch inver¬ 
se Darstellung des markierten Bereichs sehr anschaulich. 
Die große Textkapazität - bis zu 127 Seiten - wurde bereits 
erwähnt; wichtig ist, daß Geowrite-Texte bereits mit Seiten¬ 
umbruch verfaßt werden. 
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)ie Texgestaltungsmogliqhkeiten von 
jsamtite.. 2J in Writer' s Workshop sind 
nls ujirkllch professionell zu 
bezeichnen. Formatierung einzelner 
Absätze in Block- oder Flattersatz bzur. 
Zentrierung sind in Sekundenschnelle zu _ 
erreichen. ~ 

Bfl©Ul ist auch die Möglichkeit der 
oder Tiefstellung- 11105 bei mathematischen 
Formeln sehr von Uorteil ist: 

Aj. = (A 2 +B 2 * C 2 ) - xj/2 13 
z= sin ot. + cos ß 


Bild 2. Geowrite 2.1 bietet erweiterte Textgestaltungs¬ 
möglichkeiten 

CMVl OHL 

Doch alle diese Vorteile täuschen nicht über viele Mängel 
der Version 1.3 hinweg: Die Tastensteuerung fehlt entweder 
völlig (Geowrite 1.1 und 1.2) oder größtenteils (Geowrite 
1.3); man kann nicht mit den Cursortasten im Dokument 
operieren, sondern muß die lästigen Rollpfeile in der Kopf¬ 
zeile betätigen. Das Abrollen bei Anstoßen des Mauszei¬ 
gers am Bildschirmrand funktioniert nur nach links oder 
rechts, nicht jedoch nach oben oder unten. 

Zudem ist nur der Ausdruck im langsamen Grafikmodus 
des Druckers möglich, nicht jedoch im Textmodus, von 
NLQ ganz zu schweigen. Noch schwerer wiegt das Fehlen 
der elementaren Such- und Ersetzfunktion sowie der Kopf- 
und Fußzeilen. Bei der Bereichswahl kann nur eine Bild¬ 
schirmseite bearbeitet werden, umfassendere Markierun¬ 
gen sind nicht möglich. 

Steuerung mit Tastatur oder Maus 


Nun endlich zu den neuen Features von Geowrite 2.1. Zu¬ 
nächst einmal fällt auf, daß jetzt weitestgehende Tastatur¬ 
steuerung möglich ist. Es kommt dem flüssigen Schreiben 
sehr entgegen, daß alle wichtigen Menüpunkte - bis auf 
diejenigen im »file«-Menü - über Tastenkombinationen mit 
der Commodore-Taste zur Verfügung stehen. Des weiteren 
dienen die Cursortasten jetzt nicht mehr als »Staubfänger«, 
sondern bewegen alternativ zum Mauszeiger den Textcur¬ 
sor. Eine weitere Neuerung besteht darin, daß der sichtbare 
Textbereich jetzt auch rollt, wenn man am oberen oder un¬ 
teren Bildrand anstößt. Ein Tip dazu: Wenn Sie Menüs an¬ 
klicken wollen, bremsen Sie den Mauszeiger bei einer Auf¬ 
wärtsbewegung unbedingt so rechtzeitig ab, daß er knapp 
über der untersten Begrenzung der Menüzeile zum Ste¬ 
hen kommt. Sonst beginnt Geowrite 2.1, den Text zu Scrol¬ 
len, und Sie müssen hinterher mühselig die gewünschte 



Textstelle suchen. Da das Scrollen nicht die allerschnellste 
Funktion ist, kann dies manchmal sehr störend wirken. 

Zusätzlich zu den zahlreichen Schriftarten ist jetzt auch 
das Hoch- (Superscript) und Tief-Stellen (Subscript) von 
Texten möglich (Bild 2). Bei Indizes ist dies äußerst wertvoll. 
Als neue Schriftarten sind neben den bewährten Zeichen¬ 
sätzen im Laser-Writer-Format auch der Original-Commo- 
dore-Zeichensatz sowie griechische Zeichen auf Diskette. 

Doch die alten Zeichensätze sind ebenso (zusätzlich) 
verwendbar wie Texte älterer Geowrite-Versionen, welche 
automatisch beim Einlesen konvertiert werden. Eine Rück¬ 
wandlung ist jedoch nicht möglich, deshalb eine gutge¬ 
meinte Empfehlung: Erscheint zum ersten Mal die Frage 
nach der Konvertierung, klicken Sie »Abbruch« (Cancel) 
und machen erst eine Sicherheitskopie Ihrer Textdatei. 


Formatierung, auch absatzweise 


Oft vermißte man bei Geowrite 1.3 die Möglichkeit, den Text 
zu formatieren. Blocksatz (beidseitige Bündigkeit), Links-/ 
Rechtsbündigkeit und Zentrierung sind bei Geowrite 2.1 
vorhanden. Im Gegensatz zu vielen anderen C64/128-Text- 
programmen sind sogar absatzweise Formatieranweisun¬ 
gen kein Problem. Dies verleiht Geowrite-Texten eine Pro¬ 
fessionalität in der Gestaltung, wie sie sonst nur mit größe¬ 
ren Computern zu erreichen ist. Tabulatoren werden eben¬ 
falls »^satzweise gesetzt und sind damit noch hilfreicher. 
Spezielle Dezimaltabulatoren bringen einheitliche Zahlen¬ 
darstellungen zustande. 

Nicht nur zur Umformatierung, sondern auch zur nach¬ 
träglichen Gestaltung und blockübergreifenden Operatio¬ 
nen benötigt man die Bereichswahl (Anfangspunkt wird an¬ 
geklickt, Knopf gedrückt gehalten und Joystick zur Zielpo¬ 
sition bewegt). Bei Geowrite 2.1 wurde hier ganze Arbeit ge¬ 
leistet: Bereichsmarkierungen dürfen auch den Bildschirm 
abrollenderweise überschreiten und bleiben nach fast al¬ 
len Operationen auch für die nächste Aktion erhalten. 

Hilfreiches Extra: Durch Doppelklicken von Buchstaben 
wird ein Wort markiert. 

Ähnlich wie bei Vizawrite läuft die Einbindung von Kopf- 
und Fußzeilen (Header, Footer) ab. Dabei wurde sogar die 
Einfügung von Grafiken, Seitennummer, Datum und/oder 
Zeit realisiert. Es gibt zwar einige C 64/128-Programme, die 
jeweils ein oder zwei dieser Features haben; doch Geowrite 



Bild 3. Suchen und Ersetzen wie die Profis 
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2.1 vereinigt alles zusammen unter einem Dach. Wünsche 
bleiben nicht mehr offen. 

Dies gilt auch für das Suchen und Ersetzen. Die Dialog¬ 
box in Bild 3 spricht für sich und zeigt, daß auch hier »alles 
drin« ist. Ebenfalls für C64/128 neuartig: das »Rückwärts- 
Suchen« (nicht im Bild 3 erkennbar, da über Menüpunkt zu 
aktivieren). Dabei sucht Geowrite 2.1 den Suchtext von der 
aktuellen Position aus in Richtung Textanfang (normaler¬ 
weise in Richtung Textende). 

Die Erstellung von Ausdrucken ist äußert reich an Varia¬ 
tionsmöglichkeiten. Jetzt sind auch Ausdrucke im Textmo¬ 
dus des Druckers zu bewerkstelligen, die zwar blitzschnell 


64'er-Wertung: Geowrite Workshop 


Kurz und bündig Positiv Wichtige Daten 

Textverarbeitung mit - WYSIWIG-Darslellung Produkt: Geowrite 

allen wichtigen - einfache Handhabung Preis: 89 Mark lür 

Funktionen; Verwon- über Pull-Down-Menüs C64,119 Mark lür 

düng verschiedener - Ausdruck In NLQ möglich C128 

Zeichensätze mög- - Serlenbrlellunkllon Bezugsquelle: 

lieh; WYSIWIG-Dar- Markt »Technik Verlag 

Stellung; Texte kön- Negativ AG, Hans-Plnsel-Str, 

nen aus anderen Pro- - häufige Diskettenzugriffe 2, 8013 Haar 

grammen Übernom- - langsamer Bildschirm- Testkonfiguration: 

men werden; Serien- aufbau (entfällt bei C64/128, Laufwerke 

brleferstellung; Verwendung einer 1750- 1541/1571, RAM-Er- 

Druckertrelber kann Speichererweltorung) Weiterung 1750, 

an NLQ-Druck ange- Epson FX-85 mit 

paflt werden, volle Wlesemann-lnterface 

Einbindung In Geos. 


erstellt werden, aber natürlich bei weitem nicht so schön 
aussehen wie Grafikdrucke. Für Entwürfe und »Auf-die- 
Schnelle-Printouts« reicht es allemal. Optimale Druckquali¬ 
tät erzielt man auf NLQ-fähigen Druckern durch Auswahl 
der NLQ-Option, wobei sogar der NLQ-Abstand über Me¬ 
nüpunkt wählbar ist. Geowrite 2.1 druckt auch Teile von Do¬ 
kumenten; die erste Seitennummer kann zum Druck fest¬ 
gelegt werden (Menüpunkt »set first page«). 

Sie können jetzt auch über die volle Breite eines Papiers 
(8 Zoll) schreiben. 

Nach diesem Funktionsüberblick, der aufgrund der 
Komplexität von Geowrite Workshop recht komprimiert sein 
mußte, haben Sie sicher gemerkt, daß die Artikelüberschrift 
voll und ganz zutrifft: Geowrite Workshop ist eine erstklassi¬ 
ge C64/128-Textverarbeitung. Ob es einem auf Funktions¬ 
umfang oder vielfältige Ausdrucke ankommt, Geowrite 
Workshop vermag jeden Computerfreak zu begeistern. 

Geowrite Workshop ist mit deutschem Handbuch und 
deutschen Dialogboxen (die Menüs bleiben englisch) für 
89 Mark bestimmt nicht zu teuer. Es läuft mit jeder Geos- 
Version, bei deutschem Geos (1.3) mit voller Unterstützung 
der deutschen Umlaute. 

Für 119 Mark gibt es eine spezielle C 128-Version, die im 
80-Zeichen-Modus ohne horizontales Scrolling auskommt 
und zudem erheblich schneller ist. (Florian Müller/sk) 

Geowrite Workshop für den C64 oder C128 erhallen Sie im Fachhandel. Beide Versionen werden 
vertrieben vom Markt S Technik Verlag, Hans-Pinsel-Slr. 2, 8013 Haar bei München, Tel. (089) 
4613 - 0; Preis: C64-Version 89 Mark, C 128-Verslon 119 Mark 


Eine Programmsammlung 
für jedermann 


Das Software-Paket »Desk Pack 1/Geodex« 
erweitert Ihr Geos-System um sechs neue Programme. Nützliche Utilities wie 
Adreßbuch, Kalender oder eine Serienbrief-Verwaltung, bilden eine sinnvolle Ergänzung zu anderen 

Geos-Programmen. 


A uch bei Geos ist es nicht anders als bei anderen Pro¬ 
grammen: Trotz oder gerade wegen der Fülle an vor¬ 
handenen Möglichkeiten, entstehen neue Bedürfnis¬ 
se. Durch »Desk Pack 
1/Geodex« gewinnt Ihre 
Geos-Ausstattung ganz be¬ 
trächtlich. Folgende Softwa¬ 
reprodukte enthält diese Pro¬ 
grammsammlung: 

- »Geodex« ist ein Schreib¬ 
tischzubehör (Desk Accesso- 
ry) zur unkomplizierten Ver¬ 
waltung von Adressen und 
Telefonnummern in einem 
»Adreßbuch«. Da Geodex als 
Desk Accessory von jeder 
Applikation aufgerufen wer¬ 
den kann, ist es jederzeit 
griffbereit, wenn man es auf 
die entsprechenden Disket¬ 
ten kopiert. Neben zahlrei¬ 
chen Extras wie dem auto¬ 
matischen Wählen einer Telefonnummer (nur für Modem- 
Besitzer, versteht sich), flexiblem Suchen und verschiede¬ 
nen Druckmöglichkeiten mit großer Geschwindigkeit, über¬ 


zeugt vor allem das Einbinden von Geodex-Daten in Se¬ 
rienbriefe. Dazu benötigt man zusätzlich »Geomerge«, 
ebenfalls Bestandteil von »Desk Pack 1/Geodex«. 

- »Geomerge« ist das be¬ 
ste Serienbrief-Programm, 
das es für C64/128 gibt. 

Es verwendet die Daten 
unterschiedlicher anderer 
Geos-Applikationen (Geo¬ 
dex, Geofile, Geocalc, Geo¬ 
write), erzeugt Serienbriefe 
auch auf Diskette, um Korrek¬ 
turen vor dem Ausdruck zu¬ 
zulassen, und ist in gewissen 
Grenzen programmierbar. 
Näheres gegen Ende dieses 
Artikels. 

- Der »Kalender« ist wie Geo¬ 
dex ein Desk Accessory, in 
dem Termine flexibel verwal¬ 
tet werden, Raum für längere 
Notizen besteht, und das 
durch eine übersichtliche Bildschirmdarstellungen für sich 
spricht (Bild 1). Durch Anklicken eines Termins in der Mo¬ 
natsübersicht wird dieser als »belegt« markiert (ein Stern- 
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Bild 1. Der Kalender - er kann von jeder Geos-Applikation 
leicht aufgerufen werden 
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zum Beispiel Basic-2.0-Programme, erscheinen dann mit 
einem auf die Dauer langweiligen »OLD C64«-Piktogramm. 
Die Applikation »Icon Editor« ermöglicht Ihnen, Basic- und 
Maschinenprogramme ohne Geos-Einbindung mit Icons 
zu versehen. Diese können Sie selbst entwerfen (Bild 3). 
Der »Icon Editor« ist voll Geos-gesteuert und läßt sich auch 
ohne Kenntnis des Geos-Dateiformats bedienen. Beson¬ 
ders Programmierer, aber auch kreative Anwender, haben 
ihre Freude am Icon-Editor, seine Editierfunktionen tragen 
dazu bei, Spiegeln, Drehen in alle Richtungen, Zwischen¬ 
speichern von Icons im »Buffer« und Joystick-Steuerung 
bieten allen erdenklichen Komfort. 

Spielhölle am Bildschirm 


Bild 2. Der »Graphics Grabber« konvertiert Grafiken aus 
Printshop, Printmaster und Newsroom Ins Geos-Format 

chen erscheint dort); nun ist eine Eingabe über die Art des 
Termins zu tätigen, die man durch Anklicken des jeweiligen 
Sternchens abrufen kann. Wurde der Termin wahrgenom¬ 
men, entfernt man den jeweiligen Eintrag. Der »Kalender« 
verbindet seinen praktischen Nutzen mit hoher Funktiona¬ 
lität; die konsequente Geos-Benutzerführung hat zur Folge, 
daß man den Kalender sogar ohne Anleitung bedienen 
kann. 

Grafiken klauen 


- Als letzter Teil des Desk Pack läßt »Black Jack« (Bild 4) die 
Herzen verspielter Anwender höher schlagen. Es handelt 
sich um die amerikanische Version von »17 und 4«, die man 
in diesem Desk Accessory (aufrufbar aus jeder Applikation 
heraus) gegen den Computer spielt. Das Spiel hat anspre¬ 
chende Grafik, Sound-Effekte und einen hohen Spielwert. 
Es ist immer wieder von neuem eine Herausforderung, ge¬ 
gen Geos anzutreten. Die wahlweise Einbindung einer 
Maussteuerung ist bei Spielen dieses Genres äußerst ent¬ 
spannend. In der neuesten Version von »Black Jack« sind 
nicht einmal mehr die Wetteinsätze unbedingt von Tastatur 
einzugeben; alternativ erscheint ein Zehnerblock mit Zif¬ 
fern zum Anklicken. Nach diesem ausführlichen Streifzug 


- Ein regelrechter Grafik-Importeur ist der »Graphics Grab¬ 
ber«. Diese Applikation (Bild 2) überträgt Grafiken aus 
Printshop, Printmaster und Newsroom ins Geos-Format. 
Diese Bilder werden wahlweise in Foto-Scraps übertragen, 
so daß sie unmittelbar in Geos-Dokumente passen. In Foto¬ 
alben gesammelt sind sie auch jederzeit verfügbar. Die 
konvertierten Grafiken passen nicht nur in Geopaint- und 
Geowrite-Dateien, sondern sogar in Geofile-Masken und 
Geopublish-Seiten. 

Nicht mit dem »Graphics Grabber« zu bearbeiten sind 
gängige Bitmaps, etwa von Hi-Eddi, Koala-Painter, Dia- 
shows, Doodle oder Blazing Paddies. Hierfür finden Sie in 
diesem Heft das Listing »Bitmap-Converter«. 

Der Datei ein Icon geben 


- Im Gegensatz zu den stereotypen Filenamen von C64/ 
128-Dateien bietet Geos zusätzlich die Möglichkeit, Icons 
(Piktogramme) zu verwalten. Doch Nicht-Geos-Files, wie 
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Bild 3. Mit dem »Icon Editor« lassen sich auch die 
Piktogramme bestehender Geos-Programme ändern 





|!§ 



Bild 4. Black-Jack - die Unterhaltung für zwischendurch 

durch die Elemente des Desk Pack kommen wir nun zur nä¬ 
heren Betrachtung der beiden sicher wichtigsten Program¬ 
me: Geodex und Geomerge. 

Geodex (Bild 5) simuliert am Bildschirm eine Art Kartei¬ 
kasten. Zwischen den Einträgen blättert man mit dem 
Eselsohr (links unten) oder durch Anklicken eines Anfangs¬ 
buchstaben um. Durch Auswahl von »New« wird ein neuer 


Näheres zu Geodex und Geomerge 


Eintrag begonnen, den Geodex anhand des ersten Buch¬ 
staben im Nachnamen sofort richtig einsortiert. 

Die Eingabemaske von Geodex ist jetzt auf deutsche Be¬ 
dürfnisse ausgerichtet und läßt für jeden Eintrag recht viel 
Platz. Nur bei extrem langen Namen muß man zu Abkür¬ 
zungen greifen. Ein Verändern der Geodex-Eingabemaske 
ist nicht möglich, für solche Zwecke gibt es schließlich die 
leicht erlernbare Datenbank »Geofile«. 

Zwischen den einzelnen Eingabefeldern wechselt man 
per Knopfdruck, die Positionierung des Eingabecursors ist 
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damit sehr bequem. Die Cursortasten sind jedoch nicht be¬ 
rücksichtigt worden. Aber die wichtigsten Funktionen er¬ 
reicht man, außer über die Icons am rechten Fensterrand 



Bild 5. Geodex - eine Adreßverwaltung mit Komfort. 
Gemeinsam mit Geomerge und Geowrite-Dateien können 
auch Serienbriefe produziert werden. 

von Geodex, auch über Tastenkombinationen. Im einzel¬ 
nen stehen folgende Zusatzmöglichkeiten zur Verfügung: 

- Das Löschen eines ganzen Datensatzes mit einem ein¬ 
zigen Handgriff 

- Das Suchen nach Nachnamen und die Organisation 
nach Gruppen 

- Auto-Dial: automatisches Wählen einer Telefonnum¬ 
mer mit Modem, sehr interessant für DFÜ-Fans und gera¬ 
dezu eine ideale Ergänzung zu Geoterm, dem Super 
Terminal-Programm für Geos (als Listing in diesem Sonder¬ 
heft, Seite 6) 

-Ausdrucken der Daten (im Textmodus des Druckers, da¬ 
durch sehr schnell) in verschiedenen Formaten (Liste der 
Telefonnummern, Adreßetiketten in zwei Größen und Aus¬ 
gabe aller eingegebenen Daten) 

- Erstellen einer Einfügedatei (Merge-File) für die Weiter¬ 
verwendung mit Geomerge 

Jedem sein eigener Brief 


Der letzte bei Geodex erwähnte Punkt ist sehr interessant 
für die Erstellung von Rundschreiben (Serienbriefen), also 
von Texten, die im Prinzip nur mehrfach ausgedruckt wer¬ 
den, aber bei denen jeder »Empfänger« einen etwas ande¬ 
ren Ausdruck erhält. Zumeist liegen die Unterschiede nur 
in der Anrede, aber auch für etwas kompliziertere Fälle hat 
Geomerge Sonderfunktionen zu bieten. 

Die grundsätzliche Arbeit mit Geomerge läuft so ab, daß 
man mit Geowrite einen »Formtext« erstellt. Dieser ist ge¬ 
wissermaßen das Formular, in welches die Geodex-Adres- 
sen einzufügen sind. 

Sie verstehen sicher, daß die Verwendung von Serien¬ 
briefen vor allem im semiprofessionellen Bereich sehr ge¬ 
fragt ist. Deshalb unterstützen C64/128-Programme diese 
Funktion nur recht halbherzig. 

Anders ist es bei Geomerge in Verbindung mit Geowrite. 
Hat man erst einmal einen Formtext mit Geowrite erstellt, 
benötigt man nur noch eine Datei der einzusetzenden Da¬ 
ten. Diese erstellt Geodex nach der Tastenkombination 
<CBM M> und Eingabe des gewünschten Filenamens. 
Nun ist Geomerge in der Lage, anhand beider Dateien - 
Formtext und Adreßdatei - Serienbriefe zu erstellen. Dazu 
fragt das Programm, ob die Daten von Hand oder aus einer 


Datei eihzugeben sind. Dateien mit einzufügenden Daten 
müssen im Geowrite-Format vorliegen, können jedoch au¬ 
ßer mit Geowrite vor allem mit Geodex, Geofile und Geo- 
calc erstellt werden. 

Texte vorprogrammiert 


Die Texte mit den eingefügten Daten druckt Geomerge 
wahlweise direkt aus oder speichert jeden Text, fein säu¬ 
berlich numeriert, in einer neuen Textdatei. Nachbearbei¬ 
tungen sind damit jederzeit möglich, doch da Geomerge in 
gewissen Grenzen programmierbar ist, wird dies kaum nö¬ 
tig sein. Im Formtext lassen sich nämlich, ähnlich wie in Ba¬ 
sic, IF-Abfragen einbauen. Ein Beispiel wäre folgende Kon¬ 
struktion: 

Sehr geehrte< CIF Anrede = "m">>r HerrCCELSE 
>> Frau< <ENDIF> > <<Nachname>> I 

An jeder Stelle, wo etwas aus der Einsetzdatei einzufü¬ 
gen ist, wird der entsprechende »Label« (Name) in spitzen 
Doppelklammern angegeben. Im Beispiel ist dies der 
Nachname. 

Beim Ausdrucken würde Geowrite einfach den Text wie 
oben angezeigt ausgeben: Geomerge hingegen ersetzt 
diesen Teil des Textes, der mit den spitzen Doppelklam¬ 
mern markiert ist, durch den entsprechenden Vornamen ei¬ 
ner Geodex-Datei, und das so oft, bis die gesamte Adreßda¬ 
tei durchlaufen ist. 

Ist die IF-Abfrage erfüllt, so wird der direkt nachfolgende 
Text verwendet, ansonsten der Text nach < <ELSE> >. 
Mit < <ENDIF> > wird eine solche Abfrage abgeschlos¬ 
sen, die < <ELSE> >-Angabe ist allerdings optional. 

Sie sehen daran bereits, daß Geomerge ein äußerst flexi¬ 
bles Pr>*, amm ist, mit dem Serienbriefe auf denkbar einfa¬ 
che wie effektive Art erzeugt werden. 

Gesamturteil 


Alle sechs Bestandteile von Desk Pack 1/Geodex haben ei¬ 
nes gemeinsam: Es handelt sich um leicht bedienbare, 
aber durchaus leistungsfähige und interessante Program¬ 
me. Sie laufen mit jeder Geos-Version ab 1.2. Die Menüs 
sind englisch, aber alle sonstigen Bildschirmtexte, insbe¬ 
sondere die Eingabemaske in Geodex und die Monatsna¬ 
men im Kalender, wurden in die deutsche Sprache über¬ 
setzt. 

Geodex, Geomerge und Graphics Grabber müssen in¬ 
stalliert werden, die anderen Programme werden von An¬ 
fang an ohne Kopierschutz ausgeliefert. Der Kopierschutz 
ist in diesem Fall eine Seriennummer, die im Geos-Kernel 
steht und in die jeweilige Applikation eingetragen wird. 

Es empfiehlt sich daher - wie eigentlich bei allen Pro¬ 
grammen - die Installation auf einer Sicherheitskopie 
durchzuführen. Denn installiert man Geodex beispielswei¬ 
se unter Geos 1.2 und entschließt sich, auf Version 1.3 um¬ 
zusatteln, so läßt sich die einmal installierte Version unter 
Geos 1.3, das eine andere Seriennummer besitzt, nicht 
mehr starten. 

Alle sechs Programme von Desk Pack 1 lassen sich nach 
der erfolgten Installation auf jede Arbeitsdisk kopieren und 
stehen dort als wertvolle Arbeitserleichterungen, Unterhal¬ 
tung oder Hilfsprogramm zur Verfügung. Das Arbeiten mit 
Geos gestaltet sich durch Desk Pack 1/Geodex um so viel 
komfortabler, daß man sehr viel Software fürs Geld (69 
Mark) bekommt. (Florian Müller/kn) 


Desk Pack 1/Geodox erholten Sie Im Fachhandel für 69 Mark oder bol Markt & Technik Verlag 
AG, Hans-Pinsel-Str. 2, 8013 Haar bei München, Tel. (089) 4613-0 
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Starkes Duo für Geos VI .2 


Den Totalabsturz bei einem Geos-Systemfehler 
können Sie in Zukunft vergessen. Außerdem läßt 
sich Geos ab jetzt auch mit der Sicherheitskopie 
starten, während das Original gut geschützt im 
Schrank aufbewahrt wird. 

W er mit Geos 1.2 arbeitet, kennt das Problem. Man 
arbeitet mit einer Sicherheitskopie. Normalerweise 
kann man dann das Original in den Schrank stel¬ 
len. Nicht so bei Geos. Hier ist zum Starten des Systems im¬ 
mer noch die Originaldiskette notwendig. Wir geben Ihnen 
ein Programm in die Hand, mit dem Sie auch Ihre Kopie 
bootfähig machen können. Ein weiteres Problem, das die 
Arbeit mit Geos des öfteren erschwert, sind die von Zeit zu 
Zeit auftretenden Fehler. Hier erscheint in einem Fenster 
nur die lapidare Meldung »System Error near $XXXX«. Die¬ 
sem Fehlerteufel haben wir auf die Sprünge geholfen. Aber 
sehen Sie selbst, was wir Ihnen alles zu bieten haben. 

Nie wieder fötaler Absturz 


»Panic +« nennt sich ein Programm (Listing 1), das die 
Geos-Systemfehler auf geschickte Weise schon beinahe 
unschädlich macht. Anstatt den C 64 nach einer Fehlermel¬ 
dung ausschalten und Geos neu booten zu müssen, er¬ 


scheint nun ein Fenster, das den Anwender fragt, ob er das 
Desktop neu laden oder Geos verlassen will. Wenn Sie hier 
»YES« anklicken, wird das Desktop nachgeladen, anson¬ 
sten gelangen Sie zurück zum Basic. Anwendung des Pro¬ 
gramms: Klicken Sie das »Panic +«-lcon sofort nach dem 
Start von Geos zweimal an. Dann erscheint als erstes ein 
Systemfehler, was aber nicht weiter schlimm ist, da Panic 
+ in diesem Moment installiert ist. Klicken Sie »YES« an, 
um von da ab gegen alle System-Fehler gefeit zu sein. 

(Marco Toepke/rf/rs) 

Geos: Booten von Sicherheitskopie 


Jeder Geos-Anwender kennt dieses leidige Problem: Zwar 
kann eine Sicherheitskopie erstellt werden, zum Starten al¬ 
lerdings wird immer noch die Originaldiskette benötigt. 
Wenn diese dann beschädigt ist, geht erst mal nichts mehr. 
Hier können wir nun Abhilfe schaffen. Mit unserem »Boot¬ 
maker« (Listing 2) löst sich dieses Manko sehr schnell in 
Wohlgefallen auf. Dann nämlich startet Geos auch von Ih¬ 
rer Sicherheitskopie. Wie? Ganz einfach. Kopieren Sie die 
Originaldiskette wie gehabt auf eine neue Disk. Unmittel¬ 
bar darauf starten Sie den Bootmaker. Danach legen Sie 
die Kopie ein und drücken eine beliebige Taste. Ab diesem 
Zeitpunkt stellen Sie die Originaldiskette in den Schrank - 
für den Fall der Fälle. (S. Willmeroth/A. Wickler/rf/rs) 
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69 
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Listing 1. »Panic +« umgeht den 
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Listing 2. Mit dem »Bootmaker« läßt 
sich Geos ohne das Original 
starten. Zur Eingabe verwenden Sie 
bitte den MSE (Seite 159). 
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Effektives Kopieren mit Geos 

Geos kopiert Ihre Dateien auf denkbar einfache Weise. 

Alles, was Sie dazu benötigen, ist ein Joystick oder eine Maus. 

Der Schlüssel zum Kopieren liegt im Rand des Desktop-Bildschirms. 

Einfacher geht’s nicht mehr. 


Z entrale Bedeutung kommt beim Kopieren unter Geos 
dem »Rand« einer Diskette zu. Dies ist der Bereich am 
Desktop-Bildschirm, der unterhalb des Disketten-Ar- 
beitsblattes liegt und nach rechts vom Druckersymbol be¬ 
grenzt wird (Bild 1). Dateien auf dem Rand sind mühelos auf 
andere Disketten übertragbar. Zur Demonstration kopieren 
wir die Datei »Desktop« von der Boot-Disk auf eine neue 
Diskette. 

Dazu bewegen Sie den Mauszeiger auf das entspre¬ 
chende Piktogramm mit dem Namen »Desktop« und lösen 
den Feuerknopf aus. Nach 
etwa zwei Sekunden 
drücken Sie den Knopf ein 
zweites Mal. Die Datei 
wird beweglich und läßt 
sich mit dem Joystick auf 
den Rand verschieben. 

Ein erneuter Druck auf 
den Feuerknopf legt die 
Datei dort ab. 

Keine Angst: Desktop 
wird nicht gelöscht. Mit 
derselben Technik, mit der 
er auf den Rand bewegt 
wird, läßt er sich von dort 
an seine Ausgangslage 
(Disketten-Arbeitsblatt) 
zurückversetzen. 

Dateien, die am Rand 
liegen, lassen sich ver¬ 
wenden wie alle anderen. 

Eine Besonderheit haben 
Sie gemeinsam. Auch nach einem Diskettenwechsel ste¬ 
hen die auf den Rand ausgelagerten Dateien zur Verfü¬ 
gung. 

Fahren wir fort mit dem Kopieren von »Desktop«. Schie¬ 
ben Sie eine neue und formatierte Diskette in das Laufwerk. 
Diese darf bereits Daten enthalten. Melden Sie die Diskette 
durch Anklicken des Disketten-Symbols bei Geos an. Der 
Rand wird dabei nicht gelöscht - im Gegenteil, es kommen 
sogar möglicherweise noch Dateien vom Rand der neuen 
Diskette hinzu. Zwar steht die auf dem Rand liegende Datei 
»Desktop« noch zur Verfügung, läßt sich jedoch nicht star¬ 


ten oder löschen. Nach dem bereits angesprochenen 
»Pause-Doppelklick« bei »Desktop« steht einer Verlage¬ 
rung des Piktogramms nichts im Wege. Schieben Sie das 
Symbol jetzt mit Hilfe des Joysticks in das Disketten-Ar¬ 
beitsblatt (das den Inhalt der neu eingelegten Diskette 
zeigt). 

Geos versteht dieses Ablegen des Piktogramms »Desk¬ 
top« als A .fforderung zum Kopieren der Datei auf die neu 
eingelegte Diskette (Zieldiskette). 

Deshalb reagiert Geos, sobald man das Piktogramm per 

Feuerknopf im Arbeits¬ 
blatt positioniert, mit ei¬ 
nem Kopierfenster und bit¬ 
tet darum, diejenige Dis¬ 
kette einzulegen, von der 
die Datei »Desktop« 
stammt. Füttern wir das 
Laufwerk mit der alten Dis¬ 
kette und klicken das Feld 
mit dem Inhalt »OK« an 
(»Abbruch« bricht den Ko¬ 
piervorgang ab). Geos 
liest den Inhalt der Datei 
ein. 

Nach dem Lesevorgang 
ist die Diskette zu wech¬ 
seln, damit alle soeben 
eingelesenen Daten auf 
die Zieldiskette kommen; 
das dazu erscheinende 
Kopierfenster kennen Sie 
bereits. 

Meistens genügt ein Diskettenwechsel. Lange Dateien 
wie Desktop erfordern zwei oder mehr Durchgänge. Da 
Geos sich mit präzisen Kommentaren meldet und falsch 
eingelegte Disketten sofort erkennt, sind Fehlbedienungen 
so gut wie ausgeschlossen. 

Auf diese Art und Weise lassen sich schnell und unkom¬ 
pliziert Arbeitsdisketten für Geowrite und Geopaint erstel¬ 
len. Für diese Programme reicht der Platz auf der Geos- 
Diskette nicht mehr aus, sobald ein Text oder ein Bild ge¬ 
speichert wird. 

(Florian Müller/rf/rs) 



Bild 1. Der Aufbau des Desktop-Bildschirms: Die Bestand¬ 
teile sind auf einen Blick ersichtlich. Auch der Kopier¬ 
vorgang spielt sich größtenteils in diesem Fenster ab. 
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Mini-Publishing mit Geos 


Mit Geowrite Workshop verfügt der Geos-Anwen- 
der über ein umfassendes Paket zur Gestaltung 
optisch ansprechender Texte. In einem unschein¬ 
baren Hilfsprogramm steckt jedoch der Schlüssel 
zum rudimentären Desktop Publishing - dem 
neuen Trend in der Textverarbeitung. 

E in Bestandteil von Geowrite Workshop namens »Paint 
Drivers«, ein eher unscheinbares Utility, eröffnet bei 
kreativem Gebrauch ungeahnte Möglichkeiten der 
Textgestaltung. Denn obwohl Geowrite 2.1 bereits Grafik¬ 
einbindung, Textattribute und mehrere Zeichensätze 
kennt, bleiben noch individuelle Wünsche - die kein Pro¬ 
gramm ohne weiteres erfüllen kann - offen. 

Ein Katzensprung vom Text zur Grafik 


Die Übernahme von Grafikausschnitten in Geowrite-Texte, 
die auch im Kurs »Grafik und Geos« (Seite 57) besprochen 
wurde, ist in dieser Form für C64-Programme eine absolute 
Neuheit. 

»Paint Drivers« dient nun dazu, Geowrite-Dokumente 1:1 
in Geopaint-Dateien zu übertragen. Sogar die vom jeweili¬ 
gen Drucker abhängigen Formate werden übertragen. Da¬ 
zu startet man die Applikation »Paint Drivers« durch Dop¬ 
pelklicken und bestimmt in einer Dialogbox, welchen 
Druckertreiber man normalerweise zum Ausdrucken ver¬ 
wendet. Deshalb ist dieser vorher auf die Geowrite-Work- 
shop-Diskette zu kopieren. 

Anschließend erstellt »Paint Drivers« auf der Diskette 
zwei weitere Druckertreiber namens »Paint OVERLAY« und 
»Paint PAGES«. Diese werden wie herkömmliche Drucker- 


3) Anschließend »druckt« man den gewünschten Geo- 
write-Text (Bild 1) aus, wobei kein Zeichen auf den Drucker 
kommt, sondern die fertige Geopaint-Datei erstellt wird. De¬ 
ren Dateiname lautet beispielsweise »PAGE 1«. 

4) Nun kann man in Geopaint wechseln, um die erstellte 
Bilddatei - den ursprünglichen Text - weiterzubearbeiten. 
Zum tatsächlichen Ausdrucken ist der alte Druckertreiber 
(bei Schritt 1 bestimmt) wieder zu aktivieren! 

Auf den ersten Blick erscheint die Konvertierung eines 
Textes in eine Grafik nicht so nützlich, wie sie ist. Bild 2 zeigt 
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Bild 2. Der Text, mit Geopaint nachbereitet 

nur c..' satzweise, in welcher Weise sich Nachbearbeitun¬ 
gen vornehmen lassen. Hier ein paar Anregungen, die teil¬ 
weise aus den Bildern 1 und 2 ersichtlich sind: 

Ungeahnte Möglichkeiten 


treiber durch die Option »Drucker auswählen« unter Desk¬ 
top aktiviert. Die Besonderheit von »Paint OVERLAY« und 
»Paint PAGES« liegt nun darin, daß diese beim Ausdrucken 
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geouirite-text = 


Dank des Hilfsproqramms "Paint Driver", eines Bestandteils 
von GeoWrile Workshop, ist nun mit GEOS auch einfaches 
Desktop-Publishlng möglich. 


Andra mol ennepe mousa, poluqropon, os mala polla 
plancth.epei Troihs ieron ptolieqron eperse. Pollivn .. 


Bild 1. Textdokument in Geowrite 2.1 


eines Geowrite-2.1-Dokumentes adäquate Geopaint-Bilder 
erzeugen. Da sich beide Applikationen, Geowrite und Geo¬ 
paint, des DIN-A4-Formates bedienen, ist diese Übertra¬ 
gung leicht möglich. Dazu geht man in vier Schritten vor: 
1) Sie starten »Paint Drivers« wie bereits beschrieben, und 
erhalten zwei weitere Druckertreiber. 

2) Nun wählen Sie zwischenzeitlich unter Desktop den 
Druckertreiber »Paint OVERLAY« (alle Geowrite-Seiten 
»überlappen« sich zu einem einzigen Geopaint-Bild) oder 
»Paint PAGES« (erstellt zu jeder Geowrite-Seite ein eigenes 
Dokument) aus. Hat man nur eine einzige Textseite, er¬ 
übrigt sich die Unterscheidung ohnehin. 


- Grafik neben oder über Text ist sonst nicht möglich. 

- Ein Textrand kann mit Füllmustern oder aufwendigen 
Zeichnungen verziert werden. 

- Invertierte Texte sind durch den Geopaint-Textmodus 
oder das Invertieren markierter Bereiche möglich. 

- Die Einrahmung von Textblöcken durch Rechtecke (oder 
sonstige Formen) erhöht die Übersichtlichkeit eines Textes. 

- Theoretisch lassen sich mehr als 8 oder 9 Zeichensätze 
(Fonts) in einem Dokument verwenden, indem das Doku¬ 
ment auf mehrere Texte aufgeteiit wird, die unter 
Geopaint zu einer einzigen Grafik verknüpft werden. 

- Äußerst ansprechend ist die Verzierung großer OUTLINE- 
Schriften (Schriftstil »Kontur«) durch Ausfüllen mit Füllmu¬ 
stern, wie in Bild 2 zu sehen. Prinzipiell erhöht sich damit 
noch einmal die Anzahl verfügbarer Schriftarten. Aller¬ 
dings eignen sich nicht alle Füllmuster (am besten: 
waagrechte oder senkrechte Schraffuren). Auch das Aus¬ 
füllen mit einfarbig schwarzem Muster ermöglicht »Extra 
Bold« (Super-Fettschrift). 

Das Markieren der Füllpunkte ist nur im Einzelpunktmo¬ 
dus möglich, weil der Wasserhahn sonst »ausläuft«. 

- Mit einigem Aufwand, aber dennoch realisierbar, sind 
mehrspaltige Dokumente durch Verschieben von engen 
Grafikbereichen, die aus ehemaligen Texten bestehen. 

- Nicht zu verachten ist die Möglichkeit, einmal in Geopaint 
»gestylte« Texte wieder als »Photo Scraps« in Geowrite- 
Dokumente zu übernehmen. 

Nun aber viel Spaß bei der Anwendung dieser raffinier¬ 
ten Gestaltungstechnik. (Florian Müller/rf/rs) 
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Rundschreiben mit Geos 

Wie es sich für ein Profisystem nun einmal gehört, 
eignet sich auch Geos zum Erfassen von »Serienbriefen«. Eine hervorragende 
Anwendung, die nur mit dem Computer möglich ist. 


G eomerge ist zweifelsohne der professionellste Be¬ 
standteil der Desk Pack-Programmkollektion. Ein lei¬ 
stungsstarkes Programm, das in Verbindung mit 
Geowrite (enthalten im Geos-Basispaket) und Geodex (Be¬ 
standteil des Desk Pack) eine wichtige Programmfunktion 
zur Verfügung stellt: Serienbriefe. 

Von Serienbriefen spricht man, wenn ein Brief an mehre¬ 
re Personen verschickt werden soll, der für jeden einzelnen 
Empfänger nur in Details anzupassen ist, zum Beispiel 
durch Einfügen der richtigen Anschrift oder des Namens. 

Ohne Computer müßte man jeden Brief neu schreiben 
oder ein Formular vervielfältigen, das handschriftlich aus¬ 
gefüllt wird. Doch mit guten Textprogrammen, allen voran 
Geowrite (in Verbindung mit Geomerge), gehört diese lästi¬ 
ge Routinearbeit der Vergangenheit an. 

Serienproduktion von Briefen 


Die einzusetzenden Daten (zumeist Adressen) erfaßt 
man getrennt vom eigentlichen Text, in einer Geodex-Datei. 
Geodex ist ein flexibles und äußerst leicht bedienbares Pro¬ 
gramm zur Adreßverwaltung. Wer mehr darüber wissen 
will, sei auf die Serie »Geos glasklar« im Einsteigerteil des 
64’er-Magazins verwiesen. 

Die Adressen gelangen ganz einfach in den Text des Se¬ 
rienbriefes. Drücken Sie unter Geodex <CBM> und 
<M> gleichzeitig. Dann ist ein Dateiname (z.B. »Adres¬ 
sen«) einzugeben, und schon entsteht eine »Mischdatei« 
(englisch: »merge file«). Dies ist im Prinzip ein Geowrite- 
Text, der alle einzusetzenden Daten enthält. Sehen Sie sich 
nun diese Mischdatei mit Hilfe von Geowrite an. 



Bild 1. In solch einen Formtext setzt Geomerge Daten ein 

Ab der zweiten Seite stehen dann, in alphabetischer Rei¬ 
henfolge, die Inhalte der Geodex-Datei. Damit ist uns je¬ 
doch noch nicht geholfen. Wir möchten ja, daß Namen und 
Adressen in unseren Text eingegliedert werden, so daß für 
jeden Geodex-Eintrag — sprich: jede Person — ein »per¬ 
sönlicher« Ausdruck entsteht. 

Deshalb gehen wir zurück auf die erste Seite der Misch¬ 
datei. Die dort verzeichneten, englischen Begriffe reprä¬ 
sentieren jeweils eine bestimmte Sorte von Dateieinträgen: 
first = Vorname, last = Nachname, misc = Sonstige, 

addrl = Adresse Teil 1.phone = Telefonnummer. Der 

Stern (*) gibt das Ende dieser Liste an; die Begriffe werden 


»Label« (Beschriftungen) genannt und sind mit Basic- 
Variablen vergleichbar. Sie heißen deshalb auch 
»Text-Variablen«. 

Nun schließen wir die Mischdatei und eröffnen eine neue 
Geowrite-Datei namens »Formtext«. Diese soll den Brief 
enthalten, in welchen die speziellen Angaben für die einzel¬ 
nen Personen einzusetzen sind (Bild 1). An jeder Stelle, an 
der beim Ausdrucken etwas aus der Mischdatei eingefügt 
werden soll, setzen wir den gewünschten Label in eckige 
Doppelklammern, beispielsweise «first» für den Vornamen 
(siehe Bild 1). Für Geowrite ist dies ohne Bedeutung, doch 
für Geomerge heißt das, daß bei künftigen Druckvorgängen 
an diesen Stellen Inhalte der Mischdatei eingesetzt wer¬ 
den. So würden an der mit «first» bezeichneten Stelle je¬ 
weils die richtigen Vornamen erscheinen. 

Da Geowrite für sich genommen nicht in der Lage ist, Se¬ 
rienbriefe zu drucken, starten wir Geomerge. Auf unserer 
Arbeitsdiskette sollten sich jetzt die Geowrite-Texte »Form¬ 
text« und »Adressen« (die umgewandelte Geodex-Datei) 
sowie der gewünschte Druckertreiber befinden. Unter Geo¬ 
merge wird nun zuerst der »Formtext« selektiert. Die Frage, 
ob die Einsetzdaten aus einer Datei zu beziehen sind, muß 
mit »Ja« beantwortet werden, denn Geomerge läßt auch die 
Eingabe von Hand zu. 

Einstellung zum Drucken 


Wählen wir nun unsere Datei »Adressen« aus. Jetzt sind die 
letzten Einstellungen vor dem Durchlaufen des Ausdrucks 
zu tätigen. Es steht die Wahl zwischen Grafik-, NLQ- und 
Entwurfsdruck. Der Ausgabemodus »Datei« bedeutet, daß 
anstelle des Drückens auf Papier für jeden Eintrag der 
Mischdatei eine eigene Geowrite-Datei entsteht. Ihr Inhalt 
stimmt überein mit einem entsprechenden Geomerge-Aus- 
druck auf Papier. Die Daten sind also jeweils eingesetzt. Es 
entstehen so viele Dateien, wie Einsetzdaten vorhanden 
sind. Der Vorteil der Datei-Ausgabe liegt in der Speiche¬ 
rung und Nachbearbeitung. Dies ist jedoch nur in Einzelfäl¬ 
len nötig. 

Doch mit dem einfachen Einfügen von Daten ist die Lei¬ 
stungsgrenze von Geomerge noch lange nicht erreicht. So 
ist es auch'ohne weiteres möglich, »intelligente« Textgestal¬ 
tung mit Konstrukten wie »IF «first = "Mike"» Hello Mike, 
«ELSE» Hallo, «ENDIF»« vorzunehmen, das heißt der Text¬ 
inhalt richtet sich zumindest teilweise nach den einzufü¬ 
genden Daten. Eine sinnvolle Anwendung wäre die Reali¬ 
sierung einer korrekten Anrede: bei männlichen Empfän¬ 
gern »Sehr geehrter Herr«, bei weiblichen Adressaten 
»Sehr geehrte Frau«. 

Noch nie war es leichter, Serienbriefe mit persönlichem 
Flair zu schreiben. Übrigens: Geomerge ist nicht nur Be¬ 
standteil von Desk Pack, sondern wird auch mit Geowrite 
Workshop (siehe auch Test auf Seite 94) und Geofile, der 
Geos-Dateiverwaltung, ausgeliefert. Es ist also aus der 
Geos-Welt nicht wegzudenken. Damit wird eine Lösung ge¬ 
boten, die sonst nur bei teuren und professionelleren Pro¬ 
grammen dieser Art zu finden ist. Ihre nächsten Einladun¬ 
gen werden dann auch mit Geomerge verwirklicht, oder? 

(Florian Müller/rs) 
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Daten verwalten 
Basic 


B: 


,asic - ein leichter Einstieg 
.in die Computer-Program- 
'mierung. Mit dem C64 
können Sie bereits nach kurzer Zeit kleine 


Fasziniert Sie das 
Programmieren? Hier erfahren 
Sie, wie man am geschicktesten 
umfangreiche Daten mit dem C64 verwaltet. 
Schnell auf die Adressen aller Bekannten zugreifen oder 
das Archivieren Ihrer Schallplattensammlung - alles kein Problem. 
Im ersten Kurs lernen Sie alle Grundlagen der Dateiverwaltung 
bis hin zu »den Höhen« eigener Datenbanken in Basic. 


Programme in Basic selbst erstellen, beispielsweise 
einen Ball über den Bildschirm bewegen oder einfache 
mathematische Berechnungen. Will man allerdings mehr 
als solche kleine »Spielereien« programmieren, kommt 
man allmählich in ernsthafte Schwierigkeiten. 

Eigene Ideen lassen sich nicht realisieren, weil man nicht 
weiß, wie Daten dauerhaft gespeichert werden. 

Dieser Kurs soll jedem etwas bieten, dem Einsteiger 
ebenso wie dem in Sachen Dateiverwaltung bereits Fortge¬ 
schrittenen. Als Einsteiger finden Sie am Anfang so grund¬ 
legende Dinge erläutert wie »Geräteadressen« oder »Über¬ 
tragungskanäle«. Wenn Sie sich zu den Fortgeschrittenen 
zählen, sind für Sie bestimmt die Kapitel über »relative Da¬ 
teien« und über »Direktzugriff« interessant. Wenn Sie auch 
in Maschinensprache eine Dateiverwaltung programmie¬ 
ren wollen, bietet Ihnen anschließend der Kurs 2 »Daten 
verwalten in Assembler« auf Seite 128 das notwendige 
Werkzeug dazu. 

Das erste Beispiel: Sie wollen ein Programm schreiben, 
das Ihre Adressen verwalten soll, eine »Adreßverwaltung«. 
Sicher haben Sie keine große Lust, Ihre Adressen nach je¬ 
dem erneuten Einschalten des Computers neu einzuge¬ 
ben. Also stellt sich Ihnen das Problem der dauerhaften 
Speicherung von Daten. 

Programme dauerhaft zu speichern, ist kein Problem. 
Die Befehle LOAD und SAVE machen es Ihnen leicht, Pro¬ 
gramme auf Datasette oder Diskette zu speichern und je¬ 
derzeit wieder zu laden. 

Auch die Speicherung von Daten beschreibt das Hand¬ 
buch Ihres C64/C128. Aber wie! Indem es Sie gleichzeitig 
mit »sequentieller Datenspeicherung«, mit »Kanälen«, mit 
»Sekundäradressen« und weiteren Begriffen überfordert. 
Wenn Sie trotz dieser Hindernisse bereits Ihre ersten Ver¬ 
suche hinter sich haben, kennen Sie bestimmt folgende 
Probleme: 

- nach dem Start des Programms blinkt das rote Lämpchen 
an der Floppy, die damit einen Fehler signalisiert, 


- dac Speichern der Daten scheint zu klappen, beim 
Einlesen am nächsten Tag taucht jedoch nur ein 
kleiner Teil der eingegebenen Adressen auf, der Rest 
bleibt verschwunden, 

- Fehlermeldungen wie »FILE DATA ERROR IN...« oder 
»FILE NOT FOUND IN...«, erscheinen auf dem Bildschirm. 

Trösten Sie sich: So geht es nicht nur Ihnen, sondern 
wohl jedem Einsteiger in die Dateiverwaltung. Das Spei¬ 
chern und Laden von Daten ist nicht im geringsten mit dem 
Speichern und Laden von Programmen vergleichbar. Die 
Verwaltung von Daten mit Hilfe eines Massenspeichers wie 
Floppy oder Datasette gehört mit zum Schwierigsten, was 
Basic oder auch andere Programmiersprachen bieten. 

Bevor Sie nun in diesem Kurs »wild umherspringen«, 
muß ich Sie jedoch warnen: alle Kapitel bauen aufeinander 
auf. Deutlich wird das vor allem an unserem »Demonstra¬ 
tions-Objekt«, einer Adreßverwaltung, die sehr einfach be¬ 
ginnt. Dieses Programm wird Schritt für Schritt ausgebaut 
und erweitert. Es wird zum Schluß zwar immer noch keine 
»professionelle« Dateiverwaltung sein, aber alle grundle¬ 
genden Möglichkeiten dieser Programmart enthalten. Sie 
können Daten eingeben, ändern, löschen, suchen und sor¬ 
tieren. Im einzelnen wird Sie folgendes erwarten: 

I. Grundlagen der Datenspeicherung: Erläuterung der 
Grundbegriffe (Dateien, Kanäle, Sekundäradresse und an¬ 
dere) bei der Datenübertragung anhand kleiner Beispiele. 
Aufbau einer Mini-Dateiverwaltung, die mit sequentiellen 
Dateien arbeitet. 

II. Relative Dateien: Grundlagen und praktische Anwen¬ 
dung. Die sequentielle Dateiverwaltung wird »umgebaut« 
und arbeitet nun mit relativen Dateien. 

III. Index-sequentielle Dateien: Verbindung des relativen 
und des sequentiellen Zugriffs in einer Datei. 

IV. Direktzugriff: unsere Adreßverwaltung wird schneller; 
den relativen Zugriff ersetzen wir durch die schnellste Zu¬ 
griffsform, den »Direktzugriff«. 
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Sollten Sie nur eine Datasette besitzen, muß ich Sie ein 
wenig enttäuschen: mit einem Großteil dieses Kurses kön¬ 
nen Sie nichts anfangen. Die Datasette ist leider nicht in der 
Lage, relative oder index-sequentielle Dateien zu verwal¬ 
ten. Ebensowenig ist hier der im folgenden behandelte Di¬ 
rektzugriff möglich. Nach den ersten Kapiteln sind die prak¬ 
tischen Übungen für Sie dadurch nicht mehr nachzuvoll¬ 
ziehen. 

I. Grundlagen der Datenspeicherung 


Es soll Basic-Programmierer geben, die aus Verzweiflung 
über mißlungene Versuche mit der Datenspeicherung ihre 
Daten einfach im Programm selbst speichern, zum Beispiel 
in DATA-Zeilen: 

1000 DATA "MAIER" , "WILLI" , "MAIERSTR.5" , "6800 
MANNHEIM" 

Diese Methode ist nicht gerade sehr komfortabel. Jede 
Änderung einer im Programm selbst gespeicherten Adres¬ 
se bedeutet, daß ein Eingriff in das Programm erfolgen 
muß. Wenn Sie eine solche Methode im Sinn haben, emp¬ 
fehle ich Ihnen, Ihren Computer zur Seite zu legen und sich 
Ihre Adressen auf einem Zettel zu notieren. Diese Methode 
ist der Speicherung von Adressen direkt im Programm vor¬ 
zuziehen. 

Komfortabel wird der Einsatz eines Computers erst, 
wenn Daten und Programm getrennt gespeichert werden. 
Die Daten sind nicht im Programm selbst enthalten, son¬ 
dern das Programm übernimmt nur steuernde Aufgaben. 
Die Daten werden in einer eigenen Datei gespeichert. Die 
Arbeit mit dieser Datei verläuft so: 

1. Sie laden und starten das »Steuerungsprogramm«, die 
eigentliche Dateiverwaltung. 

2. Nach dem Start übernimmt das Programm bereits ge¬ 
speicherte Daten in den Speicher, in sogenannten Array- 
Variablen. 

3. Die Arbeit mit der Datei erfolgt nun ausschließlich im 
Speicher durch Manipulation der Variablen, die Daten ent¬ 
halten. 

4. Vor dem Ausschalten des Rechners wird die komplette - 
inzwischen veränderte - Datei wieder auf Diskette oder 
Kassette gespeichert. 

Diese vier Schritte beschreiben den Umgang mit soge¬ 
nannten »sequentiellen Dateien«, der einfachsten Form der 
Datenspeicherung. Wie Sie sehen, spielen sich praktisch 
alle Schritte im Rechner selbst ab. Und genau darum wer¬ 
den wir uns zuerst kümmern: um die Organisation von Da¬ 
ten im Speicher. 

Vorhin sprach ich von Array-Variablen. Theoretisch kön¬ 
nen Sie zur Speicherung Ihrer Adressen auch einfache Va¬ 
riablen verwenden, zum Beispiel so: 

100 REM ERSTE ADRESSE 

110 INPUT "NAME DER 1.ADRESSE";N1$ 

120 INPUT "WOHNORT DER 1.ADRESSE";W1$ 

130 INPUT "TELEFONNUMMERDER 1.ADRESSE";T1$ 

140 : 

150 REM ZWEITE ADRESSE 

160 INPUT "NAME DER 2.ADRESSE";N2$ 

170 INPUT "WOHNORT DER 2.ADRESSE";W2$ 

180 INPUT "TELEFONNUMMERDER 2.ADRESSE";T2$ 


Dieses Programm fordert Sie zur Eingabe von zwei 
Adressen auf, die jeweils aus den Teilen »Name«, »Wohn¬ 
ort« und »Telefonnummer« bestehen. Das Programm kann 
natürlich beliebig erweitert werden. Auf diese Weise zum 


Beispiel 100 Adressen zu verwalten, erspare ich Ihnen lie¬ 
ber. 

Wir werden im folgenden ausschließlich Array-Variablen 
zur Datenspeicherung verwenden. Da dieser Kurs kein 
Basic-Kurs ist, muß ich voraussetzen, daß Sie diese Varia¬ 
blenart kennen. Wenn nicht, schlagen Sie bitte unter einem 
der Stichworte »Array-Variablen«, »Felder«, »indizierte Va¬ 
riablen« oder »Matrizen« im Handbuch oder eventuell vor¬ 
handener Computer-Literatur nach. 

Mit Array-Variablen könnte man einen Programmteil zur 
Eingabe beliebig vieler Adressen so schreiben: 

100 REM *** ADRESSEN EINGEBEN ### 

110 ANZAHL=1:REM ANZAHL: ZAEHLVARIABLE (ADRESSEN 
ANZAHL) 

120 INPUT "NAME";N$(ANZAHL) 

130 INPUT "WOHNORT";W$(ANZAHL) 

140 INPUT "TELEFONT$(ANZAHL) 

150 IF N$(ANZAHL)< > "ENDE" TUEN ANZAHL=ANZAHL+1: 
GOTO 120 

160 ANZAHL=ANZAHL-1:REM ZAEHLER KORRIGIEREN 
170 : 

180 REM *** ADRESSEN AUF SCREEN AUSGEBEN *#x 
190 FOR 1=1 T0 ANZAHL 
200 : PRINT N$(I) 

210 : PRINT W$(I) 

220 : PRINT T$(I) 

230 NEXT I 

Dieses Demoprogramm fragt Sie immer wieder nach ei¬ 
ner weiteren Adresse. Jede Adresse besteht aus den drei 
Teilen »Name«, »Wohnort« und »Telefon«. Das Programm 
legt diese Teile im Hauptspeicher in drei Stringarrays ab, in 
N$(..), W$(..) und T$(..). 

Sehr wichtig ist die Variable ANZAHL. Nach jeder Einga¬ 
be einer weiteren Adresse wird ANZAHL um 1 erhöht. Zum 
Schluß enthält diese Variable - wie der Name sagt - die 
Anzahl aller eingegebenen Adressen. 

Die »Eingabeschleife« wird beendet, wenn Sie als Name 
»ENDE« eingeben (siehe Zeile 150). Anschließend wer¬ 
den alle eingegebenen Adressen wieder auf dem Bild¬ 
schirm ausgegeben. Geben Sie bitte nicht mehr als zehn 
Adressen ein oder dimensionieren Sie die drei Arrays am 
Programmanfang in der benötigten Größe, zum Beispiel 
mit der Basic-Zeile 

90 DIM N$(100),W$(100),T$(100):REM MAXIMAL 100 AD¬ 
RESSEN 



N$ (...) 

W$ (...) 

T$ (•••) 

1 

Maier 

Muenchen 

12459 

2 

Bauer 

Mannheim 

97834 

3 

Xaver 

Koblenz 

8521 7 

4 

Mayer 

Heidelberq 

717825 

5 

Brunner 

Stuttgart 

320456 


Bild 1. Der C 64 organisiert die Bestandteile einer Adresse 
auf diese Weise im Speicher 


Die Datenorganisation im Speicher des C 64 zeigt Bild 1. 
Bei dieser Abbildung wird vorausgesetzt, daß Sie fünf 
Adressen eingaben (ANZAHL hat entsprechend den Wert 
5). 

Problematisch wird es, wenn Sie diese Adressen nun 
dauerhaft speichern wollen. Speichern heißt, daß die Inhal¬ 
te der drei String-Arrays nicht auf dem Bildschirm, sondern 
auf Kassette beziehungsweise Diskette ausgegeben wer¬ 
den. 

Ausgaben auf andere Geräte als den Bildschirm erfor¬ 
dern den Umgang mit sogenannten »logischen Dateien«. 
Stellen Sie sich Ihren Computer bitte als einsamen und iso¬ 
lierten Kasten vor, den nur einige wenige Kabel mit »Peri¬ 
pheriegeräten« verbinden, mit der Datasette, der Floppy, 
dem Drucker und dem Bildschirm. Um Daten zwischen 
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dem Computer und einem solchen Peripheriegerät zu 
übertragen, muß zuerst eine Verbindung zwischen den bei¬ 
den Geräten hergestellt, eine logische Datei »geöffnet« 
werden. 


Öffnen einer logischen Datei (OPEN) 


Lese- und Schreibzugriffe auf Peripheriegeräte erfordern 
als Vorbereitung das Offnen einer »logischen Datei« oder 
auch eines »Daten-« beziehungsweise »Obertragungska¬ 
nals«. 

Zum Öffnen einer logischen Datei gibt es die OPEN- 
Anweisung. OPEN allein genügt leider nicht, der Computer 
will schließlich wissen, welches Gerät gemeint ist. 

Ihr C64/C128 kennt sogenannte »Standardein-/Ausga- 
begeräte«. Wenn Sie nicht zuvor mit der OPEN-Anweisung 
ein bestimmtes Gerät ansprachen, geht der Basic- 
Interpreter bei jeder Schreibanweisung (PRINT) davon aus, 
daß Sie das »Standardausgabegerät« Bildschirm meinen. 
Ebenso wird im Normalfall jede Leseanweisung (IN- 
PUT/GET) das »Standardeingabegerät« Tastatur anspre¬ 
chen. Ein Datenaustausch mit jedem anderen Gerät erfor¬ 
dert das Öffnen einer logischen Datei mit der OPEN- 
Anweisung: 

OPEN LFN,GN[,SA,][, * Name,Typ,Zugriff*] 

Sie sehen, die OPEN-Anweisung ist ziemlich umfang¬ 
reich und entsprechend kompliziert. Alle Angaben in ecki¬ 
gen Klammern sind »optional«, das heißt sie werden nicht 
in jedem Fall benötigt. 

Die Angaben »Name,Typ,Zugriff« werden nur beim Da¬ 
tenaustausch mit der Floppy benötigt. Um zum Beispiel 
den Drucker oder die Datasette anzusprechen, genügt die 
einfachere Form: 

OPEN LFN,GN[,SA,] 

Die Gerätenummer (GN) 

GN ist die »Gerätenummer« oder auch »Geräteadresse« 
und gibt an, welches Gerät angesprochen wird: 
0=Tastatur 
1 = Datasette 
3=Bildschirm 
4=Drucker 
8=Floppy 

Die logische Filenummer (LFN) 

LFN ist die sogenannte »logische Dateinummer« oder 
»logische Filenummer« (File ist der englische Ausdruck für 
Datei). 

Diese Nummer ist eine Zahl zwischen 1 und 255, die Sie 
beliebig wählen dürfen. Man könnte sagen: Sie geben dem 
Kanal, den Sie öffnen, eine beliebige, von Ihnen frei wähl¬ 
bare Nummer (innerhalb der Grenzen 1 bis 255). 

Zum Sinn dieser Nummer: Stellen Sie sich vor, Sie öffnen 
nicht nur einen, sondern zwei Übertragungskanäle zum 
Beispiel zur Floppy. Über den einen Kanal wollen Sie Daten 
von Diskette aus einer Datei mit dem Namen »ADRESSEN« 
lesen, über den zweiten Kanal wollen Sie Daten von Disket¬ 
te aus einer anderen Datei namens »TEST« lesen. Für jede 
Datei müssen Sie einen eigenen Kanal öffnen. Da zwei Ka¬ 
näle zu öffnen sind, verwenden Sie zwei OPEN-Befehle, 
wobei in beiden als Gerätenummer 8 anzugeben ist, die 
»Adresse« der Floppy: 

1. OPEN ...,8,... 

2. OPEN ..., 8 ,... 

Für Ihren Rechner ergibt diese Eingabe ein Problem: Er 
»weiß« nicht, wie er später Lesebefehle interpretieren soll. 
Welchen der beiden Kanäle soll er für die Datenübertra¬ 
gung benutzen, das heißt aus welcher der beiden Dateien 
sind Daten einzulesen? 


Dieses Problem löst die logische Filenummer. Jeder Ka¬ 
nal bekommt seine eigene Nummer, zum Beispiel 1 und 2: 

1. OPEN 1,8. 

2. OPEN 2,8. 

Bei jedem Lesebefehl geben Sie die Nummer des Kanals 
an, den der Computer benutzen soll. Dadurch wird eine ein¬ 
deutige Beziehung hergestellt. Ihr C64 »weiß« nun, daß er 
bei Angabe der Nummer 1 den Kanal Nummer 1, bei Anga¬ 
be der 2 den Kanal Nummer 2 benutzen soll. 

Die LFN stellt eine eindeutige Beziehung zwischen ei¬ 
nem Schreib- oder Lesebefehl und dem zu benutzenden 
Kanal her. 

Wir werden nun zuerst nicht etwa Kanäle zur Floppy oder 
Datasette öffnen, sondern zum Bildschirm. Sie haben rich¬ 
tig gelesen, auch zum Bildschirm können wir einen Über¬ 
tragungskanal öffnen. Zugegeben, für Ausgaben auf den 
Bildschirm haben wir den PRINT-Befehl. Aber der Bild¬ 
schirm ist die wohl einfachste Möglichkeit, den Umgang mit 
logischen Dateien zu üben. 

Der große Vorteil: bei der Datenübertragung zum Bild¬ 
schirm entfällt die Angabe SA, die sogenannte »Sekundär¬ 
adresse«. Das heißt, der OPEN-Befehl wird in einer sehr 
verkürzten Fassung verwendet: 

OPEN LFN.GN 

Die Gerätenummer GN des Bildschirms ist 3, als LFN wäh¬ 
len wir zum Beispiel die Nummer 1. 

OPEN 1.3.REM BILDSCHIRMDATEI OEFFNEN 

Daten in Datei schreiben/aus Datei lesen 


Mit »OPEN 1,3« haben Sie eine sogenannte Bildschirmda¬ 
tei geöffnet. Sie können nun Daten auf dem Bildschirm aus- 
gebo. . oder vom Bildschirm lesen. Die Befehle zur Übertra¬ 
gung von Daten mit Hilfe einer logischen Datei ähneln den 
bekannten Befehlen PRINT, INPUT und GET. 

Daten in eine logische Datei schreiben: 

PRINT# LFN,Ausdruck 
Daten aus einer logischen Datei lesen: 

1. INPUT#LFN,Variable 

2. GET#LFN,Variable 

Alle drei Befehle unterscheiden sich von PRINT, GET 
und IN PUT (die sich auf die Standardgeräte Bildschirm und 
Tastatur beziehen) im Grunde nur durch die Angabe der 
Dateinummer LFN. Der große Vorteil: Diese Befehle kön¬ 
nen Sie beim »Datenaustausch« mit beliebigen Geräten be¬ 
nutzen. Mit PRINT # LFN,(Ausdruck) können Sie Daten auf 
dem Bildschirm oder dem Drucker ausgeben, oder auch 
dauerhaft auf Diskette/Kassette speichern. Diese Befehle 
zu benutzen, setzt natürlich voraus, daß die betreffende lo¬ 
gische Datei vorher geöffnet wurde. 

Theoretisch sind wir nun in der Lage, Daten auf dem Bild¬ 
schirm auszugeben. Geben Sie das folgende Mini- 
Programm ein: 

100 REM DATEN AUF BILDSCHIRM AUSGEBEN 
110 OPEN 1,3 : REM BILDSCHIRMDATEI OEFFNEN 
120 PRINT#1, "HALLO" 

130 : 

140 OPEN 1,3 

150 PRINT#1, "NOCH MAL HALLO" 

Folgendes passiert: auf dem Bildschirm erscheint »HAL¬ 
LO« und anschließend die Fehlermeldung »FILE OPEN ER¬ 
ROR IN 140«. Diese Fehlermeldung werden Sie noch häufi¬ 
ger sehen. Ihre Bedeutung: Sie wollen einen Kanal öffnen, 
der bereits offen ist. 

In unserem Fall bewirkt das folgendes: In Zeile 110 wird 
ein Übertragungskanal zum Bildschirm unter der Nummer 
1 geöffnet. Der folgende PRINT#-Befehl gibt über diesen 
Kanal Daten zum Bildschirm aus. In Zeile 140 sollte der Ka- 
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nal erneut geöffnet werden, da anschließend erneut mit 
PRINT# Daten zum Bildschirm »gesendet« werden soll¬ 
ten, der genannte Fehler tritt auf. 

Die Fehlermeldung weist uns darauf hin, daß der Kanal 
mit der Nummer 1 bereits offen ist und nicht erneut geöffnet 
werden kann. Offenbar ist es nicht notwendig, vor jeder Da¬ 
tenübertragung immer wieder den gleichen Kanal zu öff¬ 
nen. Einmaliges Öffnen genügt! Ein Kanal bleibt so lange 
geöffnet, bis er mit dem Befehl CLOSE geschlossen wird. 

Schließen einer logischen Datei (CIDSE) 


Nach dem Beenden der Datenübertragung sollten Sie die 
betreffende Datei immer mit der Anweisung »CLOSE LFN« 
schließen, da sonst speziell beim Speichern von Daten auf 
Kassette oder Diskette Datenverluste auftreten können. 
Ebenso wie bei PRINT#, INPUT# oder GET# wird auch 
CLOSE die Nummer des betreffenden Kanals angegeben, 
die LFN, die Sie in der OPEN-Anweisung verwendeten: 

CLOSE 1:REM schließen DER DATEI MIT DER DATEI¬ 
NUMMER 1 

Merken Sie sich bitte die einzelnen Schritte beim Um¬ 
gang mit logischen Dateien: 

1. Datei öffnen, 

2. Daten (wiederholt) in die Datei schreiben/aus der 
Datei lesen, 

3. Datei schließen. 

Öffnen und schließen sind einmalige Vorgänge. Wenn ei¬ 
ne Datei geöffnet ist, können Sie beliebig viele Lese- oder 
Schreibzugriffe auf diese Datei vornehmen. Aber wie ge¬ 
sagt: vergessen Sie bitte keinesfalls, die Datei (den Kanal) 
anschließend wieder zu schließen! 

Die Ausgabe von »HALLO« und »NOCH MAL HALLO« 
sieht »ordnungsgemäß« so aus: 

100 REM DATEN AUF BILDSCHIRM AUSGEBEN 
110 OPEN 1,3 : REM BILDSCHIRMDATEI OEFFNEN 
120 PRINT#1, "HALLO" 

130 PRINT#1, "NOCH MAL HALLO" 

140 CLOSE 1 : REM BILDSCHIRMDATEI SCHLIESSEN 

Das Schöne an den logischen Dateien ist, daß Sie sehr 
flexibel sind. Wenn Sie einen Drucker besitzen, sollten Sie 
in unserem Programm die Gerätenummer 3 durch 4 erset¬ 
zen. Und schon werden die beiden Zeichenketten statt auf 
den Bildschirm auf den Drucker ausgegeben. Bei Verwen¬ 
dung des Druckers erhält auch der dritte »Parameter« im 
OPEN-Befehl einen Sinn, die Angabe SA. 

Die Sekundäradresse (SA) 

SA bedeutet »Sekundäradresse«. Mit dieser Sekundär¬ 
adresse können Sie bei vielen Druckern die Art des Aus¬ 
drucks bestimmen. Bei Commodore-Druckern schaltet 
zum Beispiel die Sekundäradresse 7 den Drucker in den 
Klein-/Großschrift-Modus. Das heißt ein »Hallo« mit Klein- 
und Großbuchstaben wird korrekt ausgedruckt. Sie müs¬ 
sen nur in unserem Programm die Anweisung OPEN 1,4 
durch OPEN 1,4,7 ersetzen: 

110 OPEN 1,4,7 : REM DRUCKERDATEI OEFFNEN UND 
KLEIN-/GR0SSCHRIFT EINSCHALTEN 

Die Möglichkeiten, die die Sekundäradresse zur Druck¬ 
gestaltung bietet, hängen von Ihrem Drucker ab und sind 
im zugehörigen Handbuch nachzulesen. Viel wichtiger als 
beim Drucker ist die Sekundäradresse jedoch bei der Da¬ 
tenübertragung zu unseren Massenspeichern Kassette 
und Diskette. 

Bei der Datenübertragung zu diesen Geräten ist in jedem 
Fall eine Sekundäradresse anzugeben. Der Grund dafür 
liegt weniger bei der Floppy als vielmehr bei der Datasette. 
Bei Verwendung einer Datasette gibt die Sekundäradresse 
die »Richtung« der Datenübertragung an. 


Malerj Muenchen j 12-159 

Bauer! Mannheim' 97834 

i i 

Xaver! Koblenz! 85217 

Mayor! ... 


Bild 2. In dieser Abfolge befinden sich die Daten auf dem 
Magnetfeld der Datasette (schematische Darstellung) 


0 = Daten vom Band lesen 

1 = Daten schreiben 

2 = Daten mit EOT-Markierung schreiben 
Zum Beispiel öffnen Sie mit 

OPEN .1,1,1 

einen Übertragungskanal unter der Nummer 1 zum Gerät 
Nummer 1, also der Datasette. Die Sekundäradresse 1 gibt 
die Übertragungsrichtung an: Daten schreiben. 

Daten auf Kassette speichern 


Vergessen Sie bitte vorläufig die Sekundäradresse 2. Die 
ominöse »EOT-Markierung« (siehe oben) wird in den sel¬ 
tensten Fällen benötigt. Wir sind nun in der Lage, Adressen 
dauerhaft auf einer Kassette zu speichern. Die Vorgehens¬ 
weise: 

1. Band bis zum Anfang zurückspulen, 

2. Datei unter einer beliebigen Dateinummer (LFN) 
öffnen, mit Angabe der Geräteadresse 1 (Datasette) 
und der Sekundäradresse 1 (Daten schreiben). 

3. Daten mit PRINT # unter Angabe der verwendeten 
Dateinummer auf das Band schreiben. 

4. Datei schließen. 

Das entsprechend erweiterte »Adreßverwaltungs-Pro- 
gramm«: 

100 REM X#* ADRESSEN EINGEBEN x** 

IIP AN?»HL=i;REM ANZAHL: ZAEHLVARIABLE (ADRESSEN 

120 INPUT "NAMEN$(ANZAHL) 

130 INPUT "WOHNORT";W$(ANZAHL) 

140 INPUT "TELEFON";T$(ANZAHL) 

150 IF N$(ANZAHL)<> "ENDE" THEN ANZAHL=ANZAHL+1: 
GOTO 120 

160 ANZAHL=ANZAHL-1:REM ZAEHLER KORRIGIEREN 
170 : 

180 REM xxx ADRESSEN AUF SCREEN AUSGEBEN xxx 
190 

FOR 1=1 TO ANZAHL 
200 : PRINT N$(l) 

210 : PRINT W$(I) 

220 : PRINT T$(I) 

230 NEXT I 
240 : 

250 : 

260 REM xxx DATEN AUF KASSETTE SPEICHERN xxx 
300 PRINT "ZUM BANDANFANG ZURUECKSPULEN UND TASTE 
DRUECKEN" 

310 GET A$:IF A$="" THEN 310:REM AUF TASTE WARTEN 
320 : 

330 OPEN 1,1,1:REM DATASETTENDATEI NR.l ZUM 
SCHREIBEN OEFFNEN 
340 FOR 1=1 T0 ANZAHL 
350 : PRINT#1,N$(I):REM NAME SPEICHERN 
360 : PRINT#1,W$(I):REM WOHNORT SPEICHERN 
370 : PRINT#1,T$(I) :REM TEL. NR.SPEICHERN 
380 NEXT I 

390 CLOSE 1:REM DATEI WIEDER SCHLIESSEN 

Starten Sie das erweiterte Programm bitte und geben Sie 
einige Adressen ein (nicht mehr als zehn, denken Sie an 
den fehlenden DIM-Befehl). Geben Sie zum Abschluß den 
Namen »ENDE« ein. 

Das Programm fordert Sie auf, zum Bandanfang zurück¬ 
zuspulen und eine beliebige Taste zu drücken. Anschlie- 


106 


SONDERHEFT 28 
















C64 


DATEIVERWALTUNG-KURS 


ßend wird eine Datei geöffnet, wobei als Gerät die Datasette 
(GN 8), die - zufällig gewählte - Dateinummer 1 und die Se¬ 
kundäradresse 1 (Schreiben von Daten) angegeben wird 
(Zeile 330). Unter Angabe der Dateinummer werden nun al¬ 
le Adressen der Reihe nach mit PRINT# in die Datei über¬ 
tragen, das heißt auf der Kassette gespeichert. Die Variable 
ANZAHL enthält die Anzahl der eingegebenen Adressen. 

Sehr wichtig ist das Schließen der Datei in Zeile 390. Oh¬ 
ne die CLOSE-Anweisung wird Ihr C64/C128 nicht alle Da¬ 
ten speichern, sondern einige »verschlucken«. 

Ein wichtiger Schritt zur Erstellung eines Dateiverwal¬ 
tungsprogramms ist nun durchgeführt: Sie haben soeben 
eine »sequentielle Datei« gespeichert. »Sequentiell« heißt 
»der Reihe nach«. Und genauso befinden sich die eingege¬ 
benen Adressen nun auf dem Band (Bild 2). 

Daten von Kassette lesen 


Lesen können wir die Daten leider ebenfalls nur der Reihe 
nach, eben sequentiell. Es ist nicht möglich, zum Beispiel 
direkt auf die zweite Zeichenkette zuzugreifen. Wie sollte 
es auch möglich sein? Immerhin ist die Länge der Zeichen¬ 
ketten unterschiedlich. Der Computer kann daher gar nicht 
wissen, wo zum Beispiel die dritte Adresse beginnt. Daher 
müssen die Daten einer sequentiellen Datei immer vom Be¬ 
ginn der Datei an der Reihe nach gelesen werden. Der Ab¬ 
lauf: 

1. Band bis zum Anfang zurückspulen, 

2. Datei unter einer beliebigen Dateinummer (LFN) 
öffnen, mit Angabe der Geräteadresse 1 (Datasette) 
und der Sekundäradresse 0 (Daten lesen), 

3. Daten mit INPUT# unter Angabe der verwendeten 
Dateinummer vom Band lesen, 

4. Datei schließen. 

Ich habe unsere »Dateiverwaltung« um einem kleinen 

Programmteil erweitert, der die Aufgabe übernimmt, alle in 
der Datei gespeicherten Daten wieder einzulesen. 

Dieser Programmteil fordert Sie zunächst auf, erneut 
zum Bandanfang zurückzuspulen und anschließend eine 
Taste zu drücken. Danach werden die gespeicherten Daten 
der Reihe nach aus der Datei gelesen und auf dem Bild¬ 
schirm ausgegeben. 

395 REM #*# DATEN VON KASSETTE LESEN ##* 

400 PRINT "ZUM BANDANFANG ZURUECK- 
SPULEN UND TASTE DRUECKEN" 

410 GET A$:IF A$="" THEN 410.-REM AUF 
TASTE WARTEN 
420 : 

430 ANZAHL=1:REM ZAEIILER VORBEREITEN 
440 OPEN 1,1,0:REM DATASETTENDATEI NR.l 
ZUM LESEN OEFFNEN 

450 INPUT#1,N$(ANZAHL):PRINT N$(ANZAHL) 

460 INPUT#1,W$(ANZAHL):PRINT W$(ANZAHL) 

470 INPUT#1,T$(ANZAHL):PRINT T$(ANZAHL) 

480 IF ST< >64 THEN ANZAIIL=ANZAHL+1: 

GOTO 450:REM DATEIENDE? 

490 CLOSE 1:REM DATEI WIEDER 
SCHLIESSEN 


Die Statusvariable ST 


Wenn Sie das erweiterte Programm mit RUN 400 starten, 
liest dieser Programmteil die gesamte Datei ein und gibt ih¬ 
ren Inhalt - alle eingegebenen Adressen - auf dem Bild¬ 
schirm aus. Dabei wird ein kleiner Trick verwendet. Die Va¬ 
riable ST besitzt eine besondere Bedeutung. Sie ist eine 


sogenannte »Systemvariable«. Systemvariable heißt, daß 
nicht wir dieser Variablen einen Wert zuweisen, sondern 
das »System«, also der Computer selbst. ST gibt uns Aus¬ 
kunft darüber, ob wir beim Einlesen einer Datei bereits das 
Ende erreicht haben oder weitere gespeicherte Daten fol¬ 
gen. Normalerweise besitzt diese Variable den Wert 0. In 
dem Moment, in dem das Dateiende erreicht wird, weist der 
Computer der Variablen ST automatisch den Wert 64 zu. 

Wir können also eine beliebig große Datei einiesen, in¬ 
dem wir nach jedem Lesevorgang den Wert von ST prüfen. 
Ist ST ungleich 64 und das Dateiende somit noch nicht er¬ 
reicht, geht das Einlesen weiter. 

Mit dieser Methode arbeitet auch der vorgestellte Pro¬ 
grammteil. ANZAHL erhält in Zeile 430 den Startwert 1. In 
Zeile 440 wird die Datei »zum Lesen geöffnet« (Sekundär¬ 
adresse 0). Anschließend werden die drei Teile der ersten 
gespeicherten Adresse (Name, Wohnort, Telefonnummer) 
mit INPUT# gelesen und den Variablen N$(ANZAHL), 
W$(ANZAHL) und T$(ANZAHL) zugewiesen, also N$(1), 
W$(1) und T$(1). 

Zeile 480 prüft den aktuellen Wert von ST. Ist er ungleich 
64, wurde das Dateiende noch nicht erreicht. ANZAHL wird 
um 1 erhöht und das Programm verzweigt zu Zeile 450: die 
nächste Adresse wird gelesen. Nach Erreichen des Datei¬ 
endes (ST=64) schließt das Programm die Datei - das Ein¬ 
lesen aller gespeicherten Adressen ist beendet. 

Die Teilprogramme zum Schreiben beziehungsweise Le¬ 
sen von Daten sind immer nach dem gleichen Schema auf¬ 
gebaut. Den Anfang bildet ein OPEN-Befehl, den Schluß ei¬ 
ne CLOSE-Anweisung: dazwischen werden die Daten mit 
INPUT# in der gleichen Reihenfolge gelesen, wie sie mit 
PRINT # zuvor gespeichert wurden. Das vollständige Pro¬ 
gramm: 


rüC^IM### ADRESSEN EINGEBEN##* 

110 ANZAHL=1:REM ANZAHL: ZAEHLVARIABLE (ADRESSEN¬ 
ANZAHL) 

120 INPUT"NAME";N$(ANZAHL) 

130 INPUT"WOHNORTW$(ANZAHL) 

140 INPUT"TELEFON";T$(ANZAHL) 

150 IF N$(ANZAHL)< >"ENDE" THEN ANZAHL=ANZAHL+1: 
GOTO 120 

160 ANZAHL=ANZAHL-1:REM ZAEHLER KORRIGIEREN 
170 : 

180 REM##* ADRESSEN AUF SCREEN AUSGEBEN#*# 

190 F0R 1=1 T0 ANZAHL 
200 : PRINT N$(I) 

210 : PRINT W$(I) 

220 : PRINT T$(I) 

230 NEXT I 
240 : 

250 : 

260 REM*## DATEN AUF KASSETTE SPEICHERN*** 

300 PRINT"ZUM BANDANFANG ZURUECKSPULEN UND TASTE 
DRUECKEN" 

310 GET A$:IF A$=" THEN 310:REM AUF TASTE WARTEN 
320 : 

330 OPEN 1,1,1:REM DATASETTENDATEI NR.l ZUM 
SCHREIBEN OEFFNEN 
340 FOR 1=1 TO ANZAHL 
350 : PRINT# 1,N$(I):REM NAME SPEICHERN 
360 : PRINT#1,W$(I):REM WOHNORT SPEICHERN 
370 : PRINT#1,T$(I):REM TELEFONNR.SPEICHERN 
380 NEXT I 

390 CLOSE 1:REM DATEI WIEDER SCHLIESSEN 

391 : 

392 : 

395 REM*** DATEN VON KASSETTE LESEN#** 

400 PRINT"ZUM BANDANFANG ZURUECKSPULEN UND TASTE 
DRUECKEN" 
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410 GET A$:IF A$=" THEN 
410:REM AUF TASTE WARTEN 
420 : 

430 ANZAHL=1:REM ZAEHLER VORBEREITEN 
440 OPEN 1,1,0:REM DATASETTENDATEI NR.l ZUM LESEN 
OEFFNEN 

450 INPUT#1,N|(ANZAHL):PRINT N$(ANZAHL) 

460 INPUT#1,W$(ANZAHL):PRINT W$(ANZAHL) 

470 INPUT#1,T$(ANZAHL):PRINT T$(ANZAHL) 

480 IF ST< >64 THEN ANZAHL=ANZAHL+1:GOTO 450:REM 
DATEIENDE? 

490 CLOSE 1:REM DATEI WIEDER SCHLIESSEN 


Daten auf Diskette speichern und lesen 


Nicht nur die Datasette, auch die Floppy kennt sequentielle 
Dateien. Im Umgang unterscheiden sie sich nur durch eine 
andere Version des OPEN-Befehls. Wie bei der Datasette 
können Sie die Dateinummer (LFN) frei wählen (0 bis 255). 
Als Gerätenummer (GN) geben Sie 8 an und als Sekundär¬ 
adresse (SA) eine beliebige Zahl zwischen 2 und 14. Ver¬ 
meiden Sie bitte die Sekundäradressen 0 und 1. Diese 
Adressen sind für die Datasette reserviert, um die Zugriffs¬ 
art anzugeben. 

Ob Sie Daten schreiben oder lesen wollen, teilen Sie 
beim Zugriff auf die Floppy statt dessen mit der Angabe 
»Zugriff« mit: 

OPEN LFN,GN,SA,"Name,Typ,Zugriff" 

Bei der Datenspeicherung auf Diskette ist dieses voll¬ 
ständige Format der OPEN-Anweisung leider nicht zu ver¬ 
meiden. 

NAME ist beim Speichern von Programmen eine frei 
wählbare Zeichenkette mit maximal 16 Zeichen Länge. Un¬ 
ter diesem Namen werden Sie Ihre Datei nach dem Spei¬ 
chern im Inhaltsverzeichnis der Diskette wiederfinden. 

TYP gibt die Art der Datei an. Prinzipiell unterscheidet 
die Floppy zwischen folgenden Dateitypen: 

Dateitypen 

Programmdateien (PRG) 

Sequentielle Dateien (SEQ) 

Relative Dateien (REL) 

User-Dateien (USR) 

Uns interessieren vorläufig ebenso wie bei der Datasette 
nur die sequentiellen Dateien. Wenn Sie diese Dateiart ver¬ 
wenden wollen, geben Sie als TYP ein S an (»S« wie »Se¬ 
quentiell«). Ihnen stehen drei verschiedene »Zugriffsarten« 
zur Verfügung: 

Zugriffsarten 
A (APPEND) 

W (WRITE) 

R (READ) 

APPEND (A) bedeutet, daß mit PRINT# übertragene 
Daten an das Ende einer bestehenden Datei angehängt 
werden. Die Parameter W und R geben - wie die Sekundär¬ 
adresse bei der Datasette - an, ob Daten gelesen oder in 
die Datei geschrieben werden. Zusammengefaßt: 

NAME: Name, unter dem die Datei gespeichert und 

im Inhaltsverzeichnis eingetragen wird 
TYP: Dateityp; uns interessiert nur der Typ S 

(=sequentielle Datei) 

ZUGRIFF: Zugriffsart; R=Lesen von Daten (READ); 
W=Schreiben von Daten (WRITE); 
A=Anhängen von Daten (APPEND) 

Es ist eine »kinderleichte« Aufgabe, unsere Adreßverwal- 
tung von Datasette auf Floppy umzustellen. Die einzige Än¬ 
derung betrifft die OPEN-Anweisung. Zum Schreiben der 
Daten können wir folgende Anweisung verwenden: 


OPEN 1,8,2," ADRESSEN ,S,W" 

Diese OPEN-Anweisung öffnet unter der Dateinummer 1 
einen Übertragungskanal zur Floppy (Gerätenummer 8). 
Die Sekundäradresse ist 2, kann jedoch durch eine beliebi¬ 
ge andere Zahl zwischen 2 und 14 ersetzt werden. 

Die Adressen werden in einer Datei namens ADRESSEN 
gespeichert. Das S steht für »sequentielle Datei« und die 
Angabe W für »Write«, da wir Daten schreiben wollen. 

Die entsprechende Anweisung für unseren zweiten Pro¬ 
grammteil, der die Adressen wieder einliest, lautet: 

OPEN 1,8,2," ADRESSEN,S,R" 

Der einzige Unterschied besteht in der Angabe R für 
»Read«, da nun Daten zu lesen sind. 

Von diesen beiden OPEN-Anweisungen abgesehen, ist 
das Programm fast unverändert: 

100 REM#*# ADRESSEN EINGEBEN#*# 

110 ANZAHL=1:REM ANZAHL: ZAEHLVARIABLE (ADRESSEN¬ 
ANZAHL) 

120 INPUT"NAME";N$(ANZAHL) 

130 INPUT"WOHNORT";W$(ANZAHL) 

140 INPUT"TELEFON";T$(ANZAHL) 

150 IF N$(ANZAHL)< >"ENDE" THEN ANZAHL=ANZAHL+1: 
GOTO 120 

160 ANZAHL=ANZAHL-1:REM ZAEHLER KORRIGIEREN 
170 : 

180 REM *#* ADRESSEN AUF SCREEN AUSGEBEN *** 

190 F0R 1=1 TO ANZAHL 
200 : PRINT N$(I) 

210 : PRINT W$(l) 

220 : PRINT T$(I) 

230 NEXT 
240 : 

q>50 1 ?®-’' 

260 REM *** DATEN AUF DISKETTE SPEICHERN #** 

310 GET A$:IF A$="" THEN 310:REM AUF TASTE WARTEN 
320 : 

330 OPEN 1,8,2,"ADRESSEN,S,W":REM DISKETTENDATEI 
OEFFNEN 

340 FOR 1=1 TO ANZAHL 
350 : PRINT#1,N$(I) :REM NAME SPEICHERN 
360 : PRINT# 1,W$(I):REM WOHNORT SPEICHERN 
370 : PRINT#l,T$(l):REM TELEF0NNR.SPEICHERN 
380 NEXT 

390 CLOSE 1:REM DATEI WIEDER SCHLIESSEN 

391 : 

392 : 



Bild 3. Die sequentielle Datenspeicherung auf Disk ähnelt 
der auf dem Magnetband 
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395 REM *## DATEN VON DISKETTE LESEN #*# 

410 GET A$:IF A?="" THEN 4lO:REM AUF TASTE WARTEN 
420 : 

430 ANZAHL=1:REM ZAEHLER VORBEREITEN 
440 OPEN 1,8,2,"ADRESSEN,S,R":REM DISKETTENDATEI 
OEFFNEN 

450 INPUT#1,N$(ANZAHL):PRINT N$(ANZAHL) 

460 INPUT#1,W$(ANZAHL):PRINT W$(ANZAHL) 

470 INPUT #1,T$( ANZAHL):PRINT T$(ANZAHL) 

480 IF ST< >64 THEN ANZAHL=ANZAHL+1:GOTO 450:REM 
DATEIENDE? 

490 CLOSE 1:REM DATEI WIEDER SCHLIESSEN 

Die einzigen zusätzlichen Änderungen betreffen einige 
Kommentare und die Nachricht »BITTE BAND ZURUECK- 
SPULEN...«. Ein Zurückspulen des Bandes entfällt natür¬ 
lich beim Speichern auf Diskette. Beim Öffnen einer »Dis¬ 
kettendatei« bewegt die Floppy den sogenannten Schreib-/ 
Lesekopf automatisch zum Dateianfang. 

Ebenso wie auf der Kassette sind auch auf der Diskette 
die eingegebenen Adressen sequentiell gespeichert, also 
der Reihe nach (Bild 3). 

Der Befehls- und Fehlerkanal 


Starten Sie bitte das Programm und geben Sie zwei oder 
drei Adressen ein. Beenden Sie die Eingabe mit dem Na¬ 
men »ENDE«. Die Adressen werden gespeichert und an¬ 
schließend wieder gelesen. Und nun ersetzen Sie die Zeile 
391 : 
bitte durch 
391 STOP 

Starten Sie das Programm anschließend erneut und ge¬ 
ben Sie wieder zwei, drei Namen ein. Wenn Sie »ENDE« 
eingeben, versucht die Floppy, die Adressen zu speichern. 
Aber diesmal geht der Versuch daneben, was Sie am blin¬ 
kenden roten Lämpchen (LED) der Floppy erkennen. Im 
Gegensatz zur Datasette weigert sich die Floppy, eine auf 
der eingelegten Diskette vorhandene Datei durch eine Da¬ 
tei mit dem gleichen Namen einfach zu überschreiben. Und 
eine Datei mit dem Namen ADRESSEN existiert bereits - 
sie wurde beim ersten Programmlauf erstellt. 

Um sicherzugehen, daß das Abspeichern einer Datei auf 
alle Fälle gelingt, müssen wir vor dem Speichern dafür sor¬ 
gen, daß eine eventuell bereits unter dem gleichen Namen 
vorhandene Datei gelöscht wirdl 
Über einen speziellen Kanal mit der Sekundädresse 15, 
den »Befehls-« oder »Fehlerkanal«, können wir der Floppy 
Befehle übermitteln. Zum Beispiel den Befehl, eine Datei 
zu löschen. Allgemein werden Befehle folgendermaßen 
übermittelt: 

OPEN LFN,8,15,"BEFEHL" 

Die logische Dateinummer dürfen Sie wie üblich frei wäh¬ 
len. Die Gerätenummer 8 und die Sekundäradresse 15 ste¬ 
hen fest. Die wichtigsten Befehle sind: 

Floppy-Befehle 

N:NAME,ID Diskette formatieren 

S:NAME Datei löschen 

V Inhaltsverzeichnis 

überprüfen/korrigieren 

I Inhaltsverzeichnis initialisieren 

Alle Befehle können Sie in Ihrem Floppy-Handbuch 
nachlesen. Uns interessiert momentan nur der »Lösch- 
Befehl« (S:NAME). Um eine eventuell bereits existierende 
Datei namens ADRESSEN sicherheitshalber zu löschen, 
verwenden wir die Anweisung: 

90 OPEN 1,8,15,"S:ADRESSEN":CLOSE 1 
Das heißt wir öffnen den Befehlskanal unter der LFN 1 



und übermitteln der Floppy den Befehl zum Löschen der 
Datei ADRESSEN. Danach schließen wir den Kanal Num¬ 
mer 1 wieder - der Befehlskanal wird nicht mehr benötigt. 

Fügen Sie diese Anweisung bitte als erste Zeile in das 
Programm ein, um sicherzustellen, daß das folgende Spei¬ 
chern der Datei klappt. Und nun sollte es Ihnen möglich 
sein, das Programm beliebig oft ablaufen zu lassen und im¬ 
mer wieder eine neue Datei ADRESSEN zu erstellen. 

Übrigens: Der Befehlskanal heißt auch »Fehlerkanal«, 
weil die Floppy über diesen Kanal nähere Informationen 
über eventuell aufgetretene Fehler übermittelt. Zum Aus¬ 
probieren genügt ein winziges Programm: 

100 OPEN 1,8,2,"TEST,S,W" 

110 OPEN 2,8,15:INPUT# 2,A,B$:PRINT A,B$:CL0SE 2 
120 CLOSE 1 

Bevor Sie das Programm starten, kleben Sie bitte einen 
Schreibschutz auf die eingelegte Diskette. Nach RUN ver¬ 
sucht die Floppy, eine Datei namens TEST auf der Diskette 
»anzulegen«, was durch den Schreibschutz nicht gelingt. 

Zeile 110 öffnet unter der LFN 2 (die LFN 1 ist bereits be¬ 
legt) den Fehlerkanal, verwendet also die spezielle Sekun¬ 
däradresse 15 dieses Kanals. 

Mit INPUT #2,A,B$wird über diesen Kanal eine Zahl und 
eine Zeichenkette eingelesen, die uns die Floppy übermit¬ 
telt. Bei einem aufgetretenen Fehler enthält die Zahl die 
»Fehlernummer« und die Zeichenkette den »Fehlertext«. In 
unserem Fall erscheint auf dem Bildschirm »26 WRITE 
PROTECT ON«. 

Die Meldung »WRITE PROTECT ON« teilt mit, daß ein 
Schreibzugriff aufgrund eines Schreibschutzes mißlang 
und »26« ist die Nummer dieses Fehlers.^Naeh dem Einle¬ 
sen eines Fehlers sollten Sie wie beim Übermitteln eines 
Befehls den verwendeten Kanal wieder schließen, da er 
nicn> weiter benötigt wird (siehe Zeile 110). 

Trat kein Fehler auf, übergibt die Floppy als Fehlernum¬ 
mer eine 0 und als Fehlertext ein »OK«. 

Ein Spezialproblem: leere Zeichenketten 


Leider besitzt die INPUT #-Anweisung zum Lesen von Da¬ 
ten einen gravierenden Nachteil. Sie versagt, wenn »leere« 
Zeichenketten gespeichert wurden. Nehmen wir an, Sie 
speichern eine Adresse in der Datei TEST: 

100 OPEN 1,8,2,"TEST,S,W" 

110 N$="MAIER" : REM NAME 
120 W$="" : REM WOHNORT 

130 T$="12345" : REM TELEFON 
140 : 

150 PRINT #1,N$ 

160 PRINT #1,W$ 

170 PRINT #1,T$ 

180 CLOSE 1 

W$ ist leer, da Sie den Wohnort von Herrn Maier nicht 
kennen. Zum Einlesen benutzen Sie folgenden Programm¬ 
teil: 

200 OPEN 1,8,2,"TEST,S,R" 

210 INPUT #1,N$ : PRINT N$ 

220 INPUT #1,W$ : PRINT W$ 

230 INPUT #1,T$ : PRINT T$ 

240 CLOSE 1 

Dann erleben Sie eine sehr unangenehme Überra¬ 
schung: die rote LED blinkt, offenbar trat beim Einlesen ein 
Fehler auf. 

Beim Lesen mit INPUT# passiert folgendes: Die erste 
Leseanweisung liest völlig korrekt die Zeichenkette »MAI¬ 
ER«. Die zweite Anweisung liest jedoch die Telefonnummer 
ein! Denn der Wohnort war ja eine leere Zeichenkette und 
ist damit »nicht vorhanden«. Und nun folgt eine dritte 
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INPUT#-Anweisung, obwohl bereits das Dateiende er¬ 
reicht ist. 

Es gibt eine sehr einfache Möglichkeit, mit der man die¬ 
ses Spezialproblem »leerer Zeichen ketten« vermeiden 
kann: vor dem Speichern einer Zeichenkette wird geprüft, 
ob sie leer ist. Wenn ja, wird statt dessen ein sogenanntes 
»Scheinargument« gespeichert, irgend ein völlig sinnloses 
Zeichen, zum Beispiel das Zeichen »*«. 

Beim Einlesen gehen Sie genau umgekehrt vor. Nach je¬ 
der INPUT#-Anweisung prüfen Sie, ob die angegebene 
Stringvariable das Zeichen »*« enthält. Wenn ja, wissen 
Sie, daß es sich in Wahrheit um eine leere Zeichenkette 
handelt und korrigieren den Inhalt der Variablen entspre¬ 
chend: 


100 OPEN 1,8,2,"TEST,S,W" 


110 N$="MAIER" 


REM NAME 


120 W$="" : REM WOHNORT 
130 T$="12345" : REM TELEFON 
140 : 


145 IF N$="" THEN N$="#" 
i50 PRINT# 1,N$ 

155 IF W$="" THEN W$="*" 
160 PRINT #1,W$ 

165 IF T$="" THEN T$="#" 
170 PRINT #1,T$ 

180 CL0SE 1 


190 : 


195 : 

200 OPEN 1,8,2,"TEST,S,R" 

210 INPUT #1,N$ : IF N$="*" THEN N$="" 

215 PRINT N$ 

220 INPUT#1,W$ : IF W$="#" THEN W$="" 

225 PRINT W$ 

230 INPUT#1,T$ : IF T$="*" THEN T$="" 

235 PRINT T$ 

240 CLOSE 1 

Ich gebe zu, diese Methode führt zu unübersichtlicheren 
Programmen, aber dafür gehen Sie allen Problemen mit 
leeren Zeichenketten für immer aus dem Weg. Und sollten 
Sie Zeichenketten speichern, in denen womöglich selbst 
ein Sternchen enthalten ist, wählen Sie einfach ein anderes 
Sonderzeichen, zum Beispiel eines der reichlich vorhande¬ 
nen Grafikzeichen. 


Häufige Fehler 


Sie kennen nun alle Grundlagen, die zum erfolgreichen 
Umgang mit sequentiellen Dateien erforderlich sind. Den¬ 
noch werden in der Praxis häufig folgende Fehler auftreten: 

1. Sonderzeichen in Zeichenketten: Bestimmt ist Ihnen 
schon aufgefallen, daß es zu Fehlern führt, bei Eingaben 
mit INPUT ein Komma einzugeben (»Name? Bauer,Ger¬ 
hard«). Leider ist für INPUT und auch für INPUT # eine Zei¬ 
chenkette beendet, sobald ein Komma darin vorkommt. An¬ 
genommen, auf der Diskette/Kassette ist die Zeichenkette 
»Maier,Willi« gespeichert. Die Anweisung INPUT#1,A$ 
liest diese Zeichenfolge nur bis zürn Komma, A$ enthält nur 
den ersten Teil des Namens, also »Maier«. Verzichten Sie 
daher bei Ihren Eingaben unbedingt auf das Komma, auch 
wenn es häufig schwer fällt. 

2. Vermischen verschiedener Datentypen: Wenn Sie 
Strings speichern (»PRINT#1,A$«), müssen Sie die Daten 
beim Lesen Stringvariablen zuweisen (»INPUT#1,A$«). 
Umgekehrt müssen gespeicherte numerische Daten (zum 
Beispiel »PRINT#1,2*3«) beim Einlesen numerischen Va¬ 
riablen zugewiesen werden (»INPUT#1,X«). 

3. Verzichten Sie auf die »Formatiermöglichkeiten« des 
PRINT-Befehls beim Schreiben auf Kassette/Diskette. 


Theoretisch ist es zwar auch mit PRINT# möglich, zum 
Beispiel den »Zeilenvorschub« mit einem abschließenden 
Komma zu unterdrücken (PRINT # 1 ,A$;), aber gerade die¬ 
ser Zeilenvorschub ist für die INPUT#-Anweisung beim 
Einlesen das Erkennungsmerkmal für das Ende einer Zei¬ 
chenkette und muß unbedingt erhalten bleiben. 

4. Überlange Zeichenketten: Ebenso wie der INPUT- 
Befehl kann auch INPUT # nur Zeichenketten bis zu einer 
Länge von 88 Zeichen verarbeiten. Das Schreiben längerer 
Zeichenketten mit PRINT# ist zwar problemlos möglich, 
das Einlesen dieser »überlangen« Strings führt jedoch zur 
Fehlermeldung »STRING TOO LONG ERROR«. Zeichen¬ 
ketten, die länger sind als 88 Zeichen, sollten Sie daher vor 
dem Schreiben in die Datei in mehrere Strings aufteilen, 
von denen jeder nicht länger als 88 Zeichen ist. 

5. Fehlerhafte Programmeingabe: Sicher kennen Sie die 
Möglichkeit, PRINT durch das Zeichen»?« abzukürzen. Auf 
keinen Fall dürfen Sie diese Methode bei PRINT# anwen¬ 
den (obwohl nach Eingabe von LIST das Programm schein¬ 
bar korrekt ist). Wenn Sie wollen, können Sie PRINT # und 
INPUT # jedoch wie gewohnt abkürzen, indem Sie den er¬ 
sten Befehlsbuchstaben normal und den zweiten zusam¬ 
men mit <SHIFT> eingeben. 

II. Relative Dateien 


Die sequentielle Datei besitzt einen enormen Vorteil gegen¬ 
über anderen Dateiformen: es ist die einfachste Möglich¬ 
keit zur dauerhaften Datenspeicherung. 

Im Grunde brauchen Sie in all Ihren Programmen, die 
Daten dauerhaft speichern sollen, nur zwei kleine Unter¬ 
programme, die folgendermaßen aufgebaut sind: 
Speiche... 

1. Alte Datei löschen, 

2. Diskettendatei zum Schreiben öffnen, 

3. Daten der Reihe nach »in die Datei schreiben«, 

4. Datei schließen. 

Lesen 

1. Diskettendatei »zum Lesen« öffnen, 

2. Daten der Reihe nach lesen, bis ST den Wert 64 an¬ 
nimmt, 

3. Datei schließen. 

Allerdings besitzt diese Art der Datenspeicherung auch 
gewaltige Nachteile. Der größte Nachteil ist die begrenzte 
Kapazität dieser Dateiart. Wir sahen, daß bei einer sequen¬ 
tiellen Datei nicht gezielt auf eine bestimmte Adresse zuge¬ 
griffen werden kann. Die Daten können nur der Reihe nach 
gelesen oder geschrieben werden. Daher geht man übli¬ 
cherweise so vor: Die Dateiverwaltung liest nach dem Start 
mit RUN die komplette Datei - alle Adressen - in den Spei¬ 
cher ein, und zwar in Array-Variablen. Während der Arbeit 
mit der Dateiverwaltung findet nun kein weiterer Zugriff 
mehr auf Diskette oder Kassette statt. Die Bearbeitung er¬ 
folgt ausschließlich im Speicher des C 64/C128 durch Mani¬ 
pulation der Array-Variablen. Zum Schluß wird die komplet¬ 
te Datei wieder gespeichert (und zuvor die alte Datei ge¬ 
löscht). 

Das bedeutet, daß eine sequentielle Datei niemals grö¬ 
ßer werden darf als der verfügbare Platz im Hauptspeicher 
Ihres Computers. Beim C 64 bedeutet das: Von den für Ba¬ 
sic verfügbaren 39 KByte müssen bei einer vernünftigen 
Dateiverwaltung zirka 19 KByte für das Programm selbst 
abgezogen werden. Die restlichen 20 KByte stehen für die 
Adressen zur Verfügung. 

20 KByte entsprechen 20000 Zeichen. Wenn wir von et¬ 
wa 100 Zeichen für eine umfangreiche Adresse ausgehen, 
kommen wir auf maximal 200 Adressen, die wir verwalten 
können. Und das ist für viele Anwendungen zu wenig! 
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Ein weiterer Nachteil ist der zum Teil enorme Zeitauf¬ 
wand. Stellen Sie sich vor, Ihre Adreßverwaltung enthält 
diese 200 umfangreichen Adressen mit insgesamt 20000 
Zeichen. Sie wollen nur schnell die neue Telefonnummer 
von Herrn »Maier« korrigieren. Sie laden Ihr Programm und 
nach dem Start wird es über eine Minute dauern, bis alle 
200 Adressen eingelesen sind. Sie ändern die eine Telefon¬ 
nummer und müssen erneut über eine Minute warten, bis 
Ihr Programm die komplette Datei wieder gespeichert hat. 
Welch ein Aufwand wegen einer geänderten Telefonnum¬ 
mer! 

Weitaus eleganter und zeitsparender wäre es, wenn Sie 
ganz gezielt nur diese eine Adresse auf der Diskette über¬ 
schreiben könnten. Und genau diese Möglichkeiten bieten 
»relative« Dateien. 

Erinnern wir uns: Bei sequentiellen Dateien ist ein geziel¬ 
ter Zugriff auf einzelne Adressen nicht möglich, da jede 
Adresse unterschiedlich lang ist. Daher kann die Floppy 
nicht wissen, wo sich zum Beispiel die Adresse Nummer 22 
befindet. Sie kann sich nur - ausgehend vom Dateianfang 
- immer weiter vortasten, indem Adresse für Adresse gele¬ 
sen wird. 

Das Problem wäre gelöst, wenn jede Adresse gleich lang 
wäre. Wenn die Position bekannt ist, an der die Datei be¬ 
ginnt, könnte die Floppy »berechnen«, wo sich die Adresse 
Nummer 22 befindet. Beispiel: die Datei beginnt ab Posi¬ 
tion X. Jede Adresse besitzt eine Länge von 100 Zeichen. 
Dann beginnt Adresse Nummer 22 bei Zeichen Nummer X 
+ 22 * 100. Der Schreib-/Lesekopf der Floppy könnte sich 
direkt zu dieser errechneten Position bewegen und unmit¬ 
telbar auf die angegebene Adresse, zum Beispiel Nummer 
22, zugreifen. 



Bild 4. Die Daten einer relativen Datei sind in »Records« auf 
Diskette gespeichert 

Prinzipiell werden relative Dateien auf diese Weise ver¬ 
waltet. Jeder Datensatz besitzt die gleiche Länge. Beim 
Schreiben oder Lesen einer Adresse geben Sie der Floppy 
die Nummer der Adresse an, auf die Sie zugreifen wollen 
und der Schreib-/Lesekopf bewegt sich direkt zu der Posi¬ 
tion, an der sich diese Adresse befindet. 

Relative Dateien sind in sogenannte »Records« unter¬ 
teilt. Stellen Sie sich unter einem Record einfach einen (lee¬ 
ren) Block auf der Diskette vor, der Daten aufnehmen kann 
(Bild 4). 

Wie lang die einzelnen Blöcke sind, geben Sie beim »Auf¬ 
bau« der Datei mit einem leicht abgewandelten OPEN- 
Befehl an, der zum Aufbau einer relativen Datei lautet: 

3^3? 


OPEN LFN,GN,SA,"NAME.L," +CHR$(RL) 

Die Parameter LFN, GN, SA und NAME wurden oben be¬ 
reits erklärt. Neu ist die Angabe »L«. Sie gibt der Floppy an, 
daß statt einer sequentiellen eine relative Datei verwendet 
wird. Die Angabe S oder W für die Art des Zugriffs entfällt. 
Nach dem Öffnen einer relativen Datei können Sie beides: 
Daten in die Datei schreiben oder Daten aus der Datei le¬ 
sen. 

»RL« ist die Record-Länge. Sie können jede beliebige 
Länge zwischen 1 und 255 angeben. An diese einmal an¬ 
gegebene Record : Länge sind Sie allerdings gebunden. Ei¬ 
ne nachträgliche Änderung ist nicht möglich. 

Das heißt vor dem Aufbau einer relativen Datei sollten Sie 
sich genau überlegen, wie lang Ihre Adressen maximal 
sein werden. Sonst wird es unangenehm: Es geht mit Si¬ 
cherheit schief, wenn die relative Datei in Records mit je 50 
Zeichen Länge aufgeteilt ist und Sie später eine Adresse 
speichern wollen, die 60 Zeichen umfaßt. Seien Sie also 
nicht geizig, berücksichtigen Sie eine Sicherheitsreserve. 

Wir werden im folgenden eine »echte« Adreßverwaltung 
erstellen, die ein wenig mehr kann als die bisherigen Bei¬ 
spielprogramme. Und dabei wird eine Record-Länge von 
100 Zeichen verwendet. Ich denke, daß 100 Zeichen in der 
Praxis mehr als ausreichend sind (wenn nicht, ändern Sie 
das Programm einfach entsprechend ab). 

Nehmen wir an, wir wollen eine relative Datei mit einer 
Record-Länge von 100 Zeichen erstellen. 

OPEN 2,8,2, * ADRESSEN, L," +CHR$(100) 

Die Datei erhält den Namen ADRESSEN. Nach dieser 
OPEN-Anweisung wird die Floppy den Dateinamen im In¬ 
haltsverzeichnis eintragen und ist auf die Speicherung un¬ 
serer Adressen vorbereitet. 

Diese Speicherung ist allerdings etwas komplizierter als 
zu'/n PRINT # alleine genügt nicht. Bei Schreib- oder Le¬ 
sezugriffen auf relative Dateien müssen wir immer die ge¬ 
wünschte Record-Nummer angeben. Und zwar mit dem 
sogenannten Positionierbefehl. Dieser Befehl wird wie je¬ 
der Befehl an die Floppy über den Befehlskanal übertra¬ 
gen, also über einen Kanal, der mit der speziellen Sekun¬ 
däradresse 15 geöffnet wurde. 

Bei der Arbeit mit relativen Dateien benötigt man den Po¬ 
sitionierbefehl ständig. Daher ist es empfehlenswert, den 
Befehlskanal nicht ständig zu öffnen und wieder zu schlie¬ 
ßen. Statt dessen wird er einmal am Programmanfang ge¬ 
öffnet und erst beim Beenden des Programms wieder ge¬ 
schlossen. 

Wir benötigen somit zwei Kanäle, den Befehlskanal und 
den »Datenkanal«. Als Datenkanal bezeichnet man den Ka¬ 
nal, über den die zu schreibenden oder lesenden Daten 
übermittelt werden. Da auch dieser Kanal ständig benötigt 
wird, öffnen wir ihn ebenfalls einmalig am Programman¬ 
fang und schließen ihn erst wieder beim Beenden des Pro¬ 
gramms. 

Der Anfang eines Programms zur Verwaltung relativer 
Dateien könnte also so aussehen: 

100 OPEN 1,8,15 : REM BEFEHLSKANAL 0EFFNEN 
110 OPEN 2,8,2,"ADRESSEN,L,"+CHR$(100) : REM DATEN 
KANAL 

Nachdem beide Kanäle geöffnet wurden, können wir die 
ersten Adressen in der Datei speichern. Aber dazu müssen 
wir das genaue Format des Positionierbefehls kennen. 

PRINT #LFN1,"P" + CHR$(LFN2) + CHR$(LB) + 
CHR$(HB) + CHR$(BYTE) 

Die Parameter bedeuten dabei: 

1. LFN1: Logische Filenummer, die beim Öffnen 

des Befehlskanals verwendet wurde. 

2. LFN2: Logische Filenummer, die beim Öffnen 

des Datenkanals verwendet wurde. 
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3. LB und HB: Nummer des Records, auf den 

»positioniert« werden soll. 

4. BYTE: Nummer des Zeichens, auf das positio¬ 

niert werden soll. 

Laut den Zeilen 100 und 110 sind die Dateinummern in 
unserem Fall: 

LFN1: 1 
LFN2: 2 

Die Angabe »P« in Anführungszeichen ist immer notwen¬ 
dig. Das »P« steht für »Positionieren«. Kritischer ist die zu¬ 
nächst unverständliche Art, in der die Record-Nummer an¬ 
gegeben wird. LB steht für »Low-Byte« und HB für »High- 
Byte«. Diese beiden Ausdrücke genügen Ihnen zum Ver¬ 
ständnis, wenn Sie über Maschinensprache-Kenntnisse 
verfügen. Wenn nicht, nehmen Sie bitte einfach das folgen¬ 
de Unterprogramm zur Kenntnis: 

870 REM x** POSITIONIEREN x*X 
880 HB=INT(REC/256) 

890 LB=REC-HB#256 

900 PRINT#1,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1) 
910 RETURN 

Dieses kleine Unterprogramm ermittelt die Angaben LB 
und HB. Voraussetzung dafür ist, daß beim Aufruf des Un¬ 
terprogramms die Variable REC die gewünschte Record- 
Nummer enthält. Weitere Bedingung ist, daß (wie im Bei¬ 
spiel) der Befehlskanal mit der Filenummer 1 und der Da¬ 
tenkanal mit der Filenummer 2 geöffnet wurde. Wenn diese 
Voraussetzungen gegeben sind, übermittelt das Unterpro¬ 
gramm der Floppy den Befehl, den Schreib-/Lesekopfzum 
ersten Zeichen des Records Nummer REC zu bewegen. 

Zum ersten Zeichen, da Sie beim Positionieren nicht nur 
die Record-Nummer angeben können, sondern auch die 
Nummer des Zeichens, ab dem Sie zugreifen wollen. Nor¬ 
malerweise ist das Zeichen Nummer 1 (wie im Unterpro¬ 
gramm, das immer auf das erste Zeichen positioniert). 

Wenn Sie unbedingt wollen, können Sie den Schreib-/Le- 
sekopf jedoch zu jedem beliebigen Zeichen innerhalb des 
Records bewegen. Ein Beispiel: nehmen wir an, im Record 
Nummer 10 befindet sich die Zeichenkette: 
MAIER+MUELLER 

Sie wollen nur auf den zweiten Teil zugreifen, auf »MUEL- 
LER«. Da »MUELLER« ab dem siebten Zeichen beginnt, 
geben Sie im Positionierbefehl an, auf das siebte Zeichen 
von Record Nummer 10 zu positionieren: 

HB=INT(10/256) 

LB=10-HB*256 

PRINT #1,"P" +CHR$(2)+CHR$(LB)+CHR$(HB)+ 
CHR$(7) 

Wenn nun ein INPUT#-Befehl folgt, wird er nur die Zei¬ 
chenfolge »MUELLER« einiesen und der vorhergehende 
»MAIER« übergangen. 

Um derartige Spezialfälle wollen wir uns aber nicht weiter 
kümmern. Unser Programm wird Adressen immer ab dem 
ersten Zeichen in einen Record schreiben und wieder le¬ 
sen. Daher positioniert das vorgestellte Unterprogramm 
prinzipiell auf das erste Zeichen des angegebenen Re¬ 
cords. 

Sie kennen nun alle Anweisungen, die zur Behandlung 
relativer Dateien benötigt werden. Um Ihnen einen besse¬ 
ren Überblick zu verschaffen, faßt das folgende Beispiel¬ 
programm alles soeben Erlernte zusammen. Es speichert 
eine Zeichenkette in der relativen Datei TEST und liest die 
Zeichenkette wieder. 

100 REM xxx KANAELE 0EFFNEN xxx 
110 OPEN 1,8,15 : REM BEFEHLSKANAL 0EFFNEN 
120 OPEN 2,8,2,"ADRESSEN,L,"+CHR$(100) : REM DATEN¬ 
KANAL 
130 : 


140 REM xx* DATEN SCHREIBEN xx* 

150 REC=5:G0SUB 880:REM POSITIONIEREN 
160 PRINT#2, "TEST" 

170 : 

180 REM *** DATEN LESEN xxx 

190 REC=5:G0SUB 880:REM POSITIONIEREN 

200 INPUT#2,A$:PRINT A$ 

210 : 

220 REM xxx KANAELE SCHLIESSEN xxx 
230 CLOSE 2:REM DATENKANAL SCHLIESSEN 
240 CLOSE 1:REM BEFEHLSKANAL SCHLIESSEN 
250 END 
260 : 

270 : 

870 REM xxx POSITIONIEREN xxx 
880 HB=INT(REC/256) 

890 LB=REC-HB*256 

900 PRINT# 1, "P"+CIIR$(2) +CHR$(LB) +CHR$(HB) +CHR$(1) 
910 RETURN 

Zuerst werden wie besprochen der Daten- und der Be¬ 
fehlskanal geöffnet. Beide Kanäle bleiben offen, bis das 
Programm beendet wird (Zeile 230-250). Beim Öffnen des 
Datenkanals wird als gewünschte Recordlänge 100 ange¬ 
geben. Die relative Datei wird also in Blöcke unterteilt, die 
jeweils 100 Zeichen lang sind. 

File 150 weist REC den Wert 5 zu und ruft das »Positio- 
nier-Unterprogramm« auf. Danach wird auf das erste Zei¬ 
chen des fünften Records positioniert. Der folgende 
PRINT #-Befehl schreibt die Zeichenfolge »TEST« in diesen 
Record. 

Diese Zeichenkette soll nun wieder aus dem Record ge¬ 
lesen werden. Vielleicht wundern Sie sich, warum durch 
Zeile 190 erneut auf Record Nummer 5 positioniert wird, 
obwohl d" -• bereits der vorhergehende Positionierbefehl er¬ 
ledigte. Ganz einfach: beim Schreiben der Zeichenfolge 
»TEST« in Record Nummer 5 bewegte sich der Schreib-/Le- 
sekopf weiter. Um genau zu sein: nach jedem 
PRINT #-Befehl wird auf den nächsten Record positioniert. 
Das heißt der Schreib-/Lesekopf befindet sich nun am An¬ 
fang des sechsten Records. Daher der erneute Positionier¬ 
befehl vor dem Einlesen der gespeicherten Zeichenkette. 

Gewöhnen Sie sich unbedingt an, vor jedem Zugriff auf 
einen Record den entsprechenden Positionierbefehl an die 
Floppy zu senden. 

Aufgaben der Dateiverwaltung 


Wir können uns nun der eigentlichen Dateiverwaltung zu¬ 
wenden. Unser Programm wird folgende Aufgaben erfül¬ 
len: 

1. Einträgen neuer Adressen in die relative Datei, 

2. In der Datei »umherblättern«, das heißt Betrachten 
der vorhandenen Adressen wie beim Durchblättern ei¬ 
nes Karteikastens, 

3. Ändern bereits eingetragener Adressen. Wahrschein¬ 
lich vermissen Sie einige wesentliche Bestandteile je¬ 
der Dateiverwaltung, zum Beispiel das Sortieren, Lö¬ 
schen und vor allem die gezielte Suche nach Daten. 
Gedulden Sie sich ein wenig. Wenn unser »Grundge¬ 
rüst« steht, ist es kein Problem, das Programm entspre¬ 
chend zu erweitern. 

Aber zuerst müssen wir uns um den prinzipiellen Um¬ 
gang mit einer relativen Datei kümmern. Da wir über ihre 
Nummer direkt auf jede Adresse zugreifen können, ist es 
nicht mehr nötig, die komplette Datei in den Speicher einzu¬ 
lesen. Zum Beispiel wird das Programm beim »Blättern« 
einfach direkt die betreffende Adresse von der Diskette ein¬ 
iesen. 
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Bild 5. Die Unterschiede in der Ausnutzung der Diskettenkapazität verdeutlicht diese Gegenüberstellung 


Und beim Einträgen wird die neue Adresse einfach in den 
nächsten freien Record eingetragen. Das heißt, wenn die 
Datei zum Beispiel zehn Adressen enthält (in den Records 
Nummer 1 bis 10), wird eine weitere Adresse einfach in Re¬ 
cord Nummer 11 geschrieben. Und soll die Telefonnummer 
von Herrn »MAIER« geändert werden, dessen Adresse sich 
in Record 5 befindet, überschreiben wir den Inhalt dieses 
Records einfach durch die geänderte Adresse. 

Das bedeutet, daß wir mit diesem Prinzip im Speicher 
keinen Platz für ein riesiges Array benötigen. Der Speicher 
des C64/CI28 stellt nun keine Grenze mehr für die Größe 
der Datei dar. Die maximale Adressenzahl wird nur noch 
durch die Diskettenkapazität begrenzt. 

Allerdings wird die Diskettenkapazität nicht so optimal 
wie bei einer sequentiellen Datei ausgenutzt. Nehmen wir 
als Beispiel eine sequentielle und eine relative Datei, die 
beide identische Adressen enthalten (Bild 5). 

In der sequentiellen Datei sind die Adressen »kompri¬ 
miert« untergebracht, in ihrer »echten« Länge. Im Gegen¬ 
satz dazu betreiben wir mit der relativen Datei ein wenig 
Verschwendung. Wenn die Record-Länge 100 Zeichen be¬ 
trägt, dann ist jeder Record auch tatsächlich 100 Zeichen 
lang, selbst wenn die darin gespeicherte Adresse nur 50 
Zeichen umfaßt. 

Diese Verschwendung ist einer der größten Nachteile re¬ 
lativer Dateien. Aber Sie wissen inzwischen, warum derart 
»großzügig« mit dem verfügbaren Platz auf der Diskette um¬ 
gegangen wird: weil nur die Berechnung der Position eines 
Datensatzes aus der angegebenen Record-Nummer mög¬ 
lich ist. Ohne Platzverschwendung ist ein direkter Zugriff 
auf einen bestimmten Datensatz kaum möglich. 

Eine kleine Überschlagsrechnung zeigt jedoch, daß die 
maximale Anzahl an Adressen im Normalfall bei weitem 
ausreichen sollte. Wenn wir von einer völlig leeren Diskette 
ausgehen, stehen unserer relativen Datei zirka 165 KByte 
zur Verfügung, das sind etwa 170000 Zeichen (1 KByte = 
1024 Zeichen). 

Wenn wir die Datei mit einer Record-Länge von 100 Zei¬ 
chen anlegen, stehen uns somit 170 000/100 Records zur 
Verfügung. Und ich denke, daß Ihnen 1700 Records (mit 
den Nummern 1 bis 1700) und somit auch 1700 Adressen 
reichen werden. Wenn nicht, müssen Sie Ihr Bankkonto 
plündern: dann hilft nur noch ein Personal Computer mit ei¬ 
ner Festplatte, die bereits allein soviel kostet wie ein C64 
mit Floppy. 


Also begnügen wir uns mit dem, was wir haben, und ver¬ 
walten eben »nur« 1700 Adressen. 

Bei der Benutzung einer relativen Datei taucht jedoch ein 
Problem auf. Beim Einträgen einer neuen Adresse benut¬ 
zen wir einfach den nächsten freien Record. Aber welcher 
Record ist das? Seine Nummer hängt zweifellos von der 
Anzahl der bereits eingetragenen Adressen ab. Doch ge¬ 
nau diese Anzahl kennen wir nicht! 

Bei sequentiellen Dateien lesen wir die Datei komplett 
eiff^E is die Statusvariable ST den Wert 64 annimmt) und er¬ 
höhen nach jeder gelesenen Adresse den Zähler ANZAHL 
um den Wert 1. Nach beendetem Einlesen enthält ANZAHL 
daher die Zahl der vorhandenen Adressen. 

Aber die relative Datei wollen wir ja gerade nicht komplett 
einiesen. Daher müssen wir nach jeder Programmbenut¬ 
zung die Anzahl bereits vorhandener Adressen dauerhaft 
speichern. Die einfachste Möglichkeit: wir speichern diese 
Zahl in einer »primitiven« sequentiellen Datei, unabhängig 
von der relativen Datei, die die eigentlichen Adressen ent¬ 
hält. 

Diese Datei nennen wir INFODATEI. Sie soll ausschließ¬ 
lich diesen einen Wert enthalten. Nach dem Programmstart 
öffnen wir diese Datei und lesen die gespeicherte Zahl ein, 
zum Beispiel in die Variable AD (wie »Anzahl Datensätze«). 
Dann öffnen wir die relative Datei und nun können Sie 
Adressen eingeben, anschauen und bearbeiten. Und zum 
Schluß - beim Beenden des Programms - speichern wir 
den inzwischen vielleicht veränderten Wert der Variablen 
AD erneut in unserer sequentiellen »Hilfsdatei«. So ge¬ 
währleisten wir, daß das Steuerprogramm nach dem Start 
immer die Anzahl der in der relativen Datei vorhandenen 
Adressen kennt. Der Beginn unseres Programms könnte so 
aussehen: 

100 OPEN 1,8,15 : REM BEFEHLSKANAL 0EFFNEN 
110 OPEN 2,8,2,"INFODATEI,S,R":REM INFODATEI 
0EFFNEN 

120 INPUT # 2 , AD:REM ANZAHL EINLESEN 

Allerdings müssen wir einen Spezialfall berücksichtigen: 
den »Erststart« unseres Programms. Stellen Sie sich vor, 
Sie tippen das Listing ab und starten das Programm zum 
ersten Mal. Dann existiert die Hilfsdatei noch nicht und das 
Einlesen der Adreßanzahl wird fehlschlagen. Die Datei IN¬ 
FODATEI wird erst beim Verlassen des Programms erstellt, 
wenn Sie zum ersten Mal einige Adressen eingegeben ha¬ 
ben. 
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Den »Vorspann« müssen wir daher ändern. Und zwar so, 
daß unser Programm selbständig erkennt, ob die Datei IN¬ 
FODATEI vorhanden ist oder nicht. Wenn ja, wird die Adreß- 
anzahl in AD eingelesen. Existiert die Datei nicht, wurde 
das Programm noch nie benutzt und die Adreßanzahl AD 
behält den Ausgangswert 0, den sie nach dem Programm¬ 
start mit RUN ja sowieso besitzt. 

Mit Hilfe des Fehlerkanals können wir erkennen, ob eine 
Datei existiert. Wenn wir eine sequentielle Datei mit dem 
Parameter R »zum Lesen« öffnen, übermittelt uns die Flop¬ 
py über diesen Kanal eine Fehlermeldung, wenn sie die be¬ 
treffende Datei nicht findet. 

Das heißt, beim Lesen des Fehlerkanals mit 
»INPUT#1,A,B$« wird A einen Wert ungleich 0 enthalten 
und B$ einen anderen Fehlertext als »OK«. Mit diesem Wis¬ 
sen kommen wir zu folgendem endgültigem »Vorspann«: 

100 OPEN 1,8,15: REM BEFEHLSKANAL OEFFNEN 
110 OPEN 2,8,2,"INFODATEI,S,R": REM SEQ.DATEI 
OEFFNEN 

120 INPUT#1,A: REM FEHLER AUFGETRETEN? 

130 IF A=0 TUEN INPUT#2,AD: REM NEIN, DANN 
ADRESSANZAHL LESEN 

140 CL0SE 2: REM SEQUENTIELLE DATEI SCHLIESSEN 
150 : 

160 OPEN 2,8,2,"ADRESSEN,L,"+CHR$(100): REM REL- 
DATEI OEFFNEN 

Zeile 100 öffnet den Befehls- und Fehlerkanal unter der 
File-Nummer 1. Zeile 110 öffnet die Hilfsdatei INFODATEI 
zum Lesen. Über den Fehlerkanal wird die aktuelle Fehler¬ 
nummer in A eingelesen (Zeile 120) - der Fehlertext interes¬ 
siert uns nicht. 

Ist die Variable A (die Fehlernummer) gleich 0, trat kein 
Fehler auf. Das heißt die Hilfsdatei existiert und der OPEN- 
Befehl wurde fehlerfrei ausgeführt. Dann können wir auch 
die darin enthaltene Adreßanzahl lesen (Zeile 130). Anson¬ 
sten behält AD den ursprünglichen Wert 0 - unsere Datei 
enthält noch keine Adressen. 

Der Datenkanal wird wieder geschlossen, da wir mit der 
Behandlung unserer Infodatei fertig sind. In Zeile 160 wird 
er erneut geöffnet, allerdings mit einer völlig anderen Be¬ 
deutung. Nun soll es möglich sein, über diesen Kanal Da¬ 
ten in die relative Datei ADRESSEN (mit der Record-Länge 
100 Zeichen) zu schreiben beziehungsweise daraus zu le¬ 
sen. 

Die Vorbereitungen sind damit beendet und das Haupt¬ 
programm beginnt mit einem kleinen Menü, aus dem Sie 
sich die gewünschte Programmfunktion aussuchen. 

Das Menü ist sehr einfach gestaltet. Der Benutzer - also 
Sie - wird aufgefordert, eine der Zahlentasten 1, 2, 3 oder 
4 zu drücken. Abhängig von der gedrückten Taste wird zu 
einem Unterprogramm verzweigt. Nach der Rückkehr aus 
dem Unterprogramm erscheint erneut das Menü: 

190 REM *** MENUE *** 

200 PRINT:PRINT "1=EINTRAGEN/2=BLAETTERN/3=AENDERN 
/4=ENDE":PRINT 

210 GET A$: IF A$="" THEN GOTO 210 
220 : 

230 IF A$< >"4" THEN 0N VAL(A$) G0SUB 340,430,550: 
GOTO 200 

Eine Ausnahme ist, Sie wählen Punkt 4, »ENDE«. In die¬ 
sem Fall wird zu keinem Unterprogramm verzweigt, son¬ 
dern der folgende Programmteil bearbeitet. Dieser Teil 
sorgt dafür, daß die aktuelle Adreßanzahl AD in der Hilfsda¬ 
tei gespeichert wird. 

250 CL0SE 2: REM RELATIVE DATEI SCHLIESSEN 
260 PRINT#1,"S:INFODATEI": REM SEQ.DATEI LOESCHEN 
270 OPEN 2,8,2,"INFODATEI,S,W": REM SEQ.DATEI 
OEFFNEN 


280 PRINT#2,AD: REM ADRESSANZAHL SPEICHERN 
290 CL0SE 2: CL0SE 1: REM ALLE DATEIEN SCHLIESSEN 
300 END 

Zuerst wird die nicht mehr benötigte relative Datei ge¬ 
schlossen (Zeile 250). Anschließend wird in Zeile 260 die 
»alte« sequentielle Datei gelöscht. Denken Sie daran: der 
Befehlskanal bleibt während des Programmlaufs offen. Da¬ 
her kann in Zeile 260 ohne erneutes Öffnen der Löschbe¬ 
fehl über diesen Kanal »gesendet« werden. 

In Zeile 270 und 280 wird der Datenkanal geöffnet und in 
INFODATEI der Inhalt von AD gespeichert. Zuletzt schließt 
das Programm alle offenen Kanäle (den Datenkanal (Num¬ 
mer 2) sowie den Befehlskanal (Nummer 1)) und das Pro¬ 
gramm ist beendet. 

Sie kennen nun den Beginn und das Ende unserer 
Adreßverwaltung. Was fehlt, sind die eigentlichen Aufga¬ 
ben des Programms, die Arbeit mit Ihren Daten. Bevor wir 
dazu kommen, müssen wir jedoch einige Unterprogramme 
behandeln, die uns die Arbeit erleichtern. 

Zum Beispiel das Unterprogramm zur Abfrage einer neu¬ 
en Adresse: 

640 REM *## ADRESSE ABFRAGEN *** 

650 N$="": W$=T$="" 

660 INPUT "NAME";N$ 

670 INPUT "WOHNORT";W$ 

680 INPUT "TELEFON";T$ 

690 RETURN 

Zu diesem Programmteil gibt es nicht viel zu sagen. Der 
Benutzer wird nach einem Namen, Wohnort und einerTele- 
fonnummer gefragt, und diese drei Adreßteile in den Varia¬ 
blen N$, W$ und T$ gespeichert. 

lntereto.:nter ist das Unterprogramm zum Speichern ei¬ 
ner Adresse in einem Record. Theoretisch würde man ein 
solches Unterprogramm so formulieren: 

720 REM *** DATENSATZ SCHREIBEN xxx 
730 PRINT#1,N$:REM NAME SPEICHERN 
740 PRINT #1,W$: REM WOHNORT SPEICHERN 
750 PRINT#1,T$:REM TELEFON SPEICHERN 
760 RETURN 

N$, W$ und T$ sollen die drei Teile einer eingegebenen 
Adresse enthalten, »Name«, »Wohnort« und »Telefon«. Vor¬ 
aussetzung zum Aufruf dieses Unterprogramms ist natür¬ 
lich, daß zuvor auf den gewünschten Record positioniert 
wurde. 

Aber leider würde das Unterprogramm selbst dann feh¬ 
lerhaft arbeiten. Erinnern Sie sich: nach jedem 
PRINT#-Befehl positioniert die Floppy automatisch auf 
den nächsten Record. Angenommen, Sie haben vor Aufruf 
des Unterprogramms auf Record Nummer 1 positioniert. 
Dann wird der Name N$ zwar in diesen Record geschrie¬ 
ben, der Wohnort W$ jedoch in Record 2 und die Telefon¬ 
nummer T$ in Record 3. 

Ein kompletter Datensatz muß daher »in einem Zug«, mit 
einem PRINT#-Befehl in die Datei geschrieben werden. 
Zum Beispiel so: 

PRINT#1,N$ W$ T$:REM EIN PRINT#-BEFEHL II! 

Auf diese Weise speichern wir alle drei Stringvariablen 
mit nur einer PRINT#-Anweisung. Nur: Wir können die 
Adresse nicht mehr vernünftig einiesen. Die drei Zeichen¬ 
ketten wurden unmittelbar aneinandergehängt gespei¬ 
chert: 

MAIER6800 HEIDELBERG12345/67890 

Beim Lesen wird mit einem INPUT#-Befehl diese zu¬ 
sammenhängende Zeichenkette gelesen. Der INPUT#- 
Befehl ist nicht in der Lage, die drei Adreßteile zu unter¬ 
scheiden. 
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Denksportaufgabe 


Bevor wir dieses Problem lösen, bekommen Sie eine kleine 
»Denksportaufgabe«. Wie schafft es der INPUT#-Befehl 
eigentlich normalerweise, zwei nacheinander gespeicher¬ 
te Zeichenketten voneinander zu unterscheiden? 


800 REM **x DATENSATZ LESEN xxx 
810 INPUT#2,N$: IF N$="x" TUEN N$= 
820 INPUT# 2, W$ 

830 INPUT#2,T$ 

840 RETURN 


IF W$="x" THEN W$= 
IF T$="x" THEN T$= 


IIII 
UH 
IIH 


Einträgen von Adressen 


PRINT #1, "TEST" 

PRINT#1,"NOCH EIN TEST" 


In put #i,a$ 

INPUT #1,B$ 

Wie ist es möglich, daß wir mit zwei PRINT#-Anweisun- 
gen zwei Zeichenketten zum Beispiel in einer einfachen se¬ 
quentiellen Datei speichern und die INPUT#-Anweisung 
beim Wiedereinlesen erkennt, wo die erste Zeichenkette 
endet und die zweite beginnt? 

Ich gebe zu: diese Aufgabe können Sie kaum lösen. Da¬ 
zu muß man wissen, was genau bei der Ausführung einer 
PRINT #-Anweisung passiert, nämlich folgendes: Die an¬ 
gegebene Zeichenkette oder Zahl wird gespeichert und un¬ 
mittelbar dahinter ein Sonderzeichen, eine »Endemarke«. 
Diese Endemarke besitzt den gleichen ASCII-Code wie die 
RETURN-Taste, nämlich 13. Mit CHR$(13) können wir die¬ 
ses Zeichen »erzeugen« und unsere drei Adreßteile »per 
Hand« trennen: 

PRINT#1,N$ CHR$(13) W$ CHR$(13) T$:REM EIN 
PRINT#-BEFEHL !!! 

Zwischen den drei Adreßteilen fügen wir diese »Ende¬ 
marke« ein. Um die Endemarke nach T$ kümmert sich der 
PRINT#-Befehl. 

Merken Sie sich: PRINT# speichert hinter den angege¬ 
benen Daten automatisch als Endemarke das Zeichen mit 
dem ASCII-Code 13. Wollen Sie mehrere in einer 
PRINT # -Anweisung aufgeführte Zeichenketten voneinan¬ 
der trennen, fügen Sie dieses Trennzeichen einfach »per 
Hand« ein. 

Ohne dieses Sonderzeichen nach jedem Adreßteil wäre 
es der Floppy beim Wiedereinlesen mit INPUT# nicht 
möglich, zu erkennen, wo der erste Teil einer Adresse (der 
Name) endet und der zweite Teil (der Wohnort) beginnt. 

Nun können wir wie üblich beim Lesen drei 
INPUT#-Anweisungen verwenden, um die drei Adreßteile 
getrennt einzulesen. 

Fast haben wir ihn geschafft, unseren Programmab¬ 
schnitt »Schreiben von Datensätzen«. Allerdings haben wir 
das bereits erläuterte Problem leerer Zeichenketten noch 
nicht behandelt. Wir wählen genau die Methode, die ich Ih¬ 
nen im Abschnitt über sequentielle Dateien vorschlug: wir 
ersetzen leere Zeichenketten vorm Speichern durch das 
Zeichen »*« und umgekehrt beim Lesen den Stern durch ei¬ 
ne leere Zeichenkette. Und endlich können wir die endgülti¬ 
ge Fassung nicht nur unseres Schreib-, sondern auch des 
entsprechenden Lese-Unterprogramms formulieren: 

720 REM xxx DATENSATZ SCHREIBEN xxx 
730 IF N$="" THEN N$="x": REM ACHTUNG: DAS 
SCHREIBEN VON 

740 IF W$="" THEN W$="x": REM 'LEERSTRINGS' MUSS 
VER- 

750 IF T$="" THEN T$=''x": REM MIEDEN WERDEN !!! 

760 PRINT# 2, N$ CHR$(13) W$ CHR$(13) T$:REM 1 
PRINT#-BEFEHL IM 
770 RETURN 


Das Unterprogramm »Einträgen« besteht fast ausschließ¬ 
lich aus dem Aufruf weiterer Unterprogramme: 

330 REM xxx NEUE ADRESSE EINTRÄGEN xxx 
340 PRINT "xEINTRAGENx" 

350 G0SUB 650: REM ADRESSE ABFRAGEN 
360 AD=AD+1 

370 REC=AD: GOSUB 880: REM POSITIONIEREN 
380 GOSUB 730: REM SATZ SCHREIBEN 
390 RETURN 

Ab Zeile 650 beginnt das Unterprogramm, das den Be¬ 
nutzer nach der einzugebenden Adresse fragt. Nach Rück¬ 
kehr aus diesem Unterprogramm ist der eingegebene Na¬ 
me in N$, der Wohnort in W$ und die Telefonnummer in T$ 
gespeichert. 

Jede neu eingegebene Adresse wird hinter der letzten 
vorhandenen Adresse in der Datei gespeichert. Die Num¬ 
mer der letzten Adresse befindet sich in AD (= Datensatz¬ 
anzahl). Der Wert AD wird um 1 erhöht (Zeile 360), der 
Schreib-Lesekopf auf den Record Nummer AD positioniert 
und die Adresse in diesem Record gespeichert. 

Blättern in der Adreßdatei 


Nach Anwahl der Funktion »Blättern« können Sie mit den 
Tasten <CURSOR-rechts> und <CURSOR-links> inder 
Datei »blättern«. Wichtig für das Verständnis dieses Unter¬ 
programms ist die Variable REC. REC enthält immer die 
Nummer jenes Records, auf den zuletzt positioniert wurde. 

Wenn wir REC um 1 vermindern, positionieren wir somit 
auf die vorhergehende Adresse, beim Erhöhen um 1 aufdie 
nachfolgende Adresse. Und genau auf dieser Methode ba¬ 
siert das folgende Unterprogramm. 

<CURSOR-rechts> (Code 29) erhöht die aktuelle Re¬ 
cordnummer REC um eins, <CURSOR-links> (Code 157) 
vermindert sie um eins. Anschließend wird die im aktuellen 
Record gespeicherte Adresse gelesen und auf dem Bild¬ 
schirm ausgegeben. 

420 REM xxx BLAETTERN xx# 

430 PRINT "xBLAETTERNx * 

440 GET A$: IF A$="" THEN GOTO 440 
450 IF A$OCHR$(29) AND A$< >CHR$(157) THEN 
RETURN 

460 IF A$=CHR$(29) AND REC<AD THEN REC=REC+1 

470 IF A$=CHR$(157) AND REC>1 THEN REC=REC-1 

480 GOSUB 880: REM POSITIONIEREN 

490 GOSUB 810: REM ADRESSE LESEN 

500 PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 

510 GOTO 440 

Die Funktion »Blättern« beenden Sie durch Betätigung 
einer beliebigen Taste außer cCURSOR-rechts >/<CUR- 
SOR-links> (Zeile 450). 

<CURSOR-links> bewirkt, daß die letzte Record- 
Nummer um 1 vermindert wird, cCURSOR-rechts > wirkt 
entgegengesetzt. Angenommen, Sie tragen drei Adressen 
in die neu erstellte relative Datei ein. REC besitzt anschlie¬ 
ßend den Inhalt 1 (siehe »Einträgen«), <CURSOR-links> 
vermindert REC um 1 - REC »zeigt« nun auf Adresse Num¬ 
mer 2. Auf diesen Record wird positioniert (Zeile 480) und 
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die darin enthaltene Adresse mit einem weiteren Unterpro¬ 
gramm gelesen. Zeile 500 gibt die Adresse auf dem Bild¬ 
schirm aus, danach wird zum Beginn von »Blättern« ver¬ 
zweigt. 

Erwähnenswert sind eigentlich nur die »Sonderprüfun¬ 
gen« vor dem Ändern der Record-Nummer. <CURSOR- 
links>, also das »Zurückblättern«, wird nur ausgefühlt, 
wenn REC noch größer als 1 ist, da sonst auf Record Num¬ 
mer 0 (?) positioniert würde, ein Versuch, den wir uns spa¬ 
ren können. 

Umgekehrt wird <CURSOR-rechts> nur ausgeführt, 
wenn REC noch kleiner ist als AD, die Nummer des letzten 
belegten Records. Ohne diese Überprüfung blättern Sie 
vielleicht über das Dateiende hinaus zu einem nicht existie¬ 
renden Record. 

Ändern einer Adresse 


Der Ablauf der Funktion »Ändern« ist fast identisch mit dem 
Einträgen. Voraussetzung für die Anwahl dieser Funktion 
ist, daß Sie zuvor die zu ändernde Adresse mit der Funktion 
Blättern gesucht haben. 

Dabei wird REC solange erhöht beziehungsweise ver¬ 
mindert, bis Sie die gewünschte Adresse gefunden haben. 
Das heißt REC enthält nun die Nummer jenes Records, in 
dem die zu ändernde Adresse gespeichert ist. 

Unser Unterprogramm muß nur noch die neue Adresse 
abfragen und damit den alten Inhalt des Records über¬ 
schreiben. 

540 REM *** AENDERN xxx 
550 PRINT "xAENDERNx" 

560 GOSUB 650: REM ADRESSE ABFRAGEN 
570 GOSUB 880: REM POSITIONIEREN 
580 GOSUB 750: REM SATZ SCHREIBEN 
590 RETURN 

Die geänderte Adresse wird abgefragt (Zeile 560), auf 
den Record Nummer REC positioniert (Zeile 570) und in 
diesen Record die neu eingegebene Adresse eingetragen 
(Zeile 580) - die alte Adresse wird einfach überschrieben. 

Nun besitzen wir unser »Grundgerüst« für eine Dateiver¬ 
waltung und Sie können mit relativen Dateien umgehen. 
Die Dateiverwaltung werden wir weiter ausbauen. Aber zu¬ 
vor dürfen Sie das komplette Programmlisting eingehend 
studieren. 

Dabei sollten Sie die Bedeutung der beiden Variablen AD 
und REC immer »im Hinterkopf« haben: 

AD: Aktuelle Datensatzanzahl * 

REC: Record (Adresse), auf den zuletzt positioniert wurde 
Zum Abschluß noch einige Hinweise zur Programmbedie¬ 
nung: 

1. Bevor Sie eine Adresse ändern können, müssen Sie 
den betreffenden Satz zuerst mit der Blätterfunktion 
suchen. Wählen Sie »Ändern« erst an, wenn der ge¬ 
wünschte Satz angezeigt wird. 

2. Vergessen Sie niemals, das Programm mit der Funk¬ 
tion »ENDE« zu verlassen. »ENDE« aktualisiert die In¬ 
fodatei und speichert die aktuelle Datensatzanzahl. 
Nur so ist gewährleistet, daß das Programm bei der 
nächsten Benutzung noch »weiß«, wie viele Adressen 
bereits in der Datei vorhanden sind. 

Komplettes Listing 


100 OPEN 1,8,15: REM BEFEHLSKANAL 0EFFNEN 
110 OPEN 2,8,2,"INFODATEI,S,R": REM SEQ.DATEI 
0EFFNEN 

120 INPUT#1,A: REM FEHLER AUFGETRETEN? 

116 


130 IF A=0 THEN INPUT#2,AD: REM NEIN, DANN 
ADRESSANZAHL LESEN 

140 CLOSE 2: REM SEQUENTIELLE DATEI SCHLIESSEN 
150 : 

160 OPEN 2,8,2,"ADRESSEN,L,"+CHR$(100): REM REL- 
DATEI 0EFFNEN 
170 : 

180 : 

190 REM x** MENUE xxx 

,200 PRINT .-PRINT "1=EINTRAGEN/2=BLAETTERN/3=AENDERN 
/4=ENDE":PRINT 

210 GET A$: IF A$=''" THEN GOTO 210 
220 : 

230 IF A$<>"4" THEN ON VAL(A$) GOSUB 340,430,550 
: GOTO 200 
240 : 

250 : 

250 CLOSE 2: REM RELATIVE DATEI SCHLIESSEN 
260 PRINT #1,"S: INFODATEI": REM SEQ.DATEI L0ESCHEN 
270 OPEN 2,8,2,"INFODATEI,S,W": REM SEQ.DATEI 
OEFFNEN 

280 PRINT#2,AD: REM ADRESSANZAHL SPEICHERN 
290 CLOSE 2: CLOSE 1: REM ALLE DATEIEN SCHLIESSEN 
300 END 
310 : 

320 : 

330 REM xxx NEUE ADRESSE EINTRÄGEN xxx 
340 PRINT "xEINTRAGENx" 

350 GOSUB 650: REM ADRESSE ABFRAGEN 
360 AD=AD+1 

370 REC=AD: GOSUB 880: REM POSITIONIEREN 
380 GOSUB 730: REM SATZ SCHREIBEN 
390 RETURN 
4Ö0I9»» 

410 : 

420 REM xxx BLAETTERN xxx 
430 PRINT "xBLAETTERNx * 

440 GET A$: IF A$="" THEN GOTO 440 
450 IF A*OCHR*(29) AND A$< >CHR$(157) THEN 
RETURN 

460 IF A$=CHR$(29) AND REC<AD THEN REC=REC+1 

470 IF A$=CHR$(157) AND REC>1 THEN REC=REC-1 

480 GOSUB 880: REM POSITIONIEREN 

490 GOSUB 810: REM ADRESSE LESEN 

500 PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 

510 GOTO 440 

520 : 

530 : 

540 REM xxx AENDERN xxx 
550 PRINT "xAENDERNx" 

560 GOSUB 650: REM ADRESSE ABFRAGEN 
570 GOSUB 880: REM POSITIONIEREN 
580 GOSUB 730: REM SATZ SCHREIBEN 
590 RETURN 
600 : 

610 : 

640 REM xxx ADRESSE ABFRAGEN xxx 
650 N$= "": W$="": T$="" 

660 INPUT "NAME";N$ 

670 INPUT "WOHNORT";W$ 

680 INPUT "TELEFON ";T$ 

690 RETURN 
700 : 

710 : 

720 REM xxx DATENSATZ SCHREIBEN xxx 
730 IF N$= ** THEN N$="x": REM ACHTUNG: DAS 

SCHREIBEN VON 

740 IF W$="" THEN W$="x": REM 1 LEERSTRINGS 1 MUSS 

VERMIEDEN 
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750 IF T$="" TUEN T$="*": REM WERDEN !!! 

760 PRINT#2,N$ CHR$(13) W$ CHR$(13) T$:REM EINS 
PRINT#-BEFEHL II! 

770 RETURN 
780 : 

790 : 

800 REM **# DATENSATZ LESEN *#* 


TUEN N$="" 
THEN W$="" 
TUEN T$="" 


810 INPUT#2,N$: IF N$=V 
820 INPUT#2,W$: IF W$=V 
830 INPUT#2,T|: IF T$=V 
840 RETURN 
850 : 

860 : 

870 REM ##* POSITIONIEREN **# 

880 HB=INT(REC/256) 

890 LB«REC-HB#256 

900 PRINT #1, "P "+CHR$ (2) +CHR$ (LB) +CIIR$ (HB) +CHR$ (1) 
910 RETURN 

III. Index-sequentielle Dateiverwaltung 


Im letzten Kapitel habe ich Ihnen zwar relative Dateien 
schmackhaft gemacht, aber ganz ehrlich: allein mit einer 
relativen Datei läßt sich keine vernünftige Dateiverwaltung 
erstellen. Sie können damit zwar riesige Datenmengen ver¬ 
walten und sind nicht auf die Größe des freien Speichers 
beschränkt. Sie müssen auch nicht vor Beginn der Arbeit 
die komplette Datei langwierig einiesen und anschließend 
ebenso aufwendig die komplette Datei wieder speichern. 

Aber dafür ist die praktische Arbeit mit einer großen rela¬ 
tiven Datei sehr »zähflüssig«. In unserem Beispielpro¬ 
gramm ist dies nicht der Fall. Da geht sowohl das Einträgen 
als auch das Ändern und Blättern sehr schnell. 

Diese Geschwindigkeit geht jedoch sofort verloren, 
wenn wir unser Programm um die wichtigen Funktionen 
»Suchen« und »Sortieren« erweitern. 

»Suchen« heißt, daß Sie zum Beispiel als »Suchkriteri¬ 
um« den Namen »Maier« eingeben. Daraufhin wird das Pro¬ 
gramm die komplette Datei nach einer Adresse mit diesem 
Namen durchsuchen. Angenommen, die Datei enthält 500 
Adressen und die Record-Länge beträgt 100 Zeichen. 
Dann beträgt die Dateigröße 500 x 100 Zeichen, also 50 000 
Zeichen oder rund 50 KByte. Diese Datei zu durchsuchen, 
die immerhin ein Drittel der gesamten Diskettenkapazität 
benötigt, kann sehr lange dauern. 

Ein Beispiel: Nehmen wir an, der gesuchte »Maier« ist die 
letzte eingetragene Adresse und befindet sich im Record 
Nummer 500. In diesem Extremfall hat das Programm 500 
Records (angefangen bei Nummer 1) der Reihe nach zu le¬ 
sen und mit dem Suchkriterium »Maier« zu vergleichen. Bei 
der recht gemütlichen Floppy 1541 des C64 dauert jeder 
Zugriff auf einen Record etwa eine Sekunde. Das heißt in 
unserem Beispiel warten Sie 500 Sekunden oder knapp 
acht Minuten! 

Zugegeben, dieser Fall ist extrem. Aber auch Suchzeiten 
von einer oder zwei Minuten sind bereits sehr unange¬ 
nehm. Der Haken bei unserer Dateiform ist, daß wir zwar di¬ 
rekt auf jeden Record zugreifen können, da wir jedoch nicht 
wissen, wo sich der gesuchte »Maier« befindet, dennoch 
zur zeitraubenden »sequentiellen Suche« greifen und Re¬ 
cord für Record lesen und den Inhalt prüfen müssen. 

Diese sequentielle Suche wäre erheblich schneller, 
wenn sich die komplette Datei im Speicher befände, wie zu¬ 
vor unsere sequentiellen Dateien. Zugriffe im Speicher 
sind gegenüber Diskettenzugriffen um ein Vielfaches 
schneller. Selbstverständlich könnte unser Programm 
nach dem Start alle Records der Datei der Reihe nach le¬ 
sen und ihre Inhalte in Array-Variablen speichern. Und vor 


dem Verlassen des Programms könnten wir wie bei se¬ 
quentiellen Dateien die komplette Datei neu speichern. 
Dann wäre jedoch die Dateigröße wieder auf die frei verfüg¬ 
bare Speicherkapazität beschränkt. Im Grunde würden wir 
die relative wie zuvor eine sequentielle Datei behandeln, 
ohne ihre Vorteile auszunutzen. 

Wir benötigen einen Mittelweg, eine Methode, die uns er¬ 
laubt, alle nicht zeitkritischen Vorgänge direkt auf der Dis¬ 
kette »abzuwickeln« und den sehr wohl zeitkritischen Such¬ 
vorgang schnell im Rechnerspeicher vorzunehmen. Die¬ 
ser Kompromiß ist tatsächlich möglich, man spricht dabei 
von »index-sequentiellen« Dateien. Bevor ich Ihnen diese 
Art der Datenorganisation erläutere, will ich noch kurz auf 
das Sortieren von Daten eingehen. 

Es gibt Dutzende verschiedener »Sortier-Algorithmen«, 
also Methoden zum numerischen oder alphabetischen 
Sortieren von Daten. Alle besitzen jedoch eine Gemein¬ 
samkeit: Sortieren beruht immer auf Vertauschen. Eine 
sortierte Anordnung, zum Beispiel von Namen, wird er¬ 
reicht, indem wiederholt zwei Namen miteinander ver¬ 
tauscht werden. Im Computer-Speicher ist das sehr ein¬ 
fach, zum Beispiel das Vertauschen von A$ und B$: 

X$ = A$ : A$ = B$ : B$ = X$ 

Angenommen, unsere Datei befände sich wie zuvor die 
sequentielle Datei komplett in drei Stringarrays, in N$(..) die 
Namen, in W$(..) die Wohnorte und in T$(..) die Telefonnum¬ 
mern. Dann könnten wir Adresse 1 und Adresse 2 einfach 
vertauschen durch folgende Operationen: 

X$ = N$(1) : N$(1) = N$(2) : N$(2) = X$ 

X$ = W$(1) : W$(1) = W$(2) : W$(2) = X$ 

X$ = T$(1) : T$(1) = T$(2) : T$(2) = X$ 

Da sich unsere relative Datei jedoch nicht im Speicher 
befindet, müssen wir statt dessen die Records 1 und 2 ein- 
lesR" und anschließend den Inhalt von Record 1 in Record 
2 speichern und umgekehrt. 

Bei einer Datei mit 500 Adressen sind - je nach verwen¬ 
detem Sortierverfahren - mehrere tausend Vertauschun¬ 
gen notwendig. Pro Vertauschung sind zwei Records zu le¬ 
sen und zu schreiben, macht vier Sekunden pro Vertau¬ 
schung. Multipliziert mit beispielsweise 5000 (zum Beispiel 
bei 500 Adressen mit je 10 Eingabefeldern) kommen wir auf 
20000 Sekunden beziehungsweise 333 Minuten oder etwa 
5 Stunden. 

Vielleicht sind Sie bereit, diesen Zeitaufwand in Kauf zu 
nehmen. Wenn ja, beneide ich Sie. Ich erwarte jedoch von 
einem »computerisierten Karteikasten«, daß er ein wenig 
schneller sortiert, als ich das von Hand schaffe. 

Also wird uns unsere relative Datei bereits beim Suchen 
und erst recht beim Sortieren von Daten mit unerträglichen 
Wartezeiten quälen. Und beide Probleme könnten wir lö¬ 
sen, wären die Adressen wie bei sequentiellen Dateien 
ständig im Speicher vorhanden. 

Verknüpfung der Dateiarten 


Die Lösung sind »index-sequentielle« Dateien. Für diese 
Form werden keinerlei neue Dateiarten benötigt. Sequen¬ 
tielle und relative Dateien reichen aus. Der Trick beruht auf 
der besonderen Gestaltung der »Datenstrukturen«, das 
heißt der Art und Weise, wie die Daten verwaltet werden. 

Index-sequentielle Dateien benötigen zwei Dateien, eine 
»Datensatz-« und eine »Indexdatei«. Die Datensatzdatei 
enthält die eigentlichen Daten, in unserem Fall also die 
Adressen. Diese Datei ist identisch mit der zuvor verwalte¬ 
ten relativen Datei. 

Die Indexdatei ist eine zusätzliche sequentielle Datei, die 
zu Beginn komplett in den Speicher gelesen und vorm Ver¬ 
lassen des Programms wieder gespeichert wird. 
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Obwohl sich die Adressen bereits in der (relativen) Daten¬ 
satzdatei befinden, enthält auch die Indexdatei einen Teil 
der Adressen, den sogenannten »Index« oder »Schlüssel«. 

Darunter ist jener Adreßteil zu verstehen, der für den Be¬ 
nutzer am wichtigsten ist, bei einer Adreßdatei also der Teil 
»Name«. Nehmen wir an, die Datensatzdatei enthält drei 
Records mit den folgenden Adressen: 


(Relative) Datensatzdatei 


Recordnr. 

Adresse 

1 

Maler/6800 Mannhelm/06215 

2 

Bauer/8000 Muenchen/326547 

3 

Xaver/4000 Duesseldorf/327854 


Dann enthält die Indexdatei nur die drei Namen »Maier«, 
»Bauer« und »Xaver«. Und zusätzlich drei »Zeiger« auf die 
Records, in denen sich die vollständigen Adressen dieser 
drei Personen befinden. 

Ein solcher Zeiger ist nichts anderes als eine Variable, 
die die zugehörige Record-Nummer 1, 2 oder 3 enthält. 


(Sequentielle) Indexdatei: 


Index 

Zeiger 

Maler 

1 

Bauer 

2 

Xaver 

3 


Die »Indexeinträge« und die Zeiger werden in separaten Ar¬ 
rays gespeichert, zum Beispiel in NAME$(..) und REC°/o(..). 
NAME$(1) = "MAIER" REC%(1) = 1 

NAME$(2) = "BAUER" REC°/o(2) = 2 

NAME$(3) = "XAVER" REC%(3) = 3 

Zu jedem Element des Arrays NAME$(..) gehört ein Ele¬ 

ment des Arrays REC%(..), das die zugehörige Record- 
Nummer enthält. Such- und Sortiervergänge können nun 
im Speicher vorgenommen werden. 

Ein Beispiel: Sie benötigen die Telefonnummer von 
Herrn Xaver. Dann wird das Array NAME$(..) anhand die¬ 
ses Suchkriteriums durchsucht, bis der gewünschte Ein¬ 
trag NAME$(3) gefunden ist. Der zugehörige Zeiger besitzt 
die gleiche Indexnummer, also 3. Die vollständige Adresse 
befindet sich also in jenem Record, auf den die Variable 
REC%(3) »zeigt«, in Record Nummer 3. Der Inhalt dieses 
Records wird von Diskette gelesen und auf dem Bildschirm 
angezeigt. 

Diese Methode ist nur erfolgreich, wenn Sie beim Su¬ 
chen einer Adresse als Suchkriterium auch tatsächlich den 
jeweiligen Namen eingeben. Wenn diese Bedingung erfüllt 
ist, muß sich das Programm nicht mehr Record für Record 
durch die riesige relative Datei »wühlen«. Statt dessen wird 
blitzschnell direkt im Rechnerspeicher das Indexarray 
durchsucht und anschließend mit Hilfe des zugehörigen' 
Zeigers gezielt nur jener eine Record eingelesen, der die 
gesuchte Adresse enthält. 

Ebenso vorteilhaft ist die Methode beim Sortieren von 
Adressen, das - wie wir sahen - noch weitaus zeitkritischer 
ist als das Suchen. In unserem Beispiel müßten wir die 
Adressen von Herrn Maier und Herrn Bauer vertauschen, 
um die Datei zu sortieren. 

Bei der index-sequentiellen Datenorganisation genügt 
es, im Speicher die Inhalt der beiden Variablen NAME$(1) 
und NAME$(2) und die zugehörigen »Zeigervariablen« 
REC%(1) und REC%(2) zu vertauschen. 


Unsortiert 

Sortiert 

NAME$(1)= "MAIER" REC%(1)=1 
NAME$(2)= "BAUER" REC%(2)=2 
NAME$(3)= "XAVER" REC%(3)=3 

NAME$(1)= "BAUER" REC%(1)=2 
NAME$(2)= 'MAIER' REC%(2)=1 
NAME$(3)= "XAVER" REC%(3)=3 


Ob die Datei sortiert oder unsortiert ist, spielt nur in unse¬ 
rer »Blätterfunktion« eine Rolle. Diese Funktion verminder¬ 
te oder erhöhte bisher die aktuelle Record-Nummer und las 
anschließend den nächsten beziehungsweise vorherge¬ 
henden Record ein. 

Nun jedoch spielt sich auch das Blättern im Speicher ab. 
Statt einer Record-Nummer verwenden wir eine »Satznum¬ 
mer« SNR. Die Satznummer ist so zu interpretieren: Sie 
gibt an, der wie vielte Name (und die zugehörige komplette 
Adresse) unseres Arrays NAME$(„) angezeigt wird. 

Nehmen wir an, die Satznummer ist momentan 1. Dann 
soll der erste Name angezeigt werden, also »Bauer«, wenn 
unser Array sortiert ist. Die zugehörige Record-Nummer ist 
2. Daher liest das Programm Record Nummer 2 ein, in dem 
sich die vollständige Adresse befindet, und zeigt sie auf 
dem Bildschirm an. 

Beim Blättern wird nun nicht mehr eine Record-Nummer 
erhöht oder vermindert, sondern unsere Satznummer, die 
sich auf die sortierten Namen bezieht. Und über die zuge¬ 
hörige Record-Nummer wird die komplette Adresse gele¬ 
sen, egal in welchem Record sie sich befindet. 

Zusammengefaßt kann man sagen: Die Indexdatei ent¬ 
hält nur den wichtigsten Tender vollständigen Adressen, 
normalerweise die Namen. Über die zugehörigen Zeiger 
wird eine Verbindung zwischen den Namen und den Re¬ 
cords hergestellt, in denen die komplette Adresse gespei¬ 
chert ist. Um die Verbindung aufrecht zu erhalten, werden 
bei allen Vorgängen, die die Indexdatei verändern (zum 
Beispiel einem Sortierlauf), die zugehörigen Zeiger in der 
gleichen Weise manipuliert. 

Sie sehen: Index-sequentielle Dateien sind im Grunde 
keine neue Dateiform, sondern stellen eine geschickte Ver¬ 
bindung sequentieller und relativer Dateien dar, die die Vor¬ 
züge beiuor Dateiarten ausnützt: die schnelle Manipulation 
einer in den Speicher eingelesenen sequentiellen Datei 
wird mit der enormen Kapazität und der Möglichkeit des di¬ 
rekten Zugriffs von relativen Dateien kombiniert. 

Doch nun zur Praxis: unsere »alte« relative Datei wurde 
absichtlich so aufgebaut, daß ein Umbau zu einer index¬ 
sequentiellen Datei sehr einfach ist. Zuerst einmal müssen 
wir am Programmanfang die benötigten Arrays dimensio¬ 
nieren: 

90 DIM NAME$(500), REC#(500) 

Mit dieser Dimensionierung können Sie bis zu 500 Adres¬ 
sen verwalten. Und sollte diese Anzahl nicht ausreichen, 
steht es Ihnen frei, die Dimensionierung zu vergrößern. 

Einträgen 

Das Unterprogramm »Einträgen« sah bisher so aus: 

330 REM »»» NEUE ADRESSE EINTRÄGEN »«» 

340 PRINT "«EINTRÄGEN»" 

350 G0SUB. 650: REM ADRESSE ABFRAGEN 
'360 AD=AD+1 

370 REC=AD: G0SUB 880: REM POSITIONIEREN 
380 G0SUB 740: REM SATZ SCHREIBEN 
390 RETURN 

Die Variable AD, die Datensatzanzahl, wurde um 1 er¬ 
höht.,Sie »zeigte« nun auf den ersten freien Record, und in 
diesen wurde die neue Adresse eingetragen. Dieses Prin¬ 
zip wird beibehalten. Zusätzlich müssen wir jedoch den Na¬ 
men und die Record-Nummer separat in unseren beiden 
Arrays speichern. Eine zusätzliche Programmzeile genügt: 

375 NAME$(AD)=N$: REC%(AD)=REC 

Nach dem Erhöhen zeigt AD nicht nur auf den ersten frei¬ 
en Record am Dateiende, sondern zugleich auf die ersten 
noch nicht belegten Elemente am Ende der beiden Arrays. 
Das heißt der Name und die zugehörige Record-Nummer 
wandern vorläufig an das Ende der Indexdatei. Das wider¬ 
spricht jedoch unserem Prinzip der sortierten Indexdatei. 



118 


SONDERHEFT 28 















C64 


DATEIVERWALTUNG-KURS 


Daher ist es sinnvoll, nach jedem neuen Eintrag das Array 
zu sortieren. Für das Sortieren ist ein kleines Unterpro¬ 
gramm zuständig, das ab Zeile 950 beginnt. Also ergänzen 
wir unsere zusätzliche Programmzeile um den Aufruf die¬ 
ses Unterprogramms: 

375 NAME$(AD)=N$: REC#(AD)=REC: GOSUB 950: REM IND¬ 
EX SORTIEREN 

Sortieren 

Zum Sortieren habe ich ein sehr einfaches (und auch 
langsames) Verfahren gewählt. Dieses Unterprogramm 
stelle ich ohne weitere Beschreibung vor, die Funktionswei¬ 
se spielt für unsere Dateiverwaltung keine Rolle: 

940 REM SORTIEREN 
950 FOR 1=1 TO AD-1 
960 : FOR J=I T0 AD 

970 : IF NAME$(I)< =NAME$(J) TUEN 1000 

980 : S$=NAME$(I): NAME$(I)=NAME$(J): NAME$(J)=S$ 

990 : S=REC#(I): REC#(I)=REC#(J): REC#(J)=S 

1000 : NEXT J 

1010 NEXT I 

1020 RETURN 

Sie werden feststellen, daß das Sortieren mit zunehmen¬ 
der Adreßanzahl - je größer AD ist - deutlich langsamer 
wird. Wenn dieses Unterprogramm Ihnen zu langsam ist, 
können Sie es gerne durch eine schnellere Sortier-Routine 
ersetzen. Aber beachten Sie bitte die Zeile 990: Wenn zwei 
Strings mit den Indizes I und J vertauscht werden, müssen 
Sie unbedingt auch die zugehörigen Record-Nummern mit 
den Indizes I und J vertauschen. Andernfalls wird die Ver¬ 
bindung zwischen einem Namen und dem Record, in dem 
sich die zugehörige Adresse befindet, zerstört. 

Wenn Ihnen das Sortieren zu gemächlich ist, sollten Sie 
jedoch eine andere Methode vorziehen: Entfernen Sie den 
Aufruf dieses Unterprogramms aus Zeile 375. Dann wird die 
Datei zwar weniger gut sortiert sein, je mehr neue Adressen 
Sie eintragen. Aber dafür ergänzen Sie das Menü um einen 
Punkt: »Sortieren der Datei«. Die Anwahl dieses Menü¬ 
punktes führt zum Aufruf des Unterprogramms »Sortieren«. 
Auf diese Weise entscheiden Sie darüber, wann die Datei 
sortiert wird, nicht das Programm. Und Sie können immer 
dann das Kommando zum Sortieren geben, wenn sich die 
Unordnung beim »Herumblättern« zu deutlich zeigt. 

Blättern in der Indexdatei 


Apropos Blättern: Dieser Programmteil wird in ganz ent¬ 
scheidender Weise geändert. In der alten Version wird die 
aktuelle Record-Nummer REC um 1 erhöht, wenn der Be¬ 
nutzer <CURSOR-rechts> drückt, und bei <CURSOR- 
links > vermindert. Anschließend wird der Record REC ge¬ 
lesen und ausgegeben. Diesmal blättern Sie nicht in der 
Reihenfolge der relativen, sondern der Indexdatei. Sie blät¬ 
tern im Array NAME$(..) nach rechts beziehungsweise 
nach links, um die Adressen in alphabetischer Ordnung 
auszugeben. 

Dazu brauchen Sie wie erläutert die Variable SNR, die 
»Satznummer«, die jederzeit die aktuelle Position innerhalb 
dieses Arrays angibt. 

420 REM ##* BLAETTERN ### 

430 PRINT "»BLAETTERN*" 

435 SNR=1: GOTO 475 
440 GET A$: IF A$="" THEN GOTO 440 
450 IF A$OCHR$(29) AND A$< >CHR$(157) THEN 
RETURN 

460 IF A$=CHR$(29) AND SNR<AD THEN SNR=SNR+1 
470 IF A$=CHR$(157) AND SNR>1 THEN SNR=SNR-1 


475 REC=REC#(SNR) 

480 GOSUB 880: REM POSITIONIEREN 

490 GOSUB 810: REM ADRESSE LESEN 

500 PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 

510 GOTO 440 

SNR erhält den Startwert 1. Dann geht es weiter mit Zeile 
475. REC wird der Inhalt der Variablen REC%(SNR) zuge¬ 
wiesen, die Record-Nummer des Namens Nummer 1. Das 
Programm liest die in diesem Record enthaltene Adresse 
und gibt sie aus. Um den weiteren Ablauf zu verfolgen, ge¬ 
hen wir von folgenden Adressen aus: 


Indexeinträge 

Record-Nummern 

Namo$(1)= "Arndt" 

Rec(1)=2 

Name$(2)= "Bauer" 

Rec(2)=3 

Name$(3)= "Dom" 

Rec(3)=5 

Namo$(4)= "Maier" 

Rec(4)=1 

Name$(5)= "Werner" 

Rec(5)=4 


Auf dem Bildschirm sehen Sie momentan die komplette 
Adresse von Herrn Arndt, die sich im Record Nummer 2 be¬ 
findet. Wenn Sie nun <CURSOR-rechts> drücken, erhöht 
das Programm SNR um 1 und liest wieder Record Nummer 
REC°/o(SNR) ein. Das ist jetzt Record REC%(2), denn der 
neue Wert von SNR ist 2. REC°/o(2) ist 3 (siehe Tabelle). Die¬ 
ser dritte Record enthält die Adresse »Bauer«, die nun er¬ 
scheint. 

Geblättert wird also nicht in der relativen Datei auf der 
Diskette, sondern in der sequentiellen Indexdatei im Spei¬ 
cher Ihres Computers. In dieser alphabetisch sortierten Da¬ 
tei bewegen Sie sich vor und zurück und das Programm 
»schrappt« sich immer den zugehörigen Satz aus der rela¬ 
tiven Datei. 

Ändern der Adressen 


Wie in der letzten Version können Sie die zuletzt beim Blät¬ 
tern angezeigte Adresse auch ändern. Drücken Sie einfach 
eine andere Taste als <CURSOR-rechts/CURSOR- 
links>, um zum Menü zu kommen. Wählen Sie den Menü¬ 
punkt »Ändern« und geben Sie die zu ändernde Adresse 
komplett neu ein. 

540 REM **x AENDERN *»* 

550 PRINT "»AENDERN»" 

560 GOSUB 650: REM ADRESSE ABFRAGEN 
570 GOSUB 880: REM POSITIONIEREN 
580 GOSUB 730: REM SATZ SCHREIBEN 
590 RETURN 

Das ist der alte Programmteil. REC enthält noch die 
Record-Nummer des aktuellen Satzes. Und genau dieser 
Record wird mit der neuen Adresse überschrieben: Die 
Adresse in der relativen Datei ist geändert. 

Wir müssen aber noch den Inhalt der Indexdatei ändern. 
SNR enthält immer noch - vom Blättern her - die Satznum¬ 
mer dieser Adresse im Indexarray. Also überschreiben wir 
einfach den Namen Nummer SNR und die Record- 
Nummer SNR mit den neuen Werten: 

575 NAME$(SNR)=N$: REC#(SNR)=REC: GOSUB 950: REM 
INDEX SORTIEREN 

GOSUB 950 ruft wieder das Sortierprogramm auf. Wenn 
Sie zum Beispiel »ARNDT« in »MEIER« ändern, befindet 
sich nun »MEIER« an erster Stelle der Indexdatei, in 
NAME$(1). Und das ist - alphabetisch gesehen - eindeutig 
falsch! Daher wird die Indexdatei nach jeder Änderung neu 
sortiert. 
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Speidiern und Laden der Indexdatei 


Das war’s an sich. Die Funktionen »Einträgen«, »Blättern« 
und »Ändern« verwalten nun außer der relativen Datei auch 
unsere (sequentielle) Indexdatei. Und bei »Einträgen« und 
»Ändern« genügte eine einzige zusätzliche Programm¬ 
zeile. 

Der Haken an der Sache ist nur: Nach dem Ausschalten 
des Computers ist die Indexdatei verschwunden. Das heißt, 
Sie müssen beim Beenden des Programms nicht nur wie 
bisher die Datensatzanzahl AD, sondern auch die beiden 
Arrays NAME$(..) und REC%(..) in der sequentiellen Datei 
»INFODATEI« speichern. Der entsprechend erweiterte Pro¬ 
grammteil: 

280 PRINT#2,AD: REM ADRESSANZAHL SPEICHERN 
282 FOR 1=1 TO AD 

284 : IF NAME$(I)="" THEN NAME$(I)="#" 

286 : PRINT # 2,NAME$(I): PRINT#2,REC#(I) 

288 NEXT I 

Den Zweck von Zeile 284 kennen Sie bereits. Sie verhin¬ 
dert, daß leere Zeichenketten gespeichert werden, mit de¬ 
nen wir beim Einlesen Schwierigkeiten bekommen. Wenn 
ein Name »leer« ist (Sie nur Wohnort und Telefonnummer 
eingaben), speichert das Programm statt dessen das Zei¬ 
chen »*«. 

Nach dem Programmstart lesen wir nun außer der Daten¬ 
satzanzahl AD auch das Indexarray ein. Und wir berück¬ 
sichtigen dabei auch das Sonderzeichen »*«, das wieder in 
einen Leerstring »zurückgewandelt« wird. 

130 IF A< >0 THEN GOTO 140: REM JA, WEITER 
132 INPUT#2,AD: REM ADRESSANZAHL LESEN 
134 FOR 1=1 TO AD 

136 : INPUT #2,NAME$(I): INPUT #2,REC%(I) 

137 : IF NAME$(I) = "x " THEN NAME$(I)="" 

138 NEXT I 

Sie können die Neuerungen in Ihr altes Programm ein¬ 
bauen. Es wird genauso ablaufen wie zuvor, aber diesmal 
erscheinen die Adressen beim Blättern in alphabetischer 
Reihenfolge. 


Suche nach einem Datensatz 


Eine völlig neue Funktion haben wir noch nicht behandelt: 
die gezielte Suche bestimmter Adressen. Sie geben einen 
Namen ein. Das Programm durchsucht die Indexdatei und 
lädt die entsprechende Adresse aus der relativen Daten¬ 
satzdatei. 

Sie wissen inzwischen, daß diese Suchfunktion in der al¬ 
ten Version nicht zu verwirklichen ist. Stellen Sie sich vor, 
Ihre Datei enthält 500 Adressen. Sie suchen »Maier« und 
diese Adresse befindet sich im letzten Record Nummer 
500. Bis das Programm endlich alle 500 Records gelesen 
und untersucht hat, vergeht viel zuviel Zeit. 

Aber in der neuen Programmversion durchsuchen Sie 
einfach die winzige Indexdatei im Speicher. Und diese Zu¬ 
griffe sind im Vergleich zu Diskettenzugriffen blitzschnell: 
1050 REM ADRESSE SUCHEN 
1060 INPUT "GESUCHTER NAME";N$ 

1070 FOR SNR=1 TO AD 

1080 : IF NAME$(SNR)< >SN$ THEN GOTO 1150 
1090 : REC=RECiÜ(SNR) 

1100 : GOSUB 880: REM POSITIONIEREN 

1110 : GOSUB 810: REM SATZ LESEN 

1120 : PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 

1130 : INPUT "WEITERSUCHEN(J/N)";A$ 

1140 : IF A$ < >"J" THEN RETURN 


1150 NEXT SNR 
1160 RETURN 

Der Ablauf ist allerdings etwas komplizierter als beim 
Einträgen oder Ändern. Sie geben den gesuchten Namen 
ein und das Programm speichert ihn in N$. Mit SNR als 
Schleifenvariable vergleicht es jeden Namen im Array 
NAME$(..) mit dem gesuchten. Wenn der gerade geprüfte 
Name ein anderer ist, verzweigt es zum Schleifenende (sie¬ 
he Zeile 1080), der nächste Name wird verglichen. 

Wenn der gesuchte Name gefunden ist, weist das Pro¬ 
gramm REC die zugehörige Record-Nummer REC%(SNR) 
zu und liest die komplette Adresse ein. Und nun fragt es Sie, 
ob Sie weitersuchen wollen. Denn die gefundene Adresse 
ist nicht unbedingt die richtige. Vielleicht enthält Ihre Datei 
mehrere »Maier«. Dann darf das Programm die Suche nicht 
einfach abbrechen, nur weil der erste »Maier« gefunden ist. 

Wenn Sie auf die Frage »WEITERSUCHEN(J/N)« ein »N« 
eintippen, ist die Suche beendet. Sonst wird die Schleife 
fortgesetzt und der nächste »Maier« gesucht. 

Eine feine Sache ist es, daß nach erfolgreicher Suche die 
Variable SNR die Satznummer des gefundenen Namens 
enthält. Schauen Sie sich noch einmal »Ändern« an. Diese 
Funktion ändert genau diese aktuelle Adresse mit der 
Nummer SNR. In der Praxis heißt das: Sie wollen die Tele¬ 
fonnummer von »Maier« ändern. Zuerst suchen Sie »Mai¬ 
er«, SNR enthält nun seine Satznummer in der Indexdatei. 
Nun wählen Sie »Ändern« an und geben die neue Adresse 
ein, den neuen »Satz Nummer SNR«. Diese Methode ist er¬ 
heblich einfacher, als sich mit »Blättern« in einer großen Da¬ 
tei bis zur gesuchten Adressse »durchzukämpfen«. 

Noch eine letzte Änderung ist nun einzugeben. Da es 
jetzt eine zusätzliche Programmfunktion gibt, ändert sich 
auch das Auswahlmenü: 

200 PitTO?' PRINT "1=EINTRAGEN/2=SUCHEN/3=BLAETTERN 
/4=AENDERN/5 =ENDE": PRINT 
210 GET A$: IF A$='"' THEN GOTO 210 
220 : 

230 IF A$< >"5" THEN ON VAL(A$) GOSUB 340,1060, 
430,550: GOTO 200 

Versuchen Sie bitte nicht, eine vorhandene Adreßdatei 
mit der neuen Programmversion zu bearbeiten. Die »INFO¬ 
DATEI« enthält nun andere Daten und ist zur alten Version 
nicht kompatibel. 

Und denken Sie daran: Wenn Ihnen das Sortieren zu 
langsam ist, entfernen Sie aus den Zeilen 375 und 575 den 
Aufruf des Sortierprogramms (GOSUB 950). Statt dessen 
erweitern Sie das Menü um einen Punkt »6=Sortieren«. Bei 
Anwahl dieser Funktion wird das Sortierprogramm aufge¬ 
rufen. 

Komplettes Listing (Index-Sequentiell) 


90 DIM NAME$(500), REC#(500) 

100 OPEN 1,8,15: REM BEFEHLSKANAL'OEFFNEN 
110 OPEN 2,8,2,"INFODATEI,S,R": REM SEQ.DATEI 
OEFFNEN 

120 INPUT#1,A: REM FEHLER AUFGETRETEN? 

130 IF A< >0 THEN GOTO 140: REM JA, WEITER 
132 INPUT#2,AD: REM ADRESSANZAHL LESEN 
134 FOR 1=1 T0 AD 

136 : INPUT#2,NAME$(I): INPUT#2,REC!S(I) 

137 : IF NAME$(I) = "*" THEN NAME$(I)="" 

138 NEXT I 

140 CLOSE 2: REM SEQUENTIELLE DATEI SCHLIESSEN 
150 : 

160 OPEN 2,8,2, "ADRESSEN,L,"+CHR$(100): REM REL- 
DATEI OEFFNEN 
170 : 
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180 : 

190 REM *## MENUE *#* 

200 PRINT: PRINT "1=EINTRAGEN/2=SUCHEN/ 
3=BLAETTERN/4=AENDERN/5=ENDE" : PRINT 
210 GET A$: IF A$="" THEN GOTO 210 
220 : 

230 IF A$< > " 5" TUEN ON VAL(A$) GOSUB 340,1060, 
430,550: GOTO 200 
240 : 

250 : 

250 CLOSE 2: REM RELATIVE DATEI SCHLIESSEN 
260 PRINT# 1,"S: INFODATEI": REM SEQ.DATEI 
LOESCHEN 

270 OPEN 2,8,2/' INFODATEI,S,W": REM SEQ.DATEI 
OEFFNEN 

280 PRINT#2,AD: REM ADRESSANZAHL SPEICHERN 
282 FOR 1=1 TO AD 

284 : IF NAME ${!) = "" THEN NAME$(I) = "*" 

286 : PRINT#2,NAME$(I): PRINT#2,RECJS(I) 

288 NEXT I 

290 CLOSE 2: CLOSE 1: REM ALLE DATEIEN SCHLIESSEN 
300 END 
310 : 

320 : 

330 REM *** NEUE ADRESSE EINTRÄGEN **# 

340 PRINT "«EINTRÄGEN*" 

350 GOSUB 650: REM ADRESSE ABFRAGEN 
360 AD=AD+1 

370 REC=AD: GOSUB 880: REM POSITIONIEREN 
375 NAME$(AD)=N$: REC#(AD)=REC: GOSUB 950: REM 
INDEX SORTIEREN 


730 IF N$=" " THEN N$="*": REM ACHTUNG: DAS 

SCHREIBEN VON 

740 IF W$="" THEN W$="*": REM 'LEERSTRINGS' 

MUSS VER- 

750 IF T$=" " THEN T$="*": REM MIEDEN WERDEN !!! 
760 PRINT#2,N$ CHR$(13) W$ CHR$(13) T$:REM EIN 

PRINT#-BEFEHL !!! 

770 RETURN 
780 : 

790 : 

800 REM *** DATENSATZ LESEN *** 

810 INPUT# 2, N$: IF N$="*" THEN N$="" 

820 INPUT# 2, W$: IF W$="*" THEN W$="" 

830 INPUT#2,T$: IF T$="*" THEN T$="" 

840 RETURN 
850 : 

860 : 

870 REM *** POSITIONIEREN *** 

880 HB=INT(REC/256) 

890 LB=REC-HB*256 

900 PRINT# 1, "P" +CIIR$(2) +CHR$(LB) +CHR$(HB 
)+CHR (1) 

910 RETURN 
920 : 

930 : 

940 REM SORTIEREN 

950 FOR 1=1 TO AD-1 

960 : FOR J=I TO AD 

970 : IF NAME$(I)< =NAME$(J) THEN 1000 

980 : S$=NAME$(I): NAME$(I)=NAME$(J): NAME$(J)=S$ 

990 : S=REC55(I): REC%(I)=RECX(J): RECS6(J)=S 


380 GOSUB 730: REM SATZ SCHREIBEN 
390 RETURN 
400 : 


1000 : NEXT J 
1010 NEXT I 
MW OnurioS" iETURN 


410 : 

420 REM *** BLAETTERN *** 

430 PRINT "«BLAETTERN*" 

435 SNR=1: GOTO 475 
440 GET A$: IF A$="" THEN GOTO 440 
450 IF A$OCHR$(29) AND A$< >CHR$(157) THEN 
RETURN 

460 IF A$=CHR$(29) AND SNR<AD THEN SNR=SNR+1 
470 IF A$=CHR$(157) AND SNR>1 THEN SNR=SNR-1 
475 REC=REC%(SNR) 

480 GOSUB 880: REM POSITIONIEREN 

490 GOSUB 810: REM ADRESSE LESEN 

500 PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 

510 GOTO 440 


1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 


REM ADRESSE SUCHEN 
INPUT "GESUCHTER NAME" ;N$ 

FOR SNR=1 TO AD 

: IF NAME$(SNR)< >SN$ THEN GOTO 1150 
: REC=REC%(SNR) 

: GOSUB 880: REM POSITIONIEREN 
: GOSUB 810: REM SATZ LESEN 
: PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 
: INPUT "WEITERSUCHEN(J/N)";A$ 

: IF A$< > " 3 " THEN RETURN 

NEXT SNR 

RETURN 


520 : 

530 : 

540 REM *** AENDERN *** 

550 PRINT "«AENDERN«" 

560 GOSUB 650: REM ADRESSE ABFRAGEN 
570 GOSUB 880: REM POSITIONIEREN 
575 NAME$(SNR)=N$: REC%(SNR)=REC: GOSUB 950: REM 
INDEX SORTIEREN 

580 GOSUB 730: REM SATZ SCHREIBEN 
590 RETURN 
600 : 

610 : 

640 REM *«« ADRESSE ABFRAGEN *** 

650 N$= " " : W$= " * : T$= " " 

660 INPUT "NAME";N$ 

670 INPUT "WOHNORT";W$ 

680 INPUT "TELEFON";T$ 

690 RETURN 
700 : 

710 : 

720 REM *** DATENSATZ SCHREIBEN *** 


IV. Der Direktzugriff 


Berücksichtigen Sie bitte unbedingt folgende Warnung: 
Durch falschen Umgang mit dem »Direktzugriff« kann man 
eine Diskette problemlos »ruinieren«. In Ihrem eigenen In¬ 
teresse sollten Sie die folgenden Versuche daher nur mit ei¬ 
ner Diskette nachvollziehen, die entweder leer ist oder aber 
nur Programme enthält, die Sie sowieso löschen wollten. 

Im vorangegangenen Abschnitt lernten Sie keine neuen 
Zugriffsarten kennen. Der Trick bei index-sequentiellen Da¬ 
teien besteht in der geschickten Verbindung von sequen¬ 
tiellen und relativen Dateien. 

Eine neue Dateiform ist dagegen der »Direktzugriff«. Die¬ 
se Zugriffsart beeinflußt wesentlich intensiver die Daten¬ 
struktur auf der Diskette als die vorher genannten. Bisher 
genügten Anweisungen zum Schreiben oder Lesen von 
Daten. Die genaue Position der Daten auf der Diskette inter¬ 
essierte uns nicht weiter. Auch nicht bei relativen Dateien. 
Die angegebene Record-Nummer ist »relativ«, da sie nichts 
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über den tatsächlichen Ort des betreffenden Records aus¬ 
sagt. Diesen Ort zu ermitteln, das übernimmt das Betriebs¬ 
system der Floppy. 

Allerdings können wir den Ort auch direkt angeben. 
Dann spricht man vom »Direktzugriff«. Dazu müssen Sie al¬ 
lerdings wissen, wie eine Diskette aufgebaut ist (Bild 6). 



Bild 6. Diese Darstellung zeigt den schematischen Aufbau 
einer Diskette, die mit der Floppy 1541 formatiert wurde 


Eine Diskette ist in »Spuren«, jede Spur wiederum in 
»Sektoren« unterteilt. Die Anzahl der Spuren und der Sekto¬ 
ren pro Spur hängt vom verwendeten Diskettenlaufwerk ab. 
Im folgenden beziehe ich mich auf die VC 1541 und die VC 
1551, die eine Diskette auf die gleiche Art und Weise verwal¬ 
ten (ebenso die VC 1570/1571 im »1541-Modus«), Die Spu¬ 
ren und Sektoren einer Diskette sind durchnumeriert. Die 
äußerste Spur erhält die Nummer 1, die innerste die Num¬ 
mer 35. Die folgende Tabelle enthält die Anzahl der Sekto-, 
ren auf den einzelnen Spuren. 


Spurnummer 

Anzahl der Sektoren 

1 

- 17 

21 

18 

-24 

19 

25 

-30 

18 

31 

-35 

17 


Die Spur 18 besitzt eine besondere Bedeutung. Sie ent¬ 
hält die sogenannte BAM (»Block Available Map«) und die 
Directory. Die BAM befindet sich in Sektor 0 (erster Sektor) 
von Spur 18. Sie enthält Informationen darüber, welche 
Sektoren der Diskette bereits mit Daten belegt beziehungs¬ 
weise welche noch frei sind. 

Mit Hilfe des Direktzugriffs können wir gezielt Daten in 
beliebigen Sektoren manipulieren, und zwar sowohl Daten 
in einen Sektor schreiben oder enthaltene Daten lesen. Je¬ 
der Sektor kann 255 »Datenbytes« aufnehmen, also 255 
Zeichen. Man spricht statt von Sektoren auch von 
»Blöcken« oder »Datenblöcken«. 

Ein Kanal für den Direktzugriff wird geöffnet wie jeder an¬ 
dere Kanal auch, mit einer Ausnahme: als Dateiname ge¬ 
ben Sie das Sonderzeichen »#« an: 

OPEN 1,8,2, " # " : REM OEFFNEN EINES KANALS FUER 
DIREKTZUGRIFF 

Nach dem Öffnen des Kanals können Sie wie gewohnt 
Daten lesen oder schreiben. Die Nummer des Sektors, auf 
den Sie zugreifen wollen, teilen Sie der Floppy zuvor mit 
den Befehlen »BLOCK-READ« (Block lesen) beziehungs¬ 


weise »BLOCK-WRITE« (Block beschreiben) mit. Beide Be¬ 
fehle werden der Floppy wie üblich über den zuvor geöffne¬ 
ten Befehlskanal übermittelt. Das Format: 

BLOCK-READ: PRINT# LFNl,"Ul: " ;LFN2;0;SPUR;SEKTOR 
BLOCK-WRITE: PRINT# LFNl, "U2: " ;LFN2;0;SPUR;SEKTOR 
Die Parameter bedeuten dabei: 

LFNl: Filenummer des Befehlskanals 

LFN2: Filenummer des Direkttzugriffskanals 

SPUR: Gewünschte Spur 

SEKTOR: Gewünschter Sektor 

Wenn Sie einen BLOCK-READ-Befehl senden, liest die 
Floppy den gewünschten Sektor in einen »Puffer« ein. Die 
Daten dieses Blocks sind nun im Speicher der Floppy ent¬ 
halten. Mit einer INPUT #-oder GET #-Anweisung können 
Sie diesen Inhalt lesen. Allerdings müssen Sie wie zuvor 
beim relativen Zugriff angeben, bei welchem Zeichen (By¬ 
te) auf Diskette der Zugriff beginnen soll, und zwar mit dem 
BUFFER-POINTER-Befehl: 

BUFFER-POINTER: PRINT#LFNl, "B-P: " ;LFN2;BYTENUMMER 

Blockinhalt lesen 


Der Ablauf beim Lesen besteht aus drei Schritten: 

1. Mit dem BLOCK-READ-Befehl angeben, auf welchen 
Sektor welcher Spur Sie zugreifen wollen. Diesen Sektor 
liest die Floppy ein. 

2. Mit dem BUFFER-POINTER-Befehl angeben, ab wel¬ 
chem Zeichen Sie auf die Daten zugreifen wollen. 

3. Mit INPUT# oder GET# ab dem angegebenen Zeichen 
Daten lesen. 

Als Beispiel lesen wir die ID einer Diskette ein. Diese 
zweisteÜ'C'J »Identifikations-Nummer« befindet sich in Byte 
Nummer 162 und 163 von Sektor 0 auf Spur 18. 

100 OPEN 1,8,15 : REM BEFEHLSKANAL OEFFNEN 

110 OPEN 2,8,2,"#": REM DIREKTZUGRIFFSKANAL 
OEFFNEN 
120 : 

130 PRINT#1,"Ul:";2;0;18;0 : REM BLOCK IN PUFFER 
LESEN 

140 PRINT#1, "B-P: ";2; 162 : REM ZUGRIFF AB 

BYTE NR.162 

150 GET#2,A$: GET#2,B$ : REM BYTE 162 UND 163 
LESEN 

160 PRINT A$;B$ : REM ID AUSGEBEN 
170 : 

180 CL0SE 1: CL0SE 2 : REM KANAELE SCHLIESSEN 

Zeile 100 übermittelt über den Befehlskanal die Anwei¬ 
sung, Sektor 0 von Spur 18 in den Puffer der Floppy zu le¬ 
sen. Zeile 110 sendet einen BUFFER-POINTER-Befehl und 
bereitet die Floppy darauf vor, daß wir die Daten dieses Sek¬ 
tors ab Byte (Zeichen) Nummer 162 lesen wollen. 

Die beiden GET #-Anweisungen in Zeile 150 lesen das 
erste Zeichen der ID (Byte Nummer 162) in A$ und das zwei¬ 
te (Byte 163) in B$ ein. 

Blockinhalt komplett verändern 


Theoretisch könnte man mit fast dem gleichen Programm 
die ID einer Diskette jederzeit nachträglich ändern. Der Ab¬ 
lauf beim Schreiben: 

1. Mit dem BUFFER-POINTER-Befehl angeben, ab wel¬ 
chem Zeichen Sie die Daten eines Sektors manipulieren 
wollen. 

2. Mit PRINT# die gewünschten Daten zur Floppy übermit¬ 
teln. 
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3. Mit dem BLOCK-WRITE-Befehl angeben, auf welchen 
Sektor welcher Spur Sie zugreifen wollen. In diesen Sek¬ 
tor werden die übermittelten Daten geschrieben. 

Das zugehörige Programm: 

100 OPEN 1,8,15 : REM BEFEHLSKANAL OEFFNEN 

110 OPEN 2,8,2,"#": REM DIREKTZUGRIFFSKANAL 
OEFFNEN 
120 : 

130 PRINT# 1,"B-P: ";2;162 : REM ZUGRIFF AB 

BYTE NR.162 

140 PRINT#2,"XY": REM BYTE 162 UND 163 AENDERN 
150 PRINT#1,"U2:;2;0;18;0 : REM BLOCK AUF DISK 
SCHREIBEN 
160 : 

170 CLOSE 1: CLOSE 2 : REM KANAELE SCHLIESSEN 

Dieses Programm enthält jedoch gleich zwei schwerwie¬ 
gende Fehler: Sektor 0 von Spur 18 enthält nicht nur die ID, 
sondern weitaus wichtigere Daten - denken Sie an die 
BAM. 

Beim Schreiben speichert die Floppy immer 255 Zeichen 
im angegebenen Sektor. Unser Programm schickt zwei Zei¬ 
chen zur Floppy, die Zeichen Nummer 162 und 163, die vor¬ 
erst im Floppy-Puffer gespeichert werden. Der restliche In¬ 
halt des Puffers ist »Undefiniert«. Von den 255 Zeichen des 
Puffers enthalten alle bis auf die Zeichen Nummer 162 und 
163 unvorhersehbare Informationen. Durch den BLOCK- 
WRITE-Befehl wird der Pufferinhalt auf die Diskette ge¬ 
schrieben. In Sektor 0 von Spur 18 befindet sich nun zwar 
die von uns angegebene ID »XY«. Die zuvor darin enthalte¬ 
ne BAM ist jedoch durch Undefinierte Zeichen überschrie¬ 
ben. 

s*»6R onu 

Blockinhalt teilweise verändern 


Diese Methode ist also nur sinnvoll, wenn Sie die restlichen 
Informationen des betreffenden Sektors nicht weiter inter¬ 
essieren. 

Die Spur 18 einer Diskette enthält jedoch Informationen, 
die für die Floppy »lebenswichtig« sind. Wenn Sie diese In¬ 
formationen teilweise ändern wollen, gehen Sie so vor: 

1. Senden Sie zuerst einen BLOCK-READ-Befehl. Da¬ 
durch wird die Floppy veranlaßt, den betreffenden Sektor 
in ihren Puffer einzulesen. Nun befindet sich der Origi¬ 
nalinhalt dieses Sektors im Puffer. 

2. Mit dem BUFFER-POINTER-Befehl geben Sie an, wel¬ 
che Zeichen Sie verändern wollen. 

3. Mit PRINT# übermitteln Sie die gewünschten neuen 
Daten. 

4. Mit dem BLOCK-WRITE-Befehl veranlassen Sie die 
Floppy, den geänderten Pufferinhalt in den betreffenden 
Sektor zu schreiben. 


100 OPEN 1,8,15 : REM BEFEHLSKANAL OEFFNEN 

110 OPEN 2,8,2,"#": REM DIREKTZUGRIFFSKANAL 
OEFFNEN 


120 : 

125 PRINT# 1, "Ul: ";2;0;18;0 
LESEN 

130 PRINT #1, "B-P:"; 2; 162 
BYTE NR.162 
140 PRINT#2, "XY"; 

AENDERN 

150 PRINT#1, "U2: ";2;0;18;0 
SCHREIBEN 
160 : 


REM BLOCK IN PUFFER 
REM ZUGRIFF AB 
REM BYTE 162 UND 163 
REM PUFFER AUF DISK 


170 CLOSE 1: CLOSE 2 : REM KANAELE SCHLIESSEN 



Gegenüber dem vorigen Programm bestehen zwei Un¬ 
terschiede: Die Zeile 125 veranlaßt das Einlesen des Ori¬ 
ginalinhaltes des Sektors in den Floppypuffer. Die 
PRINT#-Anweisung in Zeile 140 endet nun mit einem »;«. 
Das fehlende Semikolon im vorigen Programm war der von 
mir erwähnte zweite Fehler. Sie wissen, daß nach jeder 
PRINT#-Anweisung automatisch als »Trennzeichen« das 
Zeichen mit dem Code 13 gesendet wird. Dadurch ändern 
wir unbeabsichtigt nicht nur die Zeichen Nummer 162 und 
163, sondern auch Zeichen Nummer 164, das nun durch 
diese Endemarke ersetzt wird. Das Semikolon nach 
PRINT# »unterdrückt« das Senden dieser Endemarke. Im 
korrigierten Programm werden tatsächlich nur die Zeichen 
»X« und »Y« zur Floppy gesendet und dadurch ausschließ¬ 
lich die Bytes 162 und 163 manipuliert. 

Wenn Sie dieses Programm ausprobieren und sich an¬ 
schließend das Inhaltsverzeichnis der Diskette anschauen, 
werden Sie keine Veränderung erkennen. Die gesamte Di¬ 
rectory befindet sich immer im Speicher der Floppy. Auf der 
Diskette wurde die ID zwar sehr wohl manipuliert. Da sich 
im Floppy-Speicher jedoch immer noch die alte Directory 
(und damit die alte ID) befindet, sehen Sie die Änderung 
nicht. Sie müssen also die Floppy veranlassen, die Directo¬ 
ry neu einzulesen, und zwar mit dem Befehl Initialisieren: 
OPEN 1,8,15,"I":CLOSE 1 

Die Floppy liest daraufhin Sektor 0 von Spur 18 ein. Wenn 
Sie nun erneut das Inhaltsverzeichnis in den C 64 laden, er¬ 
scheint die geänderte ID. 

Sie sehen schon, der Direktzugriff ist nicht ganz unpro¬ 
blematisch. Aber dafür verfügen Sie mit dieser Zugriffsart 
über Möglichkeiten, die bei sequentiellem oder relativem 
Zugriff ausgeschlossen sind. Zum Beispiel zum Manipulie¬ 
ren der BAM oder der Directory oder gar zur Konstruktion 
von * pierschutz-Mechanismen. Sollten Sie diese Gebiete 
interessieren, müssen Sie natürlich Genaueres über den 
Aufbau der Spur 18 wissen. Entweder lesen Sie solche In¬ 
formationen im »Floppy-Kurs« nach, der im 64'er-Sonder- 
heft, Ausgabe 25, veröffentlicht wurde, oder Sie schauen in 
der Anleitung zu Ihrem Diskettenlaufwerk nach. Dort finden 
Sie-wenn auch sehr knapp beschrieben -ebenfalls die be¬ 
nötigten Informationen. Aber denken Sie daran: Verwen¬ 
den Sie ausschließlich leere Disketten für Ihre Versuche. 

Wir werden uns vorläufig nicht weiter mit der Spur 18 be¬ 
schäftigen, sondern mit den restlichen Spuren, die uns un¬ 
eingeschränkt zur Verfügung stehen. Uneingeschränkt 
heißt: Wenn wir in einem Sektor »HALLO« oder eine andere 
Zeichenkette speichern wollen, müssen wir nicht darauf 
achten, daß alle anderen Daten-Byte des betreffenden Sek¬ 
tors erhalten bleiben. Probieren wir das an einem kleinen 
Beispiel aus. Wir schreiben in die einzelnen Sektoren von 
Spur 1 (Sektor 0 - 21) die Zeichenketten »SEKTOR 0«, »SEK¬ 
TOR 1«, »SEKTOR 2« und so weiter und lesen sie anschlie¬ 
ßend wieder ein: 


100 

OPEN 1,8,15 


110 

OPEN 2,8,2,"# * 


115 

: 


120 

FOR 1=0 T0 21 


130 

: PRINT# 1, "B-P: ";2; 1 

: REM BUFFER¬ 
POINTER SETZEN 

140 

: PRINT # 2,"SEKTOR"+STR$(I) 

: REM DATEN IN 
PUFFER SCHREIBEN 

150 

: PRINT# 1, "U2: ";2;0;1;I 

: REM PUFFER AUF 
DISK SCHREIBEN 

160 

NEXT I 


170 

l 


180 

FOR 1=0 TO 21 


190 

: PRINT#1, "Ul: ";2;0;1;I 

: REM BLOCK IN 
PUFFER HOLEN 
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200 : PRINT#1,"B-P:"; 2; 1 : REM BUFFER¬ 

POINTER SETZEN 

210 : INPUT# 2, A$ : REM DATEN AUS 

PUFFER LESEN 

220 : PRINT A$ : REM UND ANZEIGEN 

230 NEXT I 
235 : 

240 CLOSE 1: CLOSE 2 

Dieses Programm zeigt, warum der Direktzugriff nicht 
nur für tiefgreifende Directory-Manipulationen, sondern 
auch für die Dateiverwaltung interessant ist: weil der direk¬ 
te Zugriff auf einen Sektor um ein Vielfaches schneller ist 
als der Zugriff auf einen Record! 

Man könnte sagen, daß dieses Programm Records mit 
einer Länge von je 255 Zeichen verwendet. Zum Vergleich 
können Sie gern ein entsprechendes Programm schreiben, 
das die gleiche Aufgabe mit 22 Records erfüllt. Sie werden 
feststellen, daß der Direktzugriff um den Faktor 4 bis 5 
schneller ist als der relative Zugriff. 

Um diesen Vorteil in unserer Dateiverwaltung zu nutzen, 
müssen wir allerdings zuvor ein entscheidendes Problem 
lösen: Wie organisieren wir die Datenablage auf der Disket¬ 
te? Wie sorgen wir dafür, daß unser Programm die unter¬ 
schiedliche Sektoranzahl der verschiedenen Spuren opti¬ 
mal ausnutzt und zusätzlich die kritische Spur 18 »um¬ 
geht«? 

Die übliche Lösung ist ein kleines Unterprogramm, das 
die Verwaltung übernimmt. Diesem Unterprogramm wird 
wie zuvor eine »Record-Nummer« übergeben. Diese Num¬ 
mer rechnet der betreffende Programmteil in eine für den 
Direktzugriff verwendbare Angabe von Spur und Sektor 
um. 

Ein entsprechender Programmteil ist in einem umfang¬ 
reicheren Programm im Floppy-Handbuch enthalten (zu¬ 
mindest in meinem Handbuch, die Floppy-Handbücher un¬ 
terscheiden sich je nach Jahrgang voneinander). Da in die¬ 
sem Programm jedoch ein kleiner Fehler enthalten ist, stel¬ 
le ich hier die korrekte Fassung vor: 

1200 REM xx* REC0RDNR.=>SPUR/SEKTOR xxx 

1210 IF REC<358 THEN AA=0:BB=22:DD=1:GOTO 1250 

1220 IF REC>471 THEN AA=357:BB=20:DD=19:GOTO 1250 

1230 IF REC< 580 THEN AA=471:BB=19:DD=25:G0T0 1250 

1240 AA=579:BB=18:DD=31 

1250 SPUR=INT(((REC-AA)-l)/(BB-l))+DD 

1260 SEKT=REC-AA-(SPUR-DD)*BB+(SPUR-DD-1) 

1270 RETURN 

Sie rufen dieses Programm mit der gewünschten Re¬ 
cord-Nummer REC auf. Es rechnet die Record-Nummer in 
Spur und Sektor um und schreibt die ermittelten Werte.in 
die Variablen SPUR und SEKT. Einige Beispiele zur Um¬ 
rechnung: 

REC=1 wird zu SPUR=1/SEKT=0 
REC=2 wird zu SPUR=1/SEKT=1 


REC=20 wird zu SPUR=1/SEKT=19 
REC=21 wird zu SPUR=1/SEKT=20 
REC=22 wird zu SPUR=2/SEKT=0 
REC=23 wird zu SPUR=2/SEKT=1 


Das Programm berücksichtigt, daß die Spur 1 mit Sektor 
20 endet und es auf die Spur 2 »überwechseln« muß. Außer¬ 
dem wird die Spur 18 einfach übergangen. 

Nach dem Einbau dieses Unterprogramms können wir 
mit der Umstellung unserer Dateiverwaltung beginnen. Zu¬ 
erst muß in Zeile 180 statt dem Datenkanal für die relative 
Datei ein Direktzugriffskanal geöffnet werden: 


Alt: 

160 OPEN 2,8,2,"ADRESSEN,L,"+CHR$(100) 

Neu: 

160 OPEN 2,8,2,"#" 

Nun sind die beiden Unterprogramme zum Schreiben 
beziehungsweise Lesen eines Records zu ändern. 


Alt: 

720 REM *xx DATENSATZ SCHREIBEN xx* 

730 IF N$="" THEN N$="x": REM ACHTUNG: DAS 

SCHREIBEN VON 

740 IF W$="" THEN W$="x": REM 'LEERSTRINGS' MUSS 

VERMIEDEN 

750 IF T$="" THEN T$="x": REM WERDEN III 

760 PRINT#2,N$ CHR$(13) W$ CHR$(13) T$:REM EIN 

PRINT#-BEFEHL III 


770 RETURN 


Neu: 

720 REM xxx DATENSATZ SCHREIBEN xxx 
730 IF N$="" THEN N$="x": REM ACHTUNG: DAS 

SCHREIBEN VON 

740 IF W$="" THEN W$="x": REM 'LEERSTRINGS' MUSS 

VERMIEDEN 

750 IF T$="" THEN T$="x": REM WERDEN III 
755 PRINT#1,"B-P:";2;1 : REM BUFFER-POINTER 

SETZEN 

760 PRINT#2,N$ CHR$(13) W$ CHR$(13) T$:REM EIN 

PRINT#-BEFEHL III 

765 PRINT# 1, "U2:";2; 0;SPUR;SEK,T ■ ? REM JUFFER AUF 

pJtDSJf, SCHREIBEN 

770 RETURN • i'riiA' !!{)'• #|| 


Ä 


nüssen also nur zwei Zeiletvefnfügert. Zeile 755 gibt 
an, daß die Daten der folgenden PRINT #-Anweisungen ab 
dem ersten Zeichen in den Floppypuffer zu schreiben sind 
Und in Zeile 765 wird der Pufferinhalt mit dem BLOCK 
WRITE-Befehl in den Sektor SEKT der Spur SPUR übertra 
gen, wobei Spur und Sektor zuvor mit dem erwähnten Un 
terprogramm zu ermitteln sind. Ähnlich wird auch das Un 
terprogramm zum Lesen einer Adresse modifiziert: 


Alt: 

800 REM xx* DATENSATZ LESEN xxx 
810 INPUT#2,N$: IF N$="x" THEN N$="" 
820 INPUT#2,W$: IF W$="*" THEN W$="" 
830 INPUT#2,T$: IF T$="x" THEN T$="" 
840 RETURN 


Neu: 


800 REM xxx DATENSATZ LESEN xxx 
810 PRINT#1,"Ul:";2;0;SPUR;SEKT 
PRINT#1,"B-P:";2;1 


812 

818 

820 


INPUT# 2, N$ 
INPUT# 2, W$ 
830 INPUT#2,T$ 
840 RETURN 


IF 


H=V 


THEN N$= 


IF W$="x" THEN W$= 
IF T$="*" THEN T$= 


n n 
ii n 
n ii 


Zeile 810 schreibt einen zuvor aus der Record-Nummer 
ermittelten Sektor in den Floppypuffer, und Zeile 812 setzt 
den BUFFER-POINTER auf das erste Zeichen des Puffers. 
Ab diesem Zeichen ist die Adresse enthalten (siehe 
Schreib-Unterprogramm), die nun gelesen wird. 

Wir müssen nun nur noch in den verschiedenen Unter¬ 
programmen »Einträgen«, »Blättern«, »Ändern« und »Su¬ 
chen« den Aufruf des Positionier-Unterprogramms durch 
den Aufruf der Record-Umrechnung ersetzen: 


Alt: 

370 REC=AD: G0SUB 880: REM POSITIONIEREN 
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480 GOSUB 880: REM POSITIONIEREN 


570 GOSUB 880: REM POSITIONIEREN 

1110 GOSUB 880: REM POSITIONIEREN 

Neu: 

370 REC=AD: GOSUB 1210: REM UMRECHNUNG 
480 GOSUB 1210: REM UMRECHNUNG 


570 GOSUB 1210: REM UMRECHNUNG 


1110 GOSUB 1210: REM UMRECHNUNG 

Nach diesen wenigen Änderungen arbeitet unsere in¬ 
dex-sequentielle Dateiverwaltung mit Direktzugriff. 

Kombinationen von Direktzugriffs¬ 
und anderen Dateiformen 


Die bisher durchgeführten Änderungen unseres Pro¬ 
gramms haben allerdings einen schwerwiegenden Nach¬ 
teil: auf der Diskette ist kein Platz mehr für die sequentielle 
Indexdatei! 

Ich empfehle Ihnen, mit dem modifizierten Programm ei¬ 
nige Adressen auf einer frisch formatierten Diskette einzu¬ 
tragen und sich dann das Inhaltsverzeichnis anzuschauen. 
Sie werden feststellen, daß angeblich immer noch 664 
Blöcke frei sind, ein Eintrag ist nicht zu finden. Beim Direkt¬ 
zugriff umgehen wir die Dateiverwaltung der Floppy. Sie 
»merkt« nichts davon, daß wir Daten in bestimmte Blöcke 
eintragen und diese Blöcke nun belegt sind. Für das Be¬ 
triebssystem der Floppy ist daher die Diskette auch dann 
noch völlig leer, wenn wir bereits mehrere hundert Adres¬ 
sen eingetragen haben. Denn alle benutzten Blöcke sind in 
der BAM weiterhin als frei gekennzeichnet. 

Wenn unsere »Record-Nummern« bei 1 anfangen, mit 2 
weitergehen und so weiter, wird die Umrechnungs-Routine 
diese Nummern in die Sektornummern 0,1,2... auf Spur 1 
umrechnen. Wenn Spur 1 belegt ist, benutzt das Programm 
Spur 2, dann Spur 3 und so fort. Unsere Adressen belegen 
auf der Diskette die Spuren von außen nach innen (Bild 6). 

Wir müßten dafür sorgen, daß die sequentielle Datei auf 
den innersten Spuren gespeichert wird. Aber wie? Die Ver¬ 
waltung sequentieller Dateien übernehmen nicht wir. Dar¬ 
um kümmert sich das Betriebssystem der Floppy. Sequen¬ 
tielle Dateien werden dort gespeichert, wo laut BAM noch 
nicht belegte Blöcke zu finden sind. 

Das heißt, beim Speichern der sequentiellen Datei wird 
die Floppy irgendwelche nur scheinbar freien Blöcke be¬ 
nutzen, die jedoch tatsächlich unsere Adressen enthalten 
können. Wir müssen dafür sorgen, daß sich unsere »inoffi¬ 
zielle« Direktzugriffs-Datei und die durch das Betriebs¬ 
system verwaltete sequentielle Datei nicht in die Quere 
kommen. Zwei Möglichkeiten bieten sich an, die jedoch bei¬ 
de voraussetzen, daß wir uns mit dem Aufbau der BAM aus¬ 
kennen: 

1. Wir können nach jedem Eintrag einer neuen Adresse 
den betreffenden Block in der BAM als belegt kennzeich¬ 
nen. Nachteil: der große Vorteil des Direktzugriffs, die 
Geschwindigkeit, reduziert sich ein wenig. Bei jedem 
Eintrag sind nun mehrere Zugriffe notwendig: auf den 
Sektor, in dem die Adresse gespeichert wird, und auf 
Sektor 0 von Spur 18, in dem sich die BAM befindet. 

2. Wir können vor Erstellung der Datei einen Großteil der 
Diskette für die Direktzugriffs-Datei reservieren. Das 
heißt wir kennzeichnen in der BAM von den 35 vefügba- 
ren Spuren zum Beispiel alle Spuren bis auf Spur 32,33, 


34 und 35 als belegt. Dann wird die Floppy beim Spei¬ 
chern der sequentiellen Datei automatisch die noch als 
frei gekennzeichneten vier Spuren mit je 17 Sektoren für 
die Speicherung der sequentiellen Datei verwenden. Die 
restlichen angeblich belegten Spuren stehen für unsere 
Adressen zur Verfügung. 

Beide Methoden haben jedoch auch Nachteile: Bei der 
ersten Methode ist es die verringerte Arbeitsgeschwindig¬ 
keit. Dieser Nachteil ist allerdings nicht allzu groß, da der 
»doppelte Zugriff« auf die Datei und die BAM nur beim Ein¬ 
trägen notwendig ist. Alle anderen Funktionen benötigen 
weiterhin nur einen Zugriff auf den betreffenden Block der 
Datei. 

Die zweite Methode besitzt einen weitaus schwerwie¬ 
genderen Nachteil: Woher wissen Sie, ob vier Spuren auch 
tatsächlich zur Speicherung der sequentiellen Datei aus¬ 
reichen? Das hängt von der Anzahl der Namen in der Index¬ 
datei und zusätzlich von der durchschnittlichen Namens¬ 
länge ab. Wir können daher nur Schätzungen vornehmen, 
etwa so: vier Spuren mit jeweils 17 Sektoren, also 68 
Blöcke, sind für die sequentielle Datei reserviert. Die restli¬ 
chen rund 600 Blöcke stehen unserer Direktzugriffsdatei 
zur Verfügung und reichen für 600 Adressen und somit 600 
Namen. Bei einer durchschnittlichen Länge eines Namens 
von 20 Zeichen benötigen die Namen 12000 Byte und die 
zugehörigen 600 Zeiger mit je 5 Byte noch einmal 3000 By¬ 
te. Macht zusammen 15000 Byte oder rund 60 Blöcke (255 
Byte pro Block). 

Etwas knapp, die Reserve von acht Blöcken, finden Sie 
nicht? Sicher, man könnte einfach fünf statt vier Spuren für 
die sequentielle Datei reservieren. Oder, um ganz sicher zu 
gehen, zehn Spuren. Je mehr wir jedoch auf Sicherheit be¬ 
dacht sind, um so mehr Blöcke nehmen wir unserer eigent¬ 
licher. Adreßdatei weg und um so weniger Adressen kön¬ 
nen wir verwalten. Diese Methode führt daher zwangsläu¬ 
fig zu einer ungenügenden Ausnutzung der Diskettenkapa¬ 
zität, die auf unsicheren Schätzwerten und notwendigen 
Sicherheitsreserven beruht. 

Allerdings hat die erste Methode einen noch weit größe¬ 
ren Nachteil: Nehmen wir an, bei der »Erstbenutzung« des 
Programms tragen wir 21 Adressen ein. Unser Programm 
wird für diese Adressen die 21 Sektoren von Spur 1 benut¬ 
zen. Beim Beschreiben der einzelnen Sektoren haben wir 
diese in der BAM als belegt gekennzeichnet. Anschließend 
verlassen wir das Programm, wobei die sequentielle Index¬ 
datei gespeichert wird. Da die komplette Spur 1 laut BAM 
belegt ist, benutzt die Floppy möglicherweise Spur 2 zum 
Speichern der sequentiellen Datei. 

Am nächsten Tag laden wir unser Programm und geben 
weitere Adressen ein. Unser Programm nutzt nun die Spur 
2 und überschreibt damit die Indexdatei, die sich ja auf die¬ 
ser Spur befindet. 

Dieser Einwand scheint sehr theoretisch zu sein. Denn 
nach dem Start unseres Programms wurde die Indexdatei 
vollständig eingelesen. Ein Überschreiben während des 
Programmlaufs ist daher vollkommen unkritisch. Und beim 
Verlassen speichern wir die Indexdatei ja ebenfalls wieder 
vollständig. Aber bedenken Sie, daß während der Arbeit mit 
dem Programm möglicherweise der Strom ausfällt! Dann 
ist die sequentielle Datei vielleicht bereits durch das Einträ¬ 
gen zusätzlicher Adressen überschrieben worden und 
nach dem Neustart kein Einlesen der zerstörten Indexdatei 
mehr möglich. In diesem Fall können Sie die Diskette un¬ 
verzüglich neu formatieren. Alle Adressen sind zwar noch 
vorhanden, aber unser Programm kann ohne Indexdatei 
nichts mit ihnen anfangen. 

Ich denke, dieser Nachteil ist so schwerwiegend, daß wir 
die Diskussion beenden und uns für Methode 1 entschei¬ 
den. Wenn nach dem Programmstart beim Öffnen der se- 
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quentiellen Datei ein Fehler auftritt, heißt das für uns, daß 
diese Datei noch nicht existiert (zumindest nicht auf der ein¬ 
gelegten Diskette). 

Offenbar wird die Adreßdatei frisch angelegt. Bevor die 
erste Adresse eingetragen wird, kennzeichnen wir nun 
rund 550 Blöcke in der BAM als belegt. Die restlichen 114 
Blöcke bleiben der Floppy zur Speicherung der Indexdatei 
reserviert. 

Aufbau der BAM 


Die BAM belegt die Bytes 4 bis 143 von Sektor 0 auf Spur 
18. Je vier aufeinanderfolgende Byte geben Auskunft über 
die Belegung einer Spur. Das erste Byte enthält die Anzahl 
der verfügbaren Blöcke auf der betreffenden Spur. Die drei 
folgenden Byte enthalten den »bitweise« verschlüsselten 
Belegungsplan der Spur. Ein gesetztes Bit bedeutet »be¬ 
legter Sektor«, ein gelöschtes Bit kennzeichnet einen freien 
Sektor. 


Byte-Nummer 

Bedeutung 

4 

Anzahl freier Sektoren auf Spur 1 

5 

Sektoren 0 bis 7 frei/belegt 

6 

Sektoren 8 bis 15 frei/belegt 

7 

Sektoren 16 bis 23 frei/belegt 

8 

Anzahl freier Sektoren auf Spur 2 

9 

Sektoren 0 bis 7 frei/belegt 

10 

Sektoren 8 bis 15 frei/belegt 

11 Sektoren 16 bis 23 frei/belegt 




S4SR 

Um zum Beispiel Spur 1 als vollständig belegt zu kenn¬ 
zeichnen, schreiben wir einfach in Byte 4 eine 0 (0 Blöcke 
frei) und in die drei folgenden Bytes ebenfalls je eine 0, um 
jeden einzelnen Sektor als belegt zu kennzeichnen. 

Auf diese Weise kennzeichnen wir die Spuren 1 bis 17 als 
belegt. Spur 18 enthält die BAM und das Directory. Diese 
Spur tasten wir nicht an. Wir übergeben sie und kennzeich¬ 
nen die folgenden Spuren 19 bis 30 ebenfalls als belegt. Die 
freien Spuren 31 bis 35 stehen dem Floppy-Betriebssystem 
zur Speicherung der sequentiellen Datei zur Verfügung: 

1300 REM *** BLOCKBELEGUNG #*# 

1310 OPEN 1,8,15 
1320 OPEN 2,8,2,"#" 

1330 PRINT#1,"Ul:";2;0;19;0 : REM SEKTOR 0 VON 

SPUR 18 LESEN 

1340 : 

1350 PRINT#1,"B-P:";2;4 : REM AB BYTES EUER 

SPUR 1 MANIPUL. 

1360 F0R 1=1 TO 4*17 : REM SPUR 1-17 ALS BELEGT 

1370 : PRINT#2, CHR$(0); : REM KENNZEICHNEN 
1380 NEXT 
1390 : 

1400 PRINT#1,"B-P:"j2;4+4*18 : REM AB BYTES EUER 

SPUR 19 MANIPUL. 

1410 F0R 1=1 TO 4*12 : REM SPUR 19-30 ALS 

BELEGT 

1420 : PRINT # 2,CHR$(0); : REM KENNZEICHNEN 

1430 NEXT 
1440 : 

1450 PRINT#1,"U2:";2;0;18;0 : REM BAM ZURUECK 

SCHREIBEN 

1460 PRINT#1,"I" : REM MANIPUL.DIRECTORY HOLEN 

1470 CL0SE 1: CL0SE 2 
1480 RETURN 


In Zeile 1330 wird zuerst einmal der Originalinhalt des zu 
manipulierenden Sektors in den Floppy-Puffer gelesen. 
Wir wollen ja keineswegs den gesamten Sektor, sondern 
ganz gezielt einzelne Bytes verändern. 

Und zwar ab Byte 4, auf das Zeile 1350 den BUFFER¬ 
POINTER setzt. Siebzehnmal werden in jeweils 4 Byte (ei¬ 
ne Spur) eine 0 geschrieben. Damit sind die Spuren 1 bis 
17 als belegt gekennzeichnet. 

Spur 18 überspringen wir. Daher setzt Zeile 1400 den 
BUFFER-POINTER auf Byte Nummer 4+4x18 (4 ist das er¬ 
ste Byte von Spur 1; durch Addition von 4x18 gelangen wir 
zum ersten Byte von Spur 19). Die folgenden 12 Spuren 
(Spur 19 bis 30) werden ebenfalls als belegt gekennzeich¬ 
net. 

Nach Abschluß unserer Manipulationen schreibt Zeile 
1450 den modifizierten Sektor wieder auf die Diskette zu¬ 
rück. Da die Floppy noch nichts von der geänderten Bele¬ 
gung »weiß« (in ihrem Speicher befindet sich noch die alte 
BAM), veranlaßt sie der Initialisierungs-Befehl in Zeile 1460 
dazu, die manipulierte BAM von der Diskette einzulesen. 

Denken Sie daran: Nach dem Ausprobieren dieses Pro¬ 
gramms (mit einer leeren Diskette) müssen Sie zuerst den 
Befehl VALIDATE senden, um die Floppy zu veranlassen, 
die manipulierte BAM einzulesen. Dann werden laut Direc¬ 
tory nicht mehr 664, sondern nur noch 85 freie Blöcke zur 
Verfügung stehen. 

Ganz unproblematisch ist diese Methode allerdings 
nicht. Geben Sie versuchsweise einmal den Befehl VALI¬ 
DATE ein. 

OPEN 1,8,15,"V":CLOSE 1 

Laut Directory sind anschließend plötzlich wieder alle 
664 Blöcke frei. Von unserer »künstlichen Belegung« blieb 
nichts übrig. Der Grund: der VALIDATE-Befehl veranlaßt die 
Floppy, ii. Inhaltsverzeichnis und die BAM zu überprüfen. 
Sie stellt fest, daß den belegten Blöcken im Inhaltsverzeich¬ 
nis keinerlei Datei zugeordnet ist. Offenbar ist die Belegung 
unsinnig - was ja auch tatsächlich der Fall ist. Daraufhin 
macht die Floppy diese »fehlerhafte« Blockbelegung rück¬ 
gängig. 

Dieses Unterprogramm bauen wir in unsere Dateiverwal¬ 
tung ein. Um zu vermeiden, daß durch ein versehentliches 
VALIDATE die künstliche Belegung zunichte gemacht wird, 
führen wir diese Belegung einfach nach jedem Programm¬ 
start aus, sofort nach der Dimensionierung der beiden Ar- 
rays: 

90 DIM NAME$(100), REC%(100) 

95 G0SUB 1310: REM BLOCKBELEGUNG 

Direktzugriff: Komplettes Listing 


90 DIM NAME$(500), REC#(500) 

95 G0SUB 1310: REM BLOCKBELEGUNG 
100 OPEN 1,8,15: REM BEFEHLSKANAL 0EFFNEN 
110 OPEN 2,8,2,"INFODATEI,S,R-t REM SEQ.DATEI 
. 0EFFNEN 

120 INPUT#1,A: REM FEHLER AUFGETRETEN? 

130 IF A< >0 THEN GOTO 140: REM JA, WEITER 
132 INPUT#2,AD: REM ADRESSANZAHL LESEN 
134 F0R 1=1 T0 AD 

136 : INPUT#2,NAME$(I): INPUT#2,REC$(I) 

137 : IF NAME$(I)="*" THEN NAME$(I)="" 

138 NEXT I 

140 CL0SE 2: REM SEQUENTIELLE DATEI SCHLIESSEN 
150 : 

160 OPEN 2,8,2,"#" 

170 : 

180 : 

190 REM *** MENUE *** 
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200 PRINT: PRINT "1=EINTRAGEN/2=SUCHEN/3=BLAETTERN 
/4=AENDERN/5=ENDE": PRINT 
210 GET A$: IF A$="" TUEN GOTO 210 
220 : 

230 IF A$< > "5" TUEN ON VAL(A$) GOSUB 340,1060, 
430, 550: GOTO 200 
240 : 

250 : 

250 CLOSE 2: REM RELATIVE DATEI SCHLIESSEN 
260 PRINT#1,"S:INFODATEI": REM SEQ.DATEI LOESCHEN 
270 OPEN 2,8,2,"INFODATEI,S,W": REM SEQ.DATEI 
OEFFNEN 

280 PRINT#2,AD: REM ADRESSANZAHL SPEICHERN 
282 FOR 1=1 TO AD 

284 : IF NAME$(I)="" TUEN NAME$(I)="*" 

286 : PRINT#2,NAME$(I): PRINT#2,RECfS(l) 

288 NEXT I 

290 CLOSE 2: CLOSE 1: REM ALLE DATEIEN SCHLIESSEN 
300 END 
310 : 

320 : 

330 REM #*# NEUE ADRESSE EINTRÄGEN *** 

340 PRINT "«EINTRÄGEN*" 

350 GOSUB 650: REM ADRESSE ABFRAGEN 
360 AD=AD+1 

370 REC=AD: GOSUB 1210: REM UMRECHNUNG 
375 NAME$(AD)=N$: REC%(AD)=REC: GOSUB 950: REM 
INDEX SORTIEREN 

380 GOSUB 730: REM SATZ SCHREIBEN 
390 RETURN 
400 : 

410 : 


750 IF T$="" THEN T$="*": REM WERDEN II! 

755 PRINT # 1, "B-P: -j 2; 1 : REM BUFFER-POINTER 

SETZEN 

760 PRINT#2,N$ CHR$(13) W$ CHR$(13) T$:REM EIN 
PRINT #-BEFEHL !!! 

765 PRINT#1,"U2: ";2;0;SPUR;SEKT : REM PUFFER AUF 
DISK SCHREIBEN 
770 RETURN 
780 : 

790 : 

800 REM *** DATENSATZ LESEN *** 

810 PRINT # .1, "Ul: 2; 0;SPURjSEKT 

812 PRINT # 1, "B-P: 2; 1 

818 INPUT#2,N$: IF N$="*" THEN N$="" 

820 INPUT# 2, W$: IF W$="*" THEN W$="" 

830 INPUT#2,T$: IF T$="*" THEN T$="" 

840 RETURN 
850 : 

860 : 

940 REM SORTIEREN 
950 FOR 1=1 TO AD-1 
960 : FOR J=I TO AD 

970 : IF NAME$(I)< =NAME$(J) THEN 1000 

980 : S$=NAME$(I): NAME$(I)=NAME$(J): NAME$(J)=S$ 

990 : S=RECJS(I): REC#(I)=REC#(J): REC%(J)=S 

1000 : NEXT J 

1010 NEXT I 

1020 RETURN 

1030 : 

1040 : 

1050 REM ADRESSE SUCHEN 
1060 INPUT "GESUCHTER NAME";N$ 


1070 FOR SNR=1 TO AD 

1080 : IF NAME$(SNR)< >SN$ THEN GOTO 1150 
109C : REC=REC%(SNR) 


420 REM *** BLAETTERN *** 

430 PRINT "«BLAETTERN*" 

435 SNR=1: GOTO 475 
440 GET A$: IF A$="" THEN GOTO 440 
450 IF A$< >CHR$(29) AND A$< >CHR$(157) THEN 
RETURN 

460 IF A$=CHR$(29) AND SNR<AD THEN SNR=SNR+1 
470 IF A$=CHR$(157) AND SNR>1 THEN SNR=SNR-1 
475 REC=REC%(SNR) 


1100 : GOSUB 1210: REM UMRECHNUNG 

1110 : GOSUB 810: REM SATZ LESEN 

1120 : PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 

1130 : INPUT "WEITERSUCHEN(J/N)";A$ 

1140 : IF A$ < > "J * THEN RETURN 
1150 NEXT SNR 


480 GOSUB 1210: REM UMRECHNUNG 

490 GOSUB 810: REM ADRESSE LESEN 

500 PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT 

510 GOTO 440 


1160 RETURN 
1170 : 

1180 : 

1200 REM «** RECORDNR.=>SPUR/SEKTOR #** 


520 : 

530 : 

540 REM *** AENDERN «** 

550 PRINT "«AENDERN«" 

560 GOSUB 650: REM ADRESSE ABFRAGEN 
570 GOSUB 1210: REM UMRECHNUNG 
575 NAME?(SNR)=N$: REC!Ü(SNR)=REC: GOSUB 950: REM 
INDEX SORTIEREN 

580 GOSUB 730: REM SATZ SCHREIBEN 
590 RETURN 
600 : 


1210 IF REC<358 THEN AA=0:BB=22:DD=1:GOTO 1250 
1220 IF REO 471 THEN AA=357:BB=20:DD=19:GOTO 1250 
1230 IF REC < 580 THEN AA=471:BB=19:DD=25:GOTO 1250 
1240 AA=579:BB=18:DD=31 
1250 SPUR=INT(((REC-AA)-l)/(BB-l))+DD 
1260 SEKT=REC-AA-(SPUR-DD)«BB+(SPUR-DD-1) 

1270 RETURN 


Mit diesem Listing besitzen Sie eine leistungsstarke 
Adreßverwaltung, die für den privaten Gebrauch sicher in 


610 : 


den meisten Fällen ausreicht. Wenn Sie die einzelnen 


640 REM *** ADRESSE ABFRAGEN **« 

650 N$="": W$="": T$='"' 

660 INPUT "NAME";N$ 

670 INPUT "WOHNORT";W$ 

680 INPUT "TELEFON";T$ 

690 RETURN 
700 : 

710 : 

720 REM *** DATENSATZ SCHREIBEN *** 

730 IF N$="" THEN N$="*": REM ACHTUNG: DAS 

SCHREIBEN VON 

740 IF W$="" THEN W$="*": REM 1 LEERSTRINGS’ MUSS 

VERMIEDEN 


Schritte unseres Kurses verfolgten, sollte es auch Ihnen 
jetzt gelingen, eine Dateiverwaltung nach eigenen Wün¬ 
schen zu gestalten. 

Die Möglichkeiten, eine komfortable Dateiverwaltung in 
Basic zu programmieren, sind Ihnen nun bekannt. Aller¬ 
dings ist die Dateiverwaltung in Basic sicher nicht optimal 
zu nennen, die Geschwindigkeit der Operationen läßt in 
dieser Programmiersprache leider zu wünschen übrig. 

Für alle, die mit diesem Handicap nicht leben wollen oder 
können, haben wir in diesem Sonderheft weitere Hilfe vor¬ 
bereitet: Im Kurs »Dateiverwaltung in Assembler« finden 
Sie, aufbauend auf die hier vorgestellten Grundlagen und 
Techniken, Tips zu diesem Thema. (Said Baloui/rs) 
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Daten verwalten 
in Assembler 


Dateiverwaltung in Basic? Schon ganz gut, aber 
es geht noch schneller! Richtig rasant und kom¬ 
fortabel bei Funktionen wie Suchen oder Sortie¬ 
ren werden Dateiverwaltungs-Programme erst in 
Assembler. Der zweite Teil des Kurses widmet 
sich dieser Art von Programmierung. 


D ieser Kurs ist für Programmierer gedacht, die schon 
Kenntnisse und eventuell sogar Erfahrungen in der 
Programmierung von Datenbanken in Basic besitzen. 
Sollten Sie diesen Kenntnisstand noch nicht erreicht ha¬ 
ben, empfehlen wir Ihnen die Lektüre des ebenfalls in die¬ 
sem Sonderheft vorgestellten Kurses »Daten verwalten in 
Basic«. Dort lernen Sie alle Grundlagen, die zum Verständ¬ 
nis benötigt werden. 

Die Prinzipien beim Aufbau einer Datenbank in Assem¬ 
blersind die gleichen wie bei der Programmierung in Basic. 
Der »Witz« der Dateibehandlung auf Ebene der Maschinen¬ 
sprache besteht darin, die Betriebssystem-Routinen zu 
kennen, die zur Verwaltung logischer Dateien vorhanden 
sind. 

Vorteile von Basic und Assembler 
kombiniert 


Die meisten größeren Programme für den C64 werden Sie 
wahrscheinlich in Basic schreiben, da es außerordentlich auf¬ 
wendig - und fehlerbehaftet - ist, ein größeres Programm 
vollständig in Maschinensprache zu erstellen. Am häufigsten 
wird Maschinensprache für kleinere Unterprogramme ver¬ 
wendet, um zeitkritische Basic-Programmteile zu ersetzen. 
Paradebeispiel für dieses Einsatzgebiet sind Sortierroutinen, 
die - in Basic programmiert - bei großen Datenmengen oft¬ 
mals recht einschläfernd sein können. 

Ein weiteres Einsatzgebiet sind Assemblerroutinen, die 
Mängel des eingebauten Basic beheben sollen, zum Beispiel 
eigene INPUT-Routinen, da der Basic-Befehl INPUT äußerst 
unzulänglich arbeitet (während der Eingabe kann der Bild¬ 
schirm gelöscht werden; der Cursor kann aus dem Eingabe¬ 
feld herausbewegt werden; es können maximal nur 80 Zei¬ 
chen eingegeben werden und so weiter). 

Viele nützliche Assemblerroutinen zum Einsatz in Basic- 


INPUT # bereits besitzt? Nun, jeder der sich bereits intensi¬ 
ver mit Dateiverwaltung beschäftigt hat, weiß, daß INPUT # 
den Programmierern des Basic-Interpreters gewiß keinen 
Ruhm einbrachte. Dieser Befehl arbeitet ebenso mangelhaft 
wie der Befehl INPUT: Soll ein String eingelesen werden, der 
länger ist als 80 Zeichen, erscheint die Fehlermeldung 
»STRING TOO LONG ERROR«, Einzulesende Strings dürfen 
weder ein Komma noch ein Semikolon enthalten, da beide 
Zeichen ebenso wie ein < RETURN > (CHR$(13)) als 
String-Endemarke aufgefaßt werden. 

Im folgenden Artikel werde ich die wichtigsten Betriebssy¬ 
stemroutinen zur Datenein- beziehungsweise Datenausgabe 
vorstellen. Bei der Beschreibung dieser Routinen werden die 
Funktionen erläutert, wird erklärt, was bei Verwendung der 
jeweiligen Routine beachtet werden muß (Startadresse, 
Übergabeparameter), und welche Parameter - die vor allem 
zur Erkennung eventuell aufgetretener Fehler dienen - nach 
dem Aufruf der Routinen zurückübergeben werden. 

Dieser Artikel setzt übrigens voraus, daß Sie sowohl über 
Maschinensprachekenntnisse als auch über Kenntnisse im 
Umgang mit sequentiellen und relativen Dateien verfügen. 
Wenn Sie bisher noch nichts v.om »Positionieren«, von 
»Records« und »Kanälen« gehört haben, müssen Sie jedoch 
nicht gleich resignieren: In diesem Sonderheft finden Sie ab 
Seite 1C3 “inen Artikel, der sich ausführlich mit den (Basic-) 
Grundlagen der verschiedenen Datei- und Zugriffsformen 
beschäftigt. 

Zur Eingabe der Programmbeispiele: Die meisten der vor¬ 
gestellten Routinen bestehen aus nur drei oder vier Maschi¬ 
nensprachebefehlen. Routinen, die etwas umfangreicher 
sind, wurden als Disassembler-Listings in den Text eingefügt 
und können mit jedem Monitor von Ihnen eingegeben wer¬ 
den. 

Eine Ausnahme stellen die Programme »INPUT #-Routine« 
und »Verwaltung relativer Dateien« dar. Diese beiden Pro¬ 
gramme sind zu umfangreich, um als Disassembler-Listings 
noch problemlos verstanden zu werden. Sie wurden im Text 
als Assembler-Sourcecode (Hypra-Ass-Format) abgedruckt, 
da die Verwendung von Labein in größeren Routinen doch 
einiges zur besseren Verständlichkeit beiträgt. 

Die drei interessantesten Demoprogramme »INPUT #«, 
»Verwaltung relativer Dateien« und »ID ändern« sind zusätz¬ 
lich als MSE-Listings vorhanden. 

Öffnen einer Datei 


Programmen können jedoch nur dann erstellt werden, wenn 
Sie die Datenein- und -ausgabe auf der Maschinensprache¬ 
ebene beherrschen. Vorstellbar wäre zum Beispiel ein soge¬ 
nannter Drucker-Spooler, ein Assemblerprogramm, das in 
den Systeminterrupt eingebunden ist und das bei jedem 
Interrupt ein Zeichen eines Programmlistings oder Textes an 
den Drucker schickt. Während der Text durch diese »im Hin¬ 
tergrund laufende« Interruptroutine ausgedruckt wird, kön¬ 
nen Sie ungehindert mit Ihrem C 64 arbeiten, zum Beispiel ein 
Basic-Programm ablaufen lassen oder editieren. 

Ein weiteres Beispiel ist eine INPUT ^-Routine, die einen 
String von Kassette oder Diskette einliest, und die unter 
anderem in diesem Artikel vorgestellt werden wird. Wozu, 
werden Sie sich fragen, da doch das C64-Basic den Befehl 


Sie alle kennen den Basic-Befehl »OPEN«, mit dem eine Datei 
für Lese- oder Schreibzugriffe geöffnet werden kann. Erst 
nach dem öffnen einer Datei kann die eigentliche Datenein¬ 
oder -ausgabe mit PRINT # oder INPUT # erfolgen. Die Pro¬ 
grammierung auf der Maschinenspracheebene verläuft ana¬ 
log. Zuerst muß eine Datei geöffnet werden, wobei die glei¬ 
chen Dateiparameter angegeben werden wie im OPEN- 
Befehl, dessen genaue Syntax bekanntlich lautet: 

OPEN LF, GA, SA, "DATEINAME, TYP, MODUS" 

LF = Logische Filenummer 
GA = Geräteadresse 
SA = Sekundäradresse 


'iSJÄH?- 
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Dieser für die Dateibehandlung grundlegende Basic- 
Befehl kann leider nur mit großem Aufwand in die entspre¬ 
chenden Maschinenbefehle umgesetzt werden. Sollten Sie 
annehmen, daß hierzu der Aufruf einer einzigen Betriebssy¬ 
stemroutine ausreicht, muß ich Sie leider enttäuschen. Im 
Betriebssystem existiert zwar eine Routine mit dem Namen 
»OPEN«. Bevor jedoch diese Routine aufgerufen werden 
kann, müssen zwei Vorbereitungsroutinen aufgerufen wer¬ 
den, mit denen die benötigten Dateiparameter übergeben 
werden. 

Der zuerst aufzurufenden Routine SETPAR ($FFBA) wer¬ 
den die Parameter »logische Filenummer«, »Geräteadresse« 
und »Sekundäradresse« übergeben. Anschließend wird die 
Routine SETNAM ($FFBD) aufgerufen, die für die Übergabe 
des Dateinamens zuständig ist (inklusive der Zusätze »Typ« 
und »Modus«), Erst nach dieser Vorbereitung kann die 
OPEN-Routine ($FFCO) aufgerufen werden. 

SETPAR ($FFBA): 
Fileparameter setzen 


Der erste Schritt zum öffnen einer Datei - gleich ob zum 
Lesen oder Schreiben von Daten - ist die Übergabe der Para¬ 
meter »log. Filenummer«, »Geräteadresse« und »Sekundär¬ 
adresse« mit der Routine SETPAR. 

Als log. Filenummer kann eine beliebige Zahl zwischen 1 
und 255 angegeben werden. 

Die Geräteadresse liegt üblicherweise zwischen Null und 
Acht(0=Tastatur; 1 = Datasette; 3=Bildschirm; 4=Drucker; 
8=Floppystation). In den folgenden Programmbeispielen 
werde ich immer (!) die Geräteadresse Acht verwenden, da 
die Floppystation wohl das am häufigsten in Verbindung mit 
dem C64 verwendete Peripheriegerät ist. 

Die Bedeutung der Sekundäradresse ist je nach verwende¬ 
tem Peripheriegerät völlig unterschiedlich. Soll eine Disket¬ 
tendatei geöffnet werden, kann eine beliebige Sekundär¬ 
adresse zwischen 0 und 15 angegeben werden. Die Sekun¬ 
däradresse 15 hat eine besondere Bedeutung, auf die ich 
noch genauer eingehen werde. Sie öffnet den sogenannten 
»Befehls-« oder auch »Fehlerkanal«. 

Bei Druckern bestimmt die angegebene Sekundäradresse 
häufig den Druckmodus, ob zum Beispiel im Groß/Grafik¬ 
oder im Klein-/Großmodus gedruckt werden soll. Mit welcher 
Sekundäradresse welcher Druckmodus angesprochen wird, 
ist von Drucker zu Drucker unterschiedlich und muß daher im 
zugehörigen Druckerhandbuch nachgelesen werden. 

Beim Offnen einer Datasettendatei kann eine Sekundär¬ 
adresse zwischen Null und Zwei angegeben werden. Null 
bedeutet, daß anschließend Daten vom Band gelesen wer¬ 
den sollen, eine Eins geben Sie an, wenn Schreibzugriffe 
erfolgen sollen. Die Angabe einer Zwei bedeutet ebenfalls, 
daß anschließend Schreibzugriffe erfolgen, zusätzlich wird 
jedoch eine sogenannte »EOT«-Markierung (= end of tape) 
auf das Band geschrieben, eine Markierung, die angibt, daß 
sich die Datei am Bandende befindet und keine weitere Datei 
folgt. Sinn und Zweck dieser Markierung blieb mir persönlich 
jedoch bislang etwas schleierhaft, da ich sie in meinen Pro¬ 
grammen noch nie benötigt habe. 

Sie wissen nun, welche Parameter der Routine SETPAR 
übergeben werden müssen, nicht jedoch wie. Alle drei Para¬ 
meter werden mit Hilfe der Prozessorregister übergeben: 
Akku = logische Filenummer (1-255) 

X-Register = Geräteadresse (0, 1, 3, 4 oder 8) 
Y-Register = Sekundäradresse (Datasette: 0-2; Floppy: 0-15) 

Wenn wir zum Beispiel Daten in eine Diskettendatei schrei¬ 
ben wollen, übergeben wir der Routine SETPAR folgende 
Parameter: 


LDA #$01 ;LOG.FILENUMMER 1 

TAY ;SEKUNDÄRADRESSE 1 

LDX #$08 ;GERÄTEADRESSE 8 = FLOPPYSTATION 

JSR $FFBA ; SETPAR AUFRUFEN 

SETNAM ($FFBD): Dateinamen 
(+Zusätze) übergeben 


Der Dateiname darf aus maximal 16 Zeichen bestehen. Unter 
»Zusatz« sind die Angaben »Typ« und »Modus« zu verstehen. 
Beide Angaben werden nur bei Diskettendateien benötigt, 
um zum Beispiel mit dem Befehl OPEN 2,8,2, "TEST,S,W * die 
sequentielle Datei »TEST« zum Schreiben zu öffnen. 

Typ = S (Sequentielle Datei), R (Relative Datei), P (Pro¬ 
grammdatei) oder U (Userdatei). 

Modus = R (Read=Daten lesen), W (Write=Daten schrei¬ 
ben) oder A (Append=Daten an bestehende Datei anhän- 
gen) 

Die Angabe des Dateityps wird bei Datasettendateien nicht 
benötigt, da die Datasette nur eine einzige Form der 
Datendatei kennt, den sequentiellen Typ. 

Die Angabe der Zugriffsart, des »Modus«, ist bei 
Verwendung der Datasette ebenfalls überflüssig, da diese 
Angabe bereits beim Aufruf von SETPAR erfolgte 
(Sekundäradresse 0 bis 2). 

Bei Verwendung der Datasette muß übrigens nicht unbe¬ 
dingt ein Dateiname angegeben werden. Die angelegte Datei 
erhält dann keinen Namen. 

Die Parameter für SETNAM werden teilweise ebenfalls mit 
Hilfe der Prozessorregister übergeben. Zusätzlich muß 
jedoch in einem beliebigen Speicherbereich (im Programm 
selbst in der Zeropage, oder an einem beliebigen anderen 
Ort) der Dateiname (plus Zusatz) in ASCII-Förm abgelegt 
sein. In den folgenden Beispielen werde ich den Kassetten¬ 
puffer verwenden ($033C-$03FB), da dieser bei Verwen¬ 
dung der Floppystation nicht benötigt wird. Wenn Sie meine 
Demoprogramme für die Datasette umschreiben wollen, 
müssen Sie sich einen anderen Speicherbereich zur Daten¬ 
ablage suchen. 

Wenn der Dateiname abgelegt wurde, wird der Akku mit der 
Länge des Namens geladen, und im X- beziehungsweise Y- 
Register wird ein Zeiger auf die Adresse übergeben, an der 
sich der Name befindet (X-Register = Low-Byte der Adresse; 
Y-Register = High-Byte): 

LDA #$04 jLÄNGE DES NAMENS: 4 ZEICHEN (Beispiel) 

LDX #$3C ;LOW-BYTE DER ADRESSE $033C 
LDY #$03 ;HIGH-BYTE DER ADRESSE $033C 
JSR $FFBD ; SETNAM AUFRUFEN 

Diese Routine ist nur dann lauffähig, wenn zuvor ein Datei¬ 
name mit einer Länge von vier Zeichen in ASCII-Form ab 
$033C abgelegt wurde. 

OPEN ($FFC0): Datei öffnen 


Nach diesen Vorbereitungen kann endlich die OPEN-Routine 
des Betriebssystems aufgerufen werden. Der Aufruf mit JSR 
$FFC0 genügt, da keine weiteren Parameter übergeben wer¬ 
den müssen. Die logische Datei wird nun geöffnet. Dabei ist 
es jedoch möglich, daß ein Fehler auftritt, zum Beispiel wenn 
auf Band geschrieben werden soll und die Datasette noch im 
Schrank liegt. In diesem Fall tritt ein »DEVICE NOT PRESENT 
ERROR« auf. 

Wenn Sie wirklich professionell programmieren wollen, 
dürfen Sie eventuell auftretende Fehler selbstverständlich 
nicht einfach ignorieren, sondern benötigen eine »Fehlerbe¬ 
handlungsroutine«, zu der Ihr Programm in einem solchen Fall 
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verzweigt (zum Beispiel, um den Benutzer aufzufordern, end¬ 
lich die Diskettenstation einzuschalten oder eine Diskette 
einzulegen). 

Ob beim Öffnen einer Datei ein Fehler auftrat, erkennen 
Sie am Carry-Flag. Bei fehlerfreiem Öffnen der Datei ist es 
nach der Rückkehr aus der OPEN-Routine gelöscht. Trat ein 
Fehler auf, ist das Carry-Flag gesetzt und im Akku wird die 
Nummer des Fehlers übergeben. Bei gesetztem Carry-Flag 
sollte Ihr Programm daher zu einer Fehlerbehandlungsrouti¬ 
ne verzweigen: 

JSR $FFC0 ;OPEN AUFRUFEN 
BCS $???? ;WENN FEHLER, DANN VERZWEIGEN 
Die Fehlernummern im Akku haben folgende Bedeutung: 

0 = <STOP>-Taste gedrückt (»Break Error«) 

1 = too many files 

2 = file open 

3 = file not open 

4 = file not found 

5 = device not present 

6 = not input file 

7 = not output file 

8 = missing filename 

9 = illegal device number 

Die Fehler Drei, Sechs und Sieben sind beim Öffnen einer 
Datei bedeutungslos. Sie können nur nach Lese- oder 
Schreibversuchen in die Datei auftreten. Ein Fehler wie zum 
Beispiel »MISSING FILENAME« ist dagegen gerätespezi¬ 
fisch. Bei Verwendung der Datasette müssen Sie nicht unbe¬ 
dingt einen Dateinamen angeben, daher kann auch dieser 
Fehler nicht auftreten. 


CHKIN |$FFC6) und CKOUT ($FFC9): 
Ein-/Ausgaben umleiten 


Ich muß gestehen, daß ich ein wenig vereinfachte mit der 
Behauptung, daß das Maschinensprache-Äquivalent zum 
Basic-Befehl OPEN die Routinen SETPAR, SETNAM und der 
anschließende Aufruf der OPEN-Routine sei. Leider müssen 
wir noch zwei weitere Routinen besprechen, bevor wir zur 
eigentlichen Datenein- beziehungsweise -ausgabe kommen, 
die Routinen CHKIN und CKOUT. 

Wie Sie wissen, ist die Tastatur beim C 64 das Standardein¬ 
gabegerät und der Bildschirm das Standardausgabegerät. 
Um nach dem Öffnen einer Datei in diese Daten zu schreiben 
oder Daten daraus zu lesen, muß die Ein- beziehungsweise 
Ausgabe auf die geöffnete logische Datei umgelenkt werden, 
da ansonsten die Standardgeräte angesprochen werden. 

Das Umlenken der Eingabe von der Tastatur auf die mit der 
OPEN-Routine geöffnete Datei erfolgt mit der Routine 
CHKIN, der im X-Register die beim Aufruf von SETFLS ver¬ 
wendete logische Filenummer übergeben wird, zum Beispiel 
die Eins: 

LDX #$01 ;LOG.FILENUMMER 
JSR $FFC6 ;AUFRUF VON CHKIN 

Um in eine geöffnete Datei Daten zu schreiben, muß die 
Ausgabe vom Standardgerät Bildschirm zuvor auf die geöff¬ 
nete logische Datei umgeleitet werden. Der zuständigen 
Routine CKOUT wird ebenfalls im X-Register die verwendete 
logische Filenummer übergeben: 

LDX #$01 ;LOG.FILENUMMER 
JSR $FFC9 ;AUFRUF VON CKOUT 

Beide Routinen zeigen auftretende Fehler ebenso wie die 
OPEN-Routine durch ein gesetztes Carry-Flag an. Trat ein 
Fehler auf, wird die Fehlernummer ebenfalls im Akku überge¬ 
ben. 


Demoprogramm 1: Datei in 
Maschinensprache öffnen 


Wir sind nun endlich soweit, das theoretisch erworbene Wis¬ 
sen in ein Programm umsetzen zu können. Mit den erläuter¬ 
ten Routinen können wir ein Demonstrationsprogramm 
schreiben, das in Maschinensprache eine logische Datei 
zum Schreiben von Daten auf Diskette öffnet. Als Dateina¬ 
men verwenden wir »TEST,S,W« (das heißt der eigentliche 
Dateiname ist »TEST«, der Namenszusatz »,S,W«, da wir eine 
sequentielle Datei zum Schreiben öffnen wollen), als logi¬ 
sche Filenummer eine Eins. 

Zum Schreiben der Daten verwenden wir ein kleines Basic- 
Programm, das zusätzlich die Aufgabe übernehmen soll, den 
Dateinamen in ASCII-Förm in den Kassettenpuffer zu POKEn, 
bevor es unsere Dateiöffnungsroutine aufruft und anschlie¬ 
ßend Daten in die - durch die Maschinenroutine geöffnete - 
Datei schreibt: 

100 REM ##X DATEN SCHREIBEN xxx 

110 DN$="TEST,S,W":REM DATEINAME + ZUSATZ 

120 F0R 1=1 T0 LEN(DN$) 

130 : P0KE 827+1,ASC(MID$(DN$,1,1)) 

140 NEXT 

150 SYS 49152:REM MASCHINENROUT. ($0000) AUFRUFEN 
160 PRINT#1, "DIES IST" 

170 PRINT#1, "EIN TEST" 

180 CL0SE 1 
190 : 

200 REM *xx DATEN LESEN xxx 

210 OPEN 1,8,2,"TEST,S,R":REM DATEI OEFFNEN 

220 INPUT #1,A$: PRINT A$ 

230 INPUT #1,B$: PRINT B$ 

240 CL0 C - 1 

Die Maschinenroutine beginnt ab $C000, ebenso wie alle 


weiteren 

Demoprogramme. 

. cooo 

LDA 

#$01 

jLOG.FILENUMMER 1 

. C002 

LDX 

#$08 

;GERÄTEADRESSE 8 = FLOPPY 

. C004 

LDY 

#$02 

;SEKUNDÄRADRESSE 2 

. 0006 

JSR 

$FFBA 

;SETPAR AUFRUFEN 

. C009 

LDA 

#$08 

;LÄNGE DES NAMENS+ZUSATZ: 




8 ZEICHEN 

. C00B 

LDX 

#$3C 

;L0W-BYTE DER ADRESSE $033C 

. C00D 

LDY 

#$03 

;HIGH-BYTE DER ADRESSE $033C 

. C00F 

JSR 

$FFBD 

;SETNAM AUFRUFEN 

. C012 

JSR 

$FFC0 

;0PEN AUFRUFEN 

. C015 

LDX 

#$01 

;LOG.FILENUMMER 

. C017 

JSR 

$FFC9 

;AUFRUF VON CKOUT 

. C01A 

RTS 


jZURUECK NACH BASIC 


Das Maschinenprogramm besteht im Grunde nur aus einer 
Zusammenfassung der bereits beschriebenen Teile, das 
heißt aus dem Aufruf von SETPAR, SETNAM, OPEN und 
CKOUT. Beachten Sie bitte, daß eventuell auftretende Fehler 
ignoriert werden (Carry-Flag abfragen). 

Geben Sie dieses Programm bitte mit einem Maschinen¬ 
sprache-Monitor ein (lassen Sie die Kommentare jedoch 
weg und versuchen Sie nicht, die einzelnen Programmteile 
wie abgebildet durch Leerzeilen optisch zu unterteilen!). 
Geben Sie anschließend das Basic-Programm ein und star¬ 
ten Sie es mit RUN. 

Zum Programmablauf: In den Zeilen 110-140 werden mit 
einer Schleife die ASCII-Codes der einzelnen Zeichen des 
Dateinamens »TEST« und des Zusatzes »,S,W« in den Kasset¬ 
tenpuffer gePOKEt. Anschließend wird unsere Maschinen¬ 
routine aufgerufen, die eine Diskettendatei unter der log. File¬ 
nummer Eins öffnet (Zeile 150). Unter Angabe dieser File- 
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nummer schreibt das Basic-Programm nun zwei Strings in die 
Datei, bevor sie wieder geschlossen wird (Zeilen 160 bis 
180). 

Anschließend wird die sequentielle Datei »TEST« zum 
Lesen geöffnet (Zusatz »,S,R«), Die beiden Strings werden 
eingelesen, auf dem Bildschirm ausgegeben und die Datei 
geschlossen. 

Wie Sie sehen, ist es zweifellos bequemer, einen Basic- 
Befehl zum öffnen einer Datei zu verwenden, als ein Maschi¬ 
nenprogramm, das an mehrere Routinen die verschieden¬ 
sten Parameter übergeben muß, um die gleiche Funktion 
zu erfüllen. Die im Laufe dieses Kapitels vorgestellte 
INPUT#-Routine entschädigt Sie jedoch für diesen Auf¬ 
wand. In Basic könnte diese Routine nur mit einem kleinen 
Unterprogramm unter Verwendung von GET # erstellt wer¬ 
den und wäre weitaus langsamer als die entsprechende 
Maschinenroutine. (Versuchen Sie einmal, 20 Strings mit 
einer Länge von jeweils 100 Zeichen mit GET # nach und 
nach einzulesen. Sie werden staunen, wie langsam Ihre Data- 
sette plötzlich wird.) 

BSOUT ($FFD2): 

Datenausgabe auf logische Datei 


Wir können nun zwar in Maschinensprache beliebige Dateien 
öffnen, bisher jedoch weder Daten ausgeben noch einiesen. 
Sie alle wissen sicherlich, daß mit der Routine BSOUT Daten 
auf dem Bildschirm ausgegeben werden können. BSOUT 
gibt ein im Akku übergebenes Zeichen (ASCII-Code!) auf 
dem Bildschirm aus, und zwar an der aktuellen Cursorposi¬ 
tion. 


BSOUT ist jedoch keineswegs eine speziell zur Ausgabe 
auf dem Bildschirm gedachte Routine, sondern erfüllt die weit¬ 
aus allgemeinere Funktion, Daten in eine beliebige logische 
Datei zu schreiben. Diese Datei ist normalerweise der Bild¬ 
schirm, wir können mit BSOUT jedoch auch Zeichen in eine 
Datasetten-, Disketten- oder Druckerdatei schreiben. 

Die benötigten Vorbereitungsroutinen kennen wir bereits. 
Zuerst wird eine logische Datei geöffnet, anschließend die 
Datenausgabe mit CKOUT auf diese Datei umgeleitet. Wenn 
nun BSOUT aufgerufen wird, werden die im Akku übergebe¬ 
nen Zeichen dank der Umleitung der Ausgabe nicht auf dem 
Bildschirm ausgegeben, sondern in die angegebene Datei 
geschrieben. 


JSR $FFC9 
LDA #$4l 
JSR $FFD2 


DISKETTENDATEI ZUM 
SCHREIBEN OEFFNEN 
AUSGABE AUF DIE DATEI LEGEN 
ASCII-CODE VON 'A' 

’A' IN DIE DATEI SCHREIBEN 


JSR $FFC6 
JSR $FFCF 
STA $xxxl 
JSR $FFCF 
STA $xxx2 


;EINGABE AUF DIE DATEI LEGEN 
;EIN ZEICHEN AUS DER DATEI LESEN 
;ZEICHEN SPEICHERN 
;NAECHSTES ZEICHEN LESEN 
;EBENFALLS SPEICHERN 


CIRCH ($FFCC): 

Standardein-/-ausgabegeräte setzen 


Nach beendeter Ein- beziehungsweise Ausgabe von Daten 
sollte die Routine CLRCH aufgerufen werden, die die 
Eingabe wieder auf das Standardgerät Tastatur und die 
Ausgabe auf den Bildschirm umleitet. Es werden keinerlei 
Vorbereitungsroutinen oder Übergabeparameter benötigt. 
CLRCH muß auch aufgerufen werden, wenn Ein-/Ausgabe- 
operationen noch nicht beendet wurden, sich im folgenden 
jedoch auf andere logische Dateien beziehen sollen, das 
heißt bevor die Ein- beziehungsweise Ausgabe mit CKOUT 
oder CHKIN auf eine andere Datei umgelenkt wird. Ohne die 
vorhergehende »Säuberung« der Übertragungskanäle durch 
CLRCH kann es passieren, daß mehrere Geräte gleichzeitig 
auf den seriellen Bus zugreifen wollen, was verständlicher¬ 
weise zu erheblichen Problemen führt. 

;LOGISCHE DATEI OEFFNEN 
;EIN- ODER AUSGABE UMLENKEN 
;DATEN LESEN ODER SCHREIBEN 
JSR $FFCC ;STANDARDEIN-/AUSGABEGERAETE SETZEN 
;(TASTATUR/BILDSCHIRM) 


CLO» ($FfC3): Logische Datei schließen 


CLRCH leitet weitere Ein- oder Ausgaben zwar wieder auf die 
Tastatur beziehungsweise den Bildschirm um, die zuvor 
geöffnete logische Datei wird jedoch nicht automatisch 
geschlossen! Zum Abschluß jeder Schreib- oder Leseroutine 
sollte daher die Routine CLOSE aufgerufen werden, die die 
angegebene logische Datei schließt, wobei die Filenummer 
im Akku übergeben werden muß. 

;DATEI MIT LOG.FILENUMMER 1 OEFFNEN 

;EIN-/AUSGABE UMLEITEN 
... ;DATEN LESEN ODER SCHREIBEN 

JSR $FFCC ;EIN-/AUSGABE AUF STANDARDGERAETE 

LDA #$01 ;LOG.FILENUMMER 

JSR $FFC3 ;LOG.DATEI SCHLIESSEN 


BASIN ($FFCF): 

Dateneingabe von logischer Datei 


BASIN erfüllt die entgegengesetzte Funktion, das Einlesen 
von Daten aus einer beliebigen logischen Datei. Wenn die 
Zeichen nicht vom Standardgerät Tastatur gelesen werden 
sollen, muß ebenfalls eine logische Datei zum Lesen geöffnet 
und die Eingabe mit CHKIN auf diese Datei umgelenkt 
werden. Nun kann mit BASIN Zeichen für Zeichen aus dieser 
Datei gelesen werden. Die eingelesenen Zeichen werden im 
Akku übergeben. 

;DISKETTENDATEI ZUM 

jLESEN OEFFNEN 


READST ($FFB7): Status abfragen 


Ein Problem müssen wir noch lösen, bevor wir ausschließlich 
in Maschinensprache Dateiverwaltung betreiben können, 
und zwar die Abfrage des Dateiendes. Das Einlesen einer 
Datei muß beendet werden, wenn das Dateiende erreicht 
wurde. In Basic können wir hierzu die Statusvariable ST 
abfragen, die den Wert 64 annimmt, wenn das Dateiende 
erreicht wurde. 

In Maschinensprache verwenden wir die Routine READST, 
die die gleiche Funktion erfüllt (der Basic-Interpreter 
verwendet diese Routine selbst, um der Variablen ST den 
jeweiligen Status mitzuteilen). 
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Nach dem Aufruf von READST wird der aktuelle Status im 
Akku übergeben. Bei Erreichen des Dateiendes wird Bit 6 
gesetzt (da dieses Bit den dezimalen Wert 64 besitzt, wird 
die Analogie zur Basic-Variablen ST deutlich). 


LABEL JSR $FFCF 
JSR $FFB7 
AND #$40 

BEQ LABEL 


;DATEN LESEN 
;READST AUFRUFEN 
;ALLE BITS AUSSER 
BIT 6 AUSMASKIEREN 
;WEITERLESEN, WENN NICHT DATEIENDE 


Demoprogramm 2: Daten in Maschinen¬ 
sprache schreiben und lesen 


Die Zeiten, in denen wir uns zum Schreiben und Lesen von 
Daten mit Basic behelfen mußten, sind nun endgültig vorbei. 
In diesem zweiten Programmbeispiel werden wir die Strings 
»DIES IST« und »EIN TEST« in Maschinensprache auf Band 
schreiben und wieder lesen. 

Aus Bequemlichkeit wird zusätzlich ein kleines Basic- 
Programm verwendet, das den Dateinamen »TEST« und den 
Zusatz »,S,W« nach $033C-$0343 (dezimal 828-835) und 
die zu schreibenden Strings ab $034C (dezimal 828+16) in 
den Kassettenpuffer POKEt (Zeilen 110 bis 130), und das die 
Routine zum Schreiben der Strings aufruft (Zeile 160). Vor 
dem Aufruf der Leseroutine POKEt das Basic-Programm den 
gleichen Dateinamen »TEST«, jedoch mit dem geänderten 
Zusatz »,S,R« nach $033C, da die Datei nun zum Lesen geöff¬ 
net werden soll. 

100 REM *** STRINGS VORBEREITEN *** 

110 F0R 1=1 TO 8:POKE 827+1,ASC(MID$("TEST,S,W",1,1 
)):NEXT 

120 A$="DIES IST"+CHR$(13)+"EIN TEST"+CHR$(13)+CHR 
$( 0 ) 

130 F0R 1=1 TO LEN(A$):P0KE 827+16+1,ASC(MID$(A$,I 
,1)):NEXT 
140 : 


150 REM *## STRINGS SCHREIBEN/LESEN *#* 

160 SYS 49152:REM STRINGS SCHREIBEN 
170 FOR 1=1 TO 8:POKE 827+1,ASC(MID$("TEST,S,R",I, 
l)):NEXT 

180 SYS 49200:REM STRINGS LESEN/AUSGEBEN 
Beachten Sie bitte, daß bei der zeichenweisen Ausgabe mit 
BSOÜT im Gegensatz zur Basic-Ausgabe mit PRINT # nicht 
automatisch nach jedem String das Zeichen CHR$(13) (Car- 
riage Return oder auch Zeilenvorschub) auf Kassette ge¬ 
schrieben wird. Die Basic-Routine fügt dieses Zeichen daher 
an das Ende beider Zeichenketten an (Zeile 120). Als letztes 
Zeichen wird ein CHR$(0) als Endemarke angehängt, an dem 
unsere Maschinenroutine das Ende des auszugebenden 
Strings erkennen soll. 

Teil 1: Daten schreiben 


. C000 

LDA 

#$01 

. C002 

LDX 

#$08 

. C004 

LDY 

#$02 

. C006 

JSR $FFBA 

. C009 

LDA 

#$08 

. COOB 

LDX 

#$3C 

. ’COOD 

LDY 

#$03 

. COOF 

JSR $FFBD 
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;LOG.FILENUMMER 
;GERAETEADRESSE 
;SEKUNDAERADRESSE 
;SETPAR AUFRUFEN 

jLAENGE DES DATEINAMENS+ 
ZUSATZ 

;LOW-BYTE ADRESSE DATEINAME 
jHIGH-BYTE ADRESSE DATEINAME 
jSETNAM AUFRUFEN 


. C012 

JSR 

$FFC0 

;0PEN AUFRUFEN 

. C015 

LDX 

#$01 

LOG.FILENUMMER 

. C017 

JSR 

$FFC9 

;CK0UT AUFRUFEN 

. C01A 

LDX 

#$00 

ZEIGER INITIALISIEREN 

. C01C 

LDA 

$0340,X 

ERSTES ZEICHEN HOLEN ' 

. C01F 

BEQ 

$0027 

FERTIG, WENN ENDEMARKE 

. C021 

JSR 

$FFD2 

ZEICHEN IN DATEI SCHREIBEN 

. C024 

INX 


ZEIGER AUF NAECHSTES ZEICHEN 

. C025 

BNE 

$C01C 

ZUM SCHLEIFENANFANG 




(UNBEDINGTER SPRUNG) 

. C027 

JSR 

$FFCC 

STANDARDGERAETE SETZEN 

. C02A 

LDA 

#$01 

LOG.FILENUMMER 

. C02C 

JSR 

$FFC3 

LOG.DATEI SCHLIESSEN 

. C02F 

RTS 


RUECKKEHR NACH BASIC 

Teil 2: Daten lesen/ausgeben 

. C030 

LDA 

#$01 

LOG.FILENUMMER 

. C032 

LDX 

#$08 

GERAETEADRESSE 

. 0034 

LDY 

#$02 

SEKUNDAERADRESSE 

. C036 

JSR 

$FFBA 

SETPAR AUFRUFEN 

. C039 

LDA 

#$08 

LAENGE DES DATEINAMENS 

. C03B 

LDX 

#$3C 

LOW-BYTE ADRESSE DATEINAME 

. C03D 

LDY 

#$03 

HIGH-BYTE ADRESSE DATEINAME 

. C03F 

JSR 

$FFBD 

SETNAM AUFRUFEN 

. C042 

JSR 

$FFC0 

OPEN AUFRUFEN 

. C045 

LDX 

#$01 

LOG.FILENUMMER 

. C047 

JSR 

$FFC6 

CHKIN AUFRUFEN 

. C04A 

JSR 

$FFCF 

BASIN AUFRUFEN 

- WML 

JSR 

$FFD2 

ZEICHEN AUF BILDSCHIRM 




AUSGEBEN 

. C050 

JSR 

$FFB7 

READST AUFRUFEN 

. C053 

AND 

#$40 

ALLE AUSSER BIT 6 




AUSMASKIEREN 

. C055 

BEQ 

$C04A 

WEITER, WENN NICHT DATEIENDE 

. C057 

JSR 

$FFCC 

STANDARDGERAETE SETZEN 

. C05A 

LDA 

#$01 

LOG.FILENUMMER 

. C05C 

JSR 

$FFC3 

LOG.DATEI SCHLIESSEN 

. C05F 

RTS 


RUECKKEHR NACH BASIC 


Dieses Programm dürfte gut verständlich sein, da es unter 
Verzicht auf Programmiertricks in aller Ausführlichkeit 
geschrieben wurde. Mit dem öffnen und Schließen der 
Dateien im ersten und zweiten Programmteil sollten Sie nun 
vertraut sein. 

Wichtig an diesem Programm ist, daß im ersten Teil Zeichen 
für Zeichen in die Datei geschrieben wird, bis das nächste 
Zeichen eine Null ist, jene Endemarke, die das Basic- 
Programm am Ende des Strings in den Speicher POKEte. 

Beim Lesen der Zeichen könnte selbstverständlich eben¬ 
falls eine solche Endemarke benutzt werden, um das Datei¬ 
ende festzustellen. Statt dessen wird die erläuterte Routine 
READST verwendet. Zeichen für Zeichen wird aus der Datei 
gelesen und auf dem Bildschirm ausgegeben, wobei nach 
jedem Lesevorgang READST aufgerufen und das sechste Bit 
des im Akku übergebenen Statusbytes überprüft wjrd (AND 
# $40). Ist dieses Bit gesetzt, wurde das Dateiende'erreicht 
und das Programm kehrt ins Basic zurück (zuvor werden 
noch CLRCH und CLOSE aufgerufen). 

Bevor Sie dieses Programm starten: Sollten Sie das Demo¬ 
programm 1 ausprobiert haben, so löschen Sie bitte die 
dadurch auf der Diskette erzeugte Datei »TEST«. 

Verwenden Sie keinesfalls den Zusatz »@:« im Datei¬ 
namen, um bereits existierende Dateien zu überschreiben, 
da er unter Umständen Ihre Diskette zerstören kann. 
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Die Interpreterroutinen 
CHKKOM, GETBYT, STRPOS und STRRES 


Zu Beginn dieses Artikels erwähnte ich den Basic-Befehl 
INPUT #, der als »Fehlleistung« des Basic-Interpreters ange¬ 
sehen werden kann. Im folgenden wird eine Routine ent¬ 
wickelt, die diesen Befehl durch eine Maschinenroutine 
ersetzt und die 255 beliebige Zeichen einiesen kann (also 
auch Komma, Doppelpunkt etc.). 

Vorher muß ich jedoch kurz auf verschiedene Routinen des 
Basic-Interpreters eingehen, die für diese Routine unbedingt 
benötigt werden. Da der Aufruf möglichst weitgehend dem 
normalen INPUT #-Befehl entsprechen soll (INPUT#(log. 
Filenummer), (Übergabestring)), muß das Programm in der 


befindet (Name: 2 Byte; Länge: 1 Byte; Adresse: 2 Byte in 
der Form Low/High). 

STRPOS übergibt einen Zeiger auf diese Descriptoren des 
angegebenen Strings (und zwar nicht auf das erste Descrip- 
torenbyte (das erste Namensbyte), sondern auf das Längen¬ 
byte) und legt ihn an, wenn er bisher noch nicht existiert. 
Wenn der Aufruf zum Beispiel lautet: SYS 49152,A$(7) und 
unsere Routine zuerst CHKKOM und anschließend STRPOS 
aufruft, erhalten wir in $47/$48 einen Pointer, der auf den 
Längendescriptor des Strings A$(7) zeigt. 

Die letzte benötigte Routine heißt STRRES ($B4F4). Diese 
Routine reserviert Speicherplatz für den anzulegenden 
String. Ein Beispiel: Wir wollen einen String mit einer Länge 
von 10 Zeichen anlegen. Zuerst muß der Akku mit der String¬ 
länge geladen werden, anschließend wird STRRES aufgeru- 


Lage sein, die Filenummer aus dem Basic-Text zu lesen und 
auf den angegebenen String zuzugreifen, in dem die eingele¬ 
senen Daten an das aufrufende Basic-Programm übergeben 
werden sollen. 

Die Routine wird ebenfalls im Bereich $0000 liegen und 
wie folgt aufgerufen: 

SYS 49152,(LOG.FILENUMMER),(ÜBERGABESTRING) 
zum Beispiel: 

SYS 49152,1,a$ oder SYS 49152,2,X$(7) 

Da die einzelnen Parameter durch Kommata getrennt sind, 
benötigen wir zuerst eine Routine, die in der Lage ist, Kom¬ 
mas aus dem Basic-Programm einzulesen. Diese Routine 
wird CHKKOM ($AEFD) genannt. Der Basic-Interpreter führt 
ständig einen Zeiger auf die momentan bearbeitete Textstelle 
mit sich. Nach dem SYS-Aufruf weist dieser Zeiger auf das 
erste Zeichen hinter der angegebenen Adresse, das heißt auf 
das Komma. 

Der Aufruf von CHKKOM liest dieses Zeichen ein, setzt 
den Textpointer auf das nächste Zeichen im Basic-Programm 
und überprüft, ob tatsächlich ein Komma gelesen wurde. 
Wenn ja, endet CHKKOM mit einem RTS-Befehl, ansonsten 
wird ein »SYNTAX ERROR IN ...« ausgegeben. 

Wenn mit CHKKOM das erste Trennzeichen eingelesen 
wurde, muß anschließend die angegebene Filenummer von 
unserem Programm gelesen werden. Die Routine GETBYT 
($B79E) liest einen beliebigen Ein-Byte-Wertausdem Basic- 
Text und übergibt ihn im X-Register. Der Wert muß übrigens 
nicht direkt als Zahl angegeben werden, da GETBYT auch 
Variablen verarbeitet, so daß zum Beispiel folgender Aufruf 
möglich ist: 

LF=1:SYS 49152,LF,A$ 

Bevor wir an die eigentliche Programmerstellung gehen 
können, muß ein weiteres Problem gelöst werden: Wo spei¬ 
chern wir die eingelesenen Zeichen ab? Am komfortabelsten 
ist die Benutzung unserer Routine, wenn sie die eingelese¬ 
nen Zeichen als String anlegt, auf den das aufrufende Basic- 
Programm direkt zugreifen kann. Der Name des Übergabe¬ 
strings sollte ebenso wie beim INPUT #-Befehl beim Aufruf 
angegeben werden können. 

Ein Standardproblem bei der Verbindung von Basic und 
Maschinenroutinen ist der Zugriff auf Basic-Strings von 
Maschinensprache aus, das Lesen oder gar Anlegen von 
Strings. Beides ermöglicht uns die Routine STRPOS 
($B08B). Diese Routine liest den beim Aufruf angegebenen 
Stringnamen aus dem Basic-Text und übergibt in $47/$48 
einen Pointer auf die sogenannten »Stringdescriptoren«. 

Wie Sie vielleicht wissen, werden Strings vom Ende des 
verfügbaren Speichers aus abwärts angelegt und befinden 
sich im Gegensatz zu numerischen Variablen nicht direkt in 
der sogenannten »Variablentabelle«, die im Speicher immer 
unmittelbar dem Basic-Programm folgt. In der Variablenta¬ 
belle befinden sich jedoch alle Daten, die zum Zugriff auf den 
eigentlichen String notwendig sind, der Stringname, die 
Stringlänge und die Adresse, an der sich der String selbst 


fen: 

LDA #$0A jSTRINGLAENGE: 10 ZEICHEN 
JSR $B4F4 ;AUFRUF VON STRRES 

In $33/$34 befindet sich ein Pointer auf den Anfang des 
sogenannten »Stringstacks«, das heißt auf das erste Zeichen 
des zuletzt angelegten Strings. Nach dem Aufruf von 
STRRES mit der Stringlänge zehn im Akku wird dieser Pointer 
um den Wert zehn erniedrigt. Der dazukommende String 
kann nun vor (I) dem zuletzt angelegten gespeichert werden. 
(Denken Sie bitte daran, daß die Strings vom Speicherende 
ausgehend abwärts (!) angelegt werden.) 

Bevor STRRES den Pointer auf den Anfang der Strings um 
die übergebene Stringlänge vermindert, wird jedoch über¬ 
prüft, ob überhaupt ausreichend Platz vorhanden ist, oder ob 
der nach unten wachsende Stringstack mit dem Basic- 
Programm kollidieren und dieses überschreiben würde. 
Wenn nicht ausreichend Platz vorhanden ist, wird eine Gar- 
baqe Collection durchgeführt, das heißt nicht mehr benötig¬ 
ter - r :ringmüll« wird beseitigt. Ist auch anschließend noch 
nicht ausreichend Platz für den anzulegenden String vorhan¬ 
den, gibt STRRES die Fehlermeldung »OUT OF MEMORY 
ERROR« aus. 

Endlich: Die INPUT #-Routine 


Nach diesem »Vorgeplänkel« können wir uns endlich an die 
eigentliche Programmierung wagen. Im Gegensatz zu den 
bisher verwendeten Monitorlistings werde ich die Entwick¬ 
lung der INPUT #-Routine anhand von Assemblerlistings 
(Hypra-Ass-Format) demonstrieren, da diese Routine doch 
etwas komplexer als die bisherigen Programmbeispiele ist 
und Assemblerlistings einfacher zu durchschauen sind, 
xxxxxxxxxxxxxxxxxxxxxxxxx 

* INPUT #FUER C64 * * 

* (W) SAID BALOUI , 1986 * 
xxxxxxxxxxxxxxxxxxxxxxxxx 


BA $C000 

EQ LENGTH 
EQ POINTR 
EQ DESCR 
EQ DESPOI 
EQ CHKKOM 
EQ GETBYT 
EQ CHKIN 
EQ CLRCH 
EQ BASIN 

EQ STREND 
EQ STRPOS 
EQ STRRES 


$F7 

$F8 

$FA 

$47 

$AEFD 

$B79E 

$FFC6 

$FFCC 

$FFCF 

$33 

$B08B 

$B4F4 


;PROGRAMMSTART 

STRINGLAENGE 
HILFSPOINTER 
STRINGDESCRIPTOREN 
POINTER AUF DESCRIPTOREN 
KOMMA EINLESEN 
BYTEWERT LESEN 
INPUT AUF LOGISCHE DATEI 
STANDARDGERAETE SETZEN 
ZEICHEN AUS LOG.DATEI 
LESEN 

POINTER AUF STRINGSTACK 
STRINGVARIABLE LESEN 
STRINGPLATZ RESERVIEREN 


SONDERHEFT 28 


133 












DATEIVERWALTUNG-KURS 


C64 


*** PLATZ RESERVIEREN *** 

LDA #255 ; 255 BYTE 

JSR STRRES s RESERVIEREN 

Diese beiden Befehle reservieren Platz für den einzulesen¬ 


den String in der Maximallänge von 255 Zeichen. Dank der 
Verwendung von STRRES wird sich das Programm keines¬ 
falls »aufhängen«:, sondern, sollte das Basic-Programm, in 
dem Sie die INPUT #-Routine verwenden, zu umfangreich 
und daher nicht ausreichend Platz vorhanden sein, sich mit 
einem »OUT OF MEMORY ERROR« verabschieden. 


*## STRING EINLESEN *## 
JSR CHKKOM 
JSR GETBYT 
JSR CHKIN 
LDY #0 

INPUT JSR BASIN 

CMP #13 
BEQ LIESEND 
STA (STREND), 
INY 

BNE INPUT 

LIESEND STY LENGTH 

JSR CLRCH 


LOG.FILENUMMER 
...EINLESEN (X-REGISTER) 
EINGABE AUF LOG.DATEI 


;LESEN BIS »RETURN« 

;UND AB STREND/STREND+1 
;IM STRINGSTACK ABLEGEN 

;UNBEDINGTER SPRUNG (!) 
;STRINGLAENGE MERKEN 
;STANDARDGERAETE SETZEN 


Der Programmteil zum Einlesen des Strings liest zuerst das 
als Trennzeichen verwendete Komma und die angegebene 
Filenummer aus dem Basic-Text ein. GETBYT übergibt wie 
erwähnt die Filenummer im X-Register, in dem sich die File¬ 
nummer auch beim Aufruf von CHKIN befinden muß, so daß 
diese Routine ohne weitere Vorbereitung aufgerufen und die 
Eingabe auf die geöffnete Datei umgelenkt werden kann. 

Das Y-Register wird nun mit Null initialisiert, Zeichen für Zei¬ 
chen aus der Datei eingelesen und ab dem neuen Anfang des 
Stringstacks gespeichert, bis das Zeichen für < RETURN > 
gelesen wird, das das Stringende kennzeichnet. Die im Y- 
Register enthaltene Stringlänge wird in LENGTH zur späteren 
Verwendung gemerkt und durch Aufruf von CLRCH wieder 
die Standardgeräte (Tastatur, Bildschirm) gesetzt. 


*** POINTER AUF STRINGANFANG ### 

LDA STREND+1 ;P0INTER(+1)= 
STA P0INTR+1 
LDA #255 
SEC 


;ECHTER STRINGANFANG, 
;D.H. MOMENTANER 
;ANFANG (STREND) 


SBC LENGTH 
CLC 

ADC STREND 
STA POINTR 
BCC NOINC 
INC P0INTR+1 


;+ DIE DIFFERENZ 
;ZWISCHEN DER 
;RESERVIERTEN LAENGE 
i255 ZEICHEN UND 
;DER TATSAECHLICHEN 
jLAENGE DES STRINGS 


Die eingelesenen Zeichen wurden ab der Adresse gespei¬ 
chert, auf die STREND weist. STREND weist durch die String¬ 
reservierung 255 Zeichen vor den Beginn des nächsten 
Strings im Stringstack. Um die unglaubliche Platzverschwen¬ 


dung zu vermeiden, wenn zwar 255 Zeichen reserviert wur¬ 
den, der eingelesene String tatsächlich jedoch zum Beispiel 
nur eine Länge von 20 oder 30 Zeichen besitzt, wird nach 
beendetem Einlesen der String nach oben verschoben, um 
den Leerraum zwischen dem eingelesenen und dem näch¬ 
sten String im Stringstack wiederzugewinnen. Dazu wird 
zuerst anhand der tatsächlichen Stringlänge LENGTH und 
der daraus resultierenden Differenz zum reservierten Spei¬ 
cherplatz ein Pointer POINTR errechnet, der auf die korrekte 
Adresse weist, an die der String verschoben werden muß. 


;*** STRING VERSCHIEBEN ### 


NOINC 

LDY LENGTH 

;STRING VON: 


DEY 

;STREND BIS STREND+ 



LENGTH 

COPY 

LDA (STREND),Y 

;NACH: 


STA (POINTR),Y 

;POINTR BIS P0INTR+ 


LENGTH 


DEY ; KOPIEREN 

CPY #255 
BNE COPY 


Das zeichenweise Kopieren des Strings dürfte problemlos 
zu verstehen sein. Der String befindet sich an der korrekten 
Adresse und unsere Routine wäre beendet. Doch leider kann 
das Basic-Programm noch nicht auf den angelegten String 
zugreifen, bevor nicht mehrere Pointer korrigiert werden. 
;#*# DESCRIPT/STREND BEHANDELN ### 

JSR CHKKOM 
JSR STRPOS 


Mit CHKKOM wird das der Filenummer folgende Komma 
gelesen und STRPOS übergibt in DESPOI ($47/$48) einen 
Pointer auf den beim Aufruf angegebenen String. Die Des- 
criptoren dieses Strings werden in einer Schleife nach 
DESCR (Länge), DESCR-f 1 (Adresse Low) und DESCR+2 


(Adresse high) kopiert. 

;### DESCRIPTOREN/STREND 
LDY #0 


BEHANDELN *** 

;DESCRIPTOREN 
AKTUALISIEREN 
;(LAENGENDESCRIPTOR 
MIT DER 

STA (DESPOI),Y ;STRINGLAENGE UND 

ADRESSEN- 
;DESCRIPTOREN MIT 
DER STRING- 
;ADRESSE VERSEHEN 
;AUSSERDEM STREND/ 
STREND+1 

;ENTSPRECHEND DER 
GEAENDERTEN 
;STRINGADRESSE 
KORRIGIEREN 


LDA LENGTH 


INY 

LDA POINTR 
STA (DESPOI),Y 

STA STREND 

INY 


.inc 


.EN 


LDA POINTR+1 
STA (DESPOI),Y 
STA STREND+1 
RTS 


;ZURUECK NACH BASIC 
!PROGRAMMENDE 


Der Längendescriptor des Strings wird nun mit der Länge 
LENGTH versehen und die beiden Adressendescriptoren 
(Low/High) mit der geänderten Startadresse POINTR/ 
POINTR+1. Da der von den reservierten 255 Zeichen unbe¬ 
nutzte Bereich durch das Verschieben des Strings wieder 
freigegeben wurde, muß natürlich auch STREND/STREND+1 
entsprechend der endgültigen Stringadresse korrigiert wer¬ 
den. 

Alle Pointer und Descriptoren sind nun völlig korrekt 
gesetzt und das Basic-Programm kann auf den angelegten 
String zugreifen, wie das folgende Demoprogramm zeigt: 
100 REM #** STRING ERZEUGEN ### 

110 X$="123456789," 

120 F0R 1=1 T0 25:Y$=Y$+X$:NEXT 
130 Y$=Y$+"12345" 

140 : 

150 REM *** STRING SCHREIBEN ### 

160 OPEN 1,8,2"TEST,S,W" 

170 PRINT# 1,Y$ 

180 CL0SE 1 
190 : 

200 REM #** STRING LESEN *** 

210 OPEN 1,8,2,"TEST,S,R" 

220 SYS 49152,1,A$ 

230 CL0SE 1 
240 PRINT A$ 

Nach dem Starten mit RUN schreibt dieses Demopro¬ 
gramm einen String in der Maximallänge von 255 Zeichen 
inklusive dem mit INPUT # keinesfalls einlesbaren Zeichen 
»,« auf Diskette und liest ihn mit der vorgestellten Routine in 
der vollen Länge mit Kommatas wieder ein, was für den 
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INPUT #-Befehl völlig unmöglich wäre. Das Basic-Programm 
kann auf den eingelesenen String wie auf jeden anderen 
String auch zugreifen, zum Beispiel mit »PRINT A$«. 

Verwenden Sie zur Eingabe der INPUT #-Routine bitte das 
abgebildete MSE-Listing (Listing 1). 


Name 

input# .aas 



cOOO c05e 


cOOO 

a9 

ff 

20 

f4 

b4 

20 

fd 

ae 

fl 


c008 

20 

9e 

b7 

20 

c6 

ff 

aO 

00 

58 


C010 

20 

cf 

ff 

c9 

Od 

fO 

05 

91 

eO 


c018 

33 

c8 

dO 

f4 

84 

f7 

20 

cc 

a4 


c020 

ff 

a5 

34 

85 

f9 

a9 

ff 

38 

Od 


c028 

e5 

f7 

18 

65 

33 

85 

f8 

90 

20 


c030 

02 

e6 

f9 

a4 

f7 

88 

bl 

33 

a9 


c038 

91 

f8 

88 

cO 

ff 

dO 

f7 

20 

26 


c040 

fd 

ae 

20 

8b 

bO 

aO 

00 

a5 

69 


c048 

f7 

91 

47 

c8 

a5 

f8 

91 

47 

ea 

Listing 1. Ein 

c050 

85 

33 

c8 

a5 

f9 

91 

47 

85 

aa 

INPUT #-Befehl In 

c058 

34 

60 

01 

08 

01 

08 

0a 

fb 

6e 

Maschinensprache 


Umgehung der Routinen 
SETPAR und SETNAM 


Alle grundlegenden Routinen zur Arbeit mit logischen 
Dateien sind Ihnen nun bekannt. Bevor ich mich im folgenden 
verschiedenen speziellen Anwendungen zuwende (Fehler¬ 
kanal abfragen, relative Dateien etc.) will ich der Vollständig¬ 
keit wegen noch erläutern, wie eine logische Datei geöffnet 
werden kann, ohne (!) zuvor SETPAR und SETNAM aufzuru¬ 
fen. 


decken werden, wenn Sie in die Verlegenheit kommen soll¬ 
ten, Ihre Routinen auf einen anderen Commodore-Computer 
umschreiben zu müssen. Die Parameterübergabe an die 
Betriebssystemroutinen ist auf allen Commodore-Compu- 
tern identisch. Dank der sogenannten »Kernel-Sprungtabel¬ 
le« sind sogar die Einsprungadressen identisch. 

Dieser Kompatibilitäts-Vorteil ist jedoch nur vorhanden, 
wenn Sie in Ihren Programmen die Betriebssystemroutinen 
wie vorgesehen benutzen und nicht wie gezeigt umgehen, 
indem Sie Werte direkt in die Zeropage schreiben. Die Zero¬ 
pageadressen sind zum großen Teil von Rechner zu Rechner 
völlig unterschiedlich (Ausnahme: C16, C116 und Plus/4 mit 
identischer Zeropage-Belegung). 

Sie kennen nun alle grundlegenden Betriebssystemrouti¬ 
nen zur Arbeit mit logischen Dateien. Im folgenden stelle ich 
Standardanwendungen wie die Abfrage des Fehlerkanals vor 
und gehe auf den Umgang mit Direktzugriffsdateien ein. 

In den zugehörigen Programmbeispielen werden zwei Pro¬ 
grammiertechniken verwendet, die Einsteiger in die Maschi¬ 
nenprogrammierung eventuell vor Probleme stellen und die 
ich daher kurz erläutere. 

1. Sprung + RTS: Prinzipiell kann jede (!) Befehlsfolge 
JSR/RTS durch ein JMP ersetzt werden. 

2. Unbedingter bedingter Sprung: Ebenfalls nicht jedem 
Einsteiger bekannt - jedoch eine »gängige« Methode - ist es, 
einen »JMP«-Befehl durch einen bedingten Sprung zu erset¬ 
zen, wenn der Zustand zumindest eines Flags mit Sicherheit 
bekannt ist. Zum Beispiel kann in der Befehlsfolge 

L00P1 ... 

L00P2 ... 


Wenn die Register mit den jeweiligen Parametern geladen 
und SETPAR aufgerufen wird, kopiert diese Routine 
anschließend die übergebenen Werte in die Zeropageadres¬ 
sen $B8 (log. Filenummer), $BA (Geräteadresse) und $B9 
(Sekundäradresse). Diese Parameter können Sie auch direkt 
in die angegebenen Speicherstellen schreiben. 

Ebenso können Sie SETNAM umgehen, wenn Sie die 
Länge des Filenamens in $B7 und die Adresse in $BB/$BC 
ablegen. Nach diesen Vorbereitungen kann wie gewohnt die 
OPEN-Routine aufgerufen werden. 

Mit diesen Kenntnissen kann das Demoprogramm 1 pro- 


blemlos umgeschrieben werden: 


COOO 

LDA 

#$01 

LOG.FILENUMMER 

, 

C002 

STA 

$B8 

NACH $B8 

g 

C004 

LDA 

#$08 

GERAETEADRESSE 

. 

C006 

STA 

$BA 

NACH $BA 

. 

C008 

LDA 

#$02 

SEKUNDAERADRESSE 

. 

C00A 

STA 

$B9 

NACH $B9 

g 

cooc 

LDA 

#$08 

LAENGE DES FILENAMENS 

• 

C00E 

STA 

$B7 

NACH $B7 

. 

C010 

LDA 

#$3C 

ADRESSE DES FILENAMENS: 

. 

C012 

LDX 

#$03 

L0W-BYTE UND HIGH-BYTE 

. 

C014 

STA 

$BB 

NACH $BB 

. 

C016 

STX 

$BC 

BZW. $BC 

• 

0018 

JSR 

$FFC0 

OPEN AUFRUFEN 

. 

C01B 

LDX 

#$01 

LOG.FILENUMMER 

. 

C01D 

JSR 

$FFC9 

CK0UT AUFRUFEN 

. 

C020 

RTS 


ZURUECK NACH BASIC 


Wenn Sie die Routinen SETPAR und SETNAM aus irgend¬ 
welchen Gründen nicht verwenden wollen, besitzen Sie nun 
eine alternative Möglichkeit. Sollten Sie jedoch annehmen, 
Ihre Routinen auf diese Weise beschleunigen zu können, 
muß ich Sie leider enttäuschen. Sie ersparen sich zwar meh¬ 
rere Unterprogrammaufrufe, derzeitgewinn ist jedoch im Ver¬ 
gleich zur äußerst aufwendigen OPEN-Routine vernachläs¬ 
sigbar gering. 

Die Umgehung der »offiziellen« Routinen SETPAR/SET- 
NAM hat zudem einen Nachteil, den Sie spätestens dann ent¬ 


DEX 

BNE L00P2 
JMP L00P1 

der Befehl »JMP LOOP1« durch den um ein Byte kürzeren 
Befehl »BEQ LOOP1« ersetzt werden, da das Zero-Flag an 
dieser Stelle des Programms immer (!) gesetzt ist. 

Fehlerkanal abfragen 


Bei der Arbeit mit einem Diskettenlaufwerk ist es unumgäng¬ 
lich, nach verschiedenen Aktionen den Fehlerkanal abzufra¬ 
gen. In Basic ist diese Abfrage ein Kinderspiel und das zuge¬ 
hörige Programm kennen wohl die meisten von Ihnen: 

100 OPEN 1,8,15:REM FEHLERKANAL OEFFNEN 
110 INPUT#1,A$,B$,C$,D$:REM MELDUNG EINLESEN 
120 PRINT A$;B$;C$;D$:REM MELDUNG AUSGEBEN 
130 CL0SE 1:REM FEHLERKANAL SCHLIESSEN 

Mit den bisher behandelten Routinen müßte es möglich 
sein, diese Basic-Befehle durch ein Maschinenprogramm zu 
ersetzen. Zuerst wird eine logische Datei mit der Sekundär¬ 
adresse 15 geöffnet und die Eingabe auf diese Datei umge¬ 
leitet. Anschließend kann die Fehlermeldung Zeichen für Zei¬ 
chen mit BASIN eingelesen werden. 

Das folgende kleine Programm liest den Fehlerkanal, wenn 
es mit SYS 49152 aufgerufen wird und gibt die jeweilige Feh¬ 
lermeldung auf dem Bildschirm aus. Um das Programm zu 
verstehen, müssen Sie jedoch wissen, daß die Fehlermel¬ 
dung durch ein < RETURN >, also den Code $OD, abge¬ 
schlossen wird. 

. C000 LDA #$01 ;LOG.FILENUMMER 

. C002 LDX #$08 ;GERAETEADRESSE 

. C004 LDY #$0F ;SEKUNDAERADRESSE 15 

(=FEHLERKANAL) 

. C006 JSR $FFBA ;SETPAR AUFRUFEN 

. C009 JSR $FFC0 ;0PEN AUFRUFEN 

. C00C LDX #$01 ;LOG.FILENUMMER 

. C00E JSR $FFC6 jEINGABE AUF LOG.DATEI 
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. C011 

JSR $FFCF 

;ZEICHEN LESEN (BASIN) 

. C014 

JSR $FFD2 

;ZEICHEN AUSGEBEN (BSOUT) 

. 0017 

CMP #$0D 

;'RETURN'? 

. 0019 

BNE $0011 

;NEIN => WEITERLESEN 

. C01B 

JSR $FFCC 

;STANDARDGERAETE SETZEN 

. C01E 

LDA #$01 

;LOG.FILENUMMER 

. C020 

JMP $FFC3 

}LOG.DATEI SCHLIESSEN U. 
NACH BASIC 


Diese Routine ist recht einfach. Vor dem Aufruf von OPEN 
werden wie üblich mit SETPAR die Dateiparameter gesetzt. 
Der Aufruf von SETNAM entfällt, da wir nicht auf eine phy¬ 
sikalisch auf der Diskette vorhandene Datei zugreifen wollen 
(beachten Sie den Unterschied zwischen einer logischen 
Datei, die eher als »Kanal« bezeichnet werden kann und einer 
physikalisch vorhandenen Datei), ein Dateiname daher nicht 
benötigt wird. 

Nach dem öffnen der Datei und dem Umlenken der Ein¬ 
gabe mit CHKIN wird Zeichen für Zeichen der Fehlermeldung 
eingelesen und auf dem Bildschirm ausgegeben. 

Wenn das Zeichen $OD (< RETURN >) gelesen wird, 
wurde die komplette Fehlermeldung eingelesen. Die Stan¬ 
dardgeräte Bildschirm und Tastatur werden wieder gesetzt 
und die logische Datei geschlossen, bevor der Rücksprung 
nach Basic erfolgt. 

Mit einem kleinen Basic-Programm läßt sich die Routine 
erproben: 

100 OPEN 1,8,2,"GIBT ES NICHT,S,R" 

110 CLOSE 1 

120 SYS 49152:REM AUFRUF DER MASCHINENROUTINE 

Wenn Sie dieses Programm starten und das File »GIBT 
ES NICHT« auch tatsächlich nicht auf der eingelegten Dis¬ 
kette vorhanden ist, erhalten Sie auf dem Bildschirm die 
Fehlermeldung »62, FILE NOT FOUND,00,00«. 

Beim praktischen Einsatz der Routine innerhalb eines grö¬ 
ßeren Maschinenprogramms sollten Sie die Fehlermeldung 
nicht direkt auf dem Bildschirm ausgeben, sondern in einen 
Pufferspeicher schreiben. Wenn die Meldung komplett ein¬ 
gelesen wurde, kann die Fehlernummer überprüft werden 
(die beiden ersten Bytes). Ist sie Null, trat kein Fehler auf, 
ansonsten kann die gesamte Meldung ausgegeben und - je 
nach Fehlernummer - entsprechend reagiert werden. 


Prüfen, ob Gerät vorhanden 
(LISTEN und UNIISTEN) 


Die Routine zur Abfrage des Fehlerkanals nützt leider nichts, 
wenn es darum geht, zu erkennen, ob ein bestimmtes Peri¬ 
pheriegerät überhaupt vorhanden ist (das heißt sowohl ange¬ 
schlossen als auch eingeschaltet). 

Das Problem kann gelöst werden, wenn wir uns etwas tiefer 
in die »Eingeweide« des Betriebssystems wagen, an die Rou¬ 
tinen zur Behandlung des seriellen Busses, die von den 
»übergeordneten« Routinen zur Behandlung logischer Da¬ 
teien natürlich ebenfalls verwendet werden. 

Die Routine LISTEN ($FFB1) sendet an ein angegebenes 
Gerät einen sogenannten »LISTEN«-Befehl und teilt diesem 
damit mit, daß es sich zum Empfang von Daten bereithalten 
soll. Die Geräteadresse wird LISTEN im Akku übergeben. 

Die UNLISTEN-Routine($FFAE) bewirkt das Gegenteil. Sie 
beendet jede Datenübertragung und macht den seriellen Bus 
damit für folgende Datenübertragungen wieder frei. 

Um abzufragen, ob ein bestimmtes Gerät vorhanden ist, 
müssen wir folgendermaßen Vorgehen: 


1. Statusvariable (in $90) löschen 

1. Akku mit Geräteadresse laden 

2. LISTEN auf rufen 

3. UNLISTEN aufrufen 

4. Status prüfen 

Anstelle der Routine READST verwende ich zur Abwechs¬ 
lung einmal direkt die Statusvariable in $90. READST macht 
nichts anderes, als den Inhalt dieser Speicherstelle zu lesen 
und im Akku an das aufrufende Programm zu übergeben. Sie 
können daher den aktuellen Status auch jederzeit direkt 
durch Zugriff auf $90 überprüfen. 

Teil 1: Prüfen, ob Gerät vorhanden ist 


. 

cooo 

LDA #$00 

STATUSVARIABLE $90 

• 

C002 

STA $90 

MIT $00 INITIALISIEREN 

a 

C004 

LDA #$08 

GERAETEADRESSE DER FLOPPY 

. 

C006 

JSR $FFB1 

LISTEN SENDEN 

• 

C009 

JSR $FFAE 

UNLISTEN SENDEN 

• 

cooc 

LDA $90 

STATUSVARIABLE LESEN 

. 

C00E 

BEQ $C026 

GERAET VORHANDEN? JA=> 

Teil 2: Gerät ist nicht vorhanden: Fehlerbehandlung 

. 

C010 

LDX #$00 

ZAEHLER INITIALISIEREN 

• 

C012 

LDA $A1D0,X 

AUF 'DEVICE NOT PRESENT' 




ZUGREIFEN 

. 

C015 

PHA 

AKKU RETTEN 

. 

C016 

AND #$7F 

BIT 7 AUSBLENDEN 

• 

C018 

JSR $FFD2 

'DEVICE NOT PRESENT' 




AUSGEBEN 

. 

C01B 

INX 

ZAEHLER INKREMENTIEREN 

. 

C01C 

PLA 

AKKU HOLEN 

. 

C01D 

BPL $C012 

BIT 7 GESETZT? JA=> 

• 

C01F 

JSR $FFE4 

GET AUFRUFEN (ANALOG 
BASIC-GET) 

• 

C022 

BEQ $C01F 

TASTE GEDRUECKT? NEIN=> 

ur 

Cff*- 

BNE $C000 

IMMER SPRINGEN ! 

. 

C026 

RTS 

ZURUECK NACH BASIC 


Nach dem Aufruf mit SYS 49152 prüft Teil 1 dieser Routine 
wie beschrieben, ob das jeweilige Gerät - in diesem Fall die 
Floppystation - vorhanden ist. Wenn ja, erfolgt der Rück¬ 
sprung nach Basic. 

Teil 2 der Routine ist ein etwas primitives Beispiel einer Feh¬ 
lerbehandlungsroutine. Wenn die Floppystation nicht ange¬ 
schlossen oder nicht eingeschaltet ist, wird die Meldung 
»DEVICE NOT PRESENT« auf dem Bildschirm ausgegeben. 
Diese Fehlermeldung befindet sich im ROM ab Adresse 
$A1D0. Das letzte Zeichen jeder ROM-Fehlermeldung wird 
durch ein gesetztes siebtes Bit gekennzeichnet, daher die 
merkwürdige »Pull-« und »Pusherei« in der Routine und das 
Ausblenden des siebten Bits vor der Zeichenausgabe mit 
BSOUT. 

Wenn die Meldung ausgegeben wurde, wird die Routine 
GET ($FFE4) aufgerufen, die ein Zeichen von der Tastatur 
einliest und im Akku übergibt. Wenn keine Taste gedrückt 
wurde, übergibt GET eine Null und das Zero-Flag ist gesetzt. 
Bei gesetztem Zero-Flag wird wieder nach GET gesprungen, 
daher haben wir eine Eingabewarteschleife analog dem 
Basic-Befehl: 

100 GET A$:IF A$="" THEN 100:REM AUF TASTE WARTEN 

Wenn eine beliebige Taste gedrückt wurde, wird zum Pro¬ 
grammanfang verzweigt und erneut geprüft, ob die Floppy¬ 
station vorhanden ist. Sinn dieser Fehlerbehandlung ist es, 
nach Ausgabe der Meldung »DEVICE NOT PRESENT« dem 
Benutzer Gelegenheit zur Korrektur des Fehlers zu geben, 
bevor die Überprüfung nach Betätigung einer beliebigen 
Taste wiederholt wird. 

Diese Fehlerbehandlung hat selbstverständlich nur Bei¬ 
spielcharakter und ist ein wenig unschön, da sich das Pro¬ 
gramm in einer Endlosschleife befindet, wenn es der Benut¬ 
zer nicht schafft, den Fehler zu beheben. 
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Entscheidend ist der erste Programmteil, den Sie jederzeit 
in Ihren Programmen verwenden können. Wenn das Pro¬ 
gramm ein wenig flexibler gestaltet und der Akku vor dem Auf¬ 
ruf von LISTEN nicht immer mit dem Wert $08 geladen wird, 
kann das Vorhandensein jedes beliebigen Geräts mit dieser 
Routine überprüft werden. 

Diese Routine eignet sich hervorragend zum Einbau in 
Basic-Programme mit professionellem Anspruch, die nicht 
»abstürzen« dürfen, wenn der Benutzer vergaß, Laufwerk 
oder Drucker einzuschalten. 


Relative Dateien 


Die Verwaltung relativer Dateien ist weit schwieriger als der 
Umgang mit sequentiellen Dateien und bereits in Basic nicht 
gerade einfach zu programmieren. Wenn Sie jedoch profes¬ 
sionell mit Dateien arbeiten wollen, führt kein Weg an relativen 
Dateien vorbei, da diese Dateiart im Gegensatz zu den 
sequentiellen Dateien den unmittelbaren Zugriff auf 
bestimmte Datensätze gestattet. 

Im folgenden gehe ich davon aus, daß Ihnen der Umgang 
mit relativen Dateien in Basic vertraut ist (wenn nicht: In die¬ 
sem Sonderheft finden Sie einen Artikel, der ausführlich auf 
sequentielle und relative Dateien eingeht). 

Um den Umgang mit relativen Dateien zu demonstrieren, 
werde ich ein kleines Basic-Programm verwenden, das eine 
relative Datei mit 50 Records ä 50 Byte anlegt, Datensätze 
in diese Datei schreibt und wieder daraus liest. Anschließend 
werden die einzelnen Teile dieses Basic-Programms durch 
Maschinenroutinen ersetzt. 

Basic-Demo: Relative Dateien 

100 REM ##* REL-DATEI ANLEGEN *## 

110 OPEN 15,8,15:REM BEFEHLSKANAL 0EFFNEN 
120 R=50:GOSUB 330:GOSUB 4lO:PRINT#l,CHR$(255) : 

G0SUB 370:R=1 
130 : 

140 REM *** DATENSAETZE SCHREIBEN *** 

150 INPUT"DATEN (ENDE='E')";D$ 

160 IF D$="E" THEN 220 

170 G0SUB 330:GOSUB 410: PRINT #1,D$:G0SUB 370 
180 R=R+1 
190 GOTO 150 
200 : 

210 REM *** DATENSAETZE LESEN *** 

220 AD=R-1 
230 G0SUB 330 
240 : 

250 F0R 1=1 T0 AD 

260 : R=I:G0SUB 410:INPUT #1,D$:PRINT D$ 

270 NEXT 
280 : 

290 G0SUB 370:CL0SE 15 
300 END 
310 : 

320 REM * REL-DATEI 0EFFNEN * 

330 OPEN 1.8.2,"REL-DATEI.L,*+CHR$(50) 

340 RETURN 
350 : 

360 REM * REL-DATEI SCHLIESSEN ft 
370 CL0SE 1 
380 RETURN 
390 : 

400 REM x POSITIONIEREN * 

410 HB=INT(R/256):LB=R-HBft256 

420 PRINT#15,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1) 
430 RETURN 


Deklarationsteil 

Den ersten Teil des Source-Codes bildet die Deklaration 
der bereits bekannten Betriebssystemroutinen: 

; ftftftxftftftftftftftftftftftxftftftftftftft 
j* REL-DATEI VERWALTEN ft 
J* S.BAL0UI ft 

» ftftftftxftxftftftftftftftxftxftftftxftx 


.BA $C000 

JX VERWENDETE 
.EQ BS0UT = 
.EQ BASIN = 
.EQ OPEN 
.EQ CL0SE = 
.EQ CK0UT = 
•EQ CHKIN = 
.EQ CLRCH = 
.EQ SETFLS = 
.EQ SETNAM = 


;STARTADRESSE 
BETRIEBSSYSTEMROUTINEN x 


$FFD2 

$FFCF 

$FFC0 

$FFC3 

$FFC9 

$FFC6 

$FFCC 

$FFBA 

$FFBD 


ZEICHEN AUSGEBEN 
ZEICHEN LESEN 
LOG.DATEI OEFFNEN 
LOG.DATEI SCHLIESSEN 
AUSGABE AUF LOG.DATEI LEGEN 
EINGABE AUF LOG.DATEI 
KANAELE 'SAEUBERN' 
FILEPARAMETER SETZEN 
FILENAME SETZEN 


LEGEN 


Unterprogramme 

Das Programm selbst läßt sich am einfachsten verstehen, 
wenn Sie sich zuerst die verwendeten Unterprogramme 
anschauen: 

j* REL-DATEI OEFFNEN * 


RELAUF 

LDA 

#$01 

LOG.FILENUMMER 


LDX 

#$08 

GERAETEADRESSE 


LDY 

#$02 

SEKUNDAERADRESSE 


JSR 

SETPAR 

FILEPAR.SETZEN 


LDA 

#$0D 

FILENAME: 13 ZEICHEN 


LDX 

# <NAME 

ADRESSE NAME LOW 

n*— 

LDY 

# >NAME 

ADRESSE NAME HIGH 


JSR SETNAM 

FILENAME SETZEN 


JMP 

OPEN 

LOG.DATEI OEFFNEN 

J» REL-DATEI SCHLIESSEN 

ft 

RELZU 

LDA 

#$01 

LOG.FILENUMMER 


JMP 

CLOSE 

LOG.DATEI SCHLIESSEN 

Jft POSITIONIEREN * 

t 

POSIT 

LDX 

#$0F 

LOG.FILENUMMER 


JSR 

CKOUT 

AUSGABE AUF LOG.DATEI LEGEN 


LDX 

#$00 

X-REG.INITIALISIEREN 

P0SIT1 

LDA 

STRING,X 

POSITIONIERBEFEHL 


JSR 

BSOUT 

ZEICHENWEISE SENDEN 


INX 




CPX 

#$05 

FERTIG? 


BNE 

P0SIT1 

NEIN => 


INC 

STRING+2 

=>WEIST AUF NAECHSTEN 




RECORD 


JMP 

CLRCH 

KANAELE 'SAEUBERN'+ RTSI 

NAME 

.TX 

"REL-DATEI, I 

ff 


.BY 

$32 


STRING 

.BY 

"P", $02, $32, $00, $01 

DATEN 

.EN 


DATENPUFFER AM PROG.ENDE 


Dieses Programm finden Sie auch in Listing 2. Das öffnen 
der relativen Datei unterscheidet sich nicht im geringsten 
vom Öffnen einer sequentiellen Datei. Zuerst werden SET- 
PAR die Fileparameter übergeben, danach wird SETNAM die 
Länge des Filenamens und ein Zeiger auf die Adresse des 
Namens übergeben, anschließend wird die OPEN-Routine 
aufgerufen. 

Das Schließen der Datei wird ebenfalls wie gewohnt vorge¬ 
nommen, indem der Routine CLOSE die logische Filenum¬ 
mer im Akku übergeben wird. 
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Name 

relativ. 

ISS 



cOOO c0c4 

e048 

c9 

Od 

dO 

f5 

20 

91 

cO 

4c 

b5 

cOaO 

20 d2 ff e8 eO 05 

dO 

f5 

ac 











c050 

23 

cO 

ca 

8e 

bd 

cO 

20 

7c 

b3 

c0a8 

ee bd cO 4c cc ff 

52 

45 

cf 

cOOO 

a9 

Of 

a8 

a2 

08 

20 

ba 

ff 

lc 

c058 

cO 

20 

96 

cO 

a2 

01 

20 

c6 

26 

cObO 

4c 2d 44 4l 54 45 

49 

2c 

b9 

c008 

20 

cO 

ff 

20 

7c 

cO 

20 

96 

08 

c060 

ff 

20 

cf 

ff 

c9 

ff 

fO 

09 

d5 

c0b8 

4c 2c 32 50 02 32 

00 

01 

65 

cOlO 

cO 

a2 

01 

20 

c9 

ff 

a9 

ff 

a9 

c068 

20 

d2 

ff 

c9 

Od 

dO 

f2 

fO 

2f 

cOcO 

28 49 00 00 31 38 

2c 

30 

73 

c018 

20 

d2 

ff 

20 

91 

cO 

a9 

01 

6d 

c070 

e8 

20 

cc 

ff 

20 

91 

cO 

a9 

80 




c020 

8d 

bd 

cO 

a2 

00 

20 

cf 

ff 

50 

c078 

Of 

4 c 

c3 

ff 

a9 

01 

a 2 

08 

db 






c028 

9d 

cO 

cO 

e8 

c9 

Od 

dO 

f5 

a7 

c080 

aO 

02 

20 

ba 

ff 

a9 

Od 

a2 

47 






c030 

eO 

02 

fO 

le 

20 

7c 

cO 

20 

3a 

c088 

ae 

aO 

cO 

20 

bd 

ff 

4 c 

cO 

49 

Listing 2. Ein Beispiel für 




c038 

96 

cO 

a2 

01 

20 

c9 

ff 

a2 

8d 

c090 

ff 

a9 

01 

4c 

c3 

ff 

a2 

Of 

13 

die Arbeit mit relativen Dateien 


c040 

00 

bd 

cO 

cO 

20 

d2 

ff 

e8 

dl 

c098 

20 

c9 

ff 

a2 

00 

bd 

bb 

cO 

4f 

in Maschinensprache 





Interessanter ist die Positionierroutine. Zu Beginn des 
Hauptprogramms wird der Befehlskanal unter Angabe der 
logischen Filenummer geöffnet. Vor dem Positionieren auf 
einen bestimmten Record muß die Ausgabe auf diese logi¬ 
sche Datei umgelenkt werden. Anschließend wird der 
Befehlsstring an die Floppystation gesendet und mit CLRCH 
die Standardgeräte gesetzt. 

Anlegen der relativen Datei 


Das eigentliche Hauptprogramm muß zuerst die relative Datei 
anlegen: 

;* BEFEHLSKANAL OEFFNEN * 


LDA #$0F 
TAY 

LDX #$08 
JSR SETPAR 
JSR OPEN 


LOG.FILENUMMER 
SEKUNDAERADRESSE 
GERAETEADRESSE 
FILEPAR.SETZEN 
BEFEHLSKANAL OEFFNEN 


WRITE1 

WRITE2 


64€R onuno*» 


;# RECORD NR.50 FREIGEBEN * 

JSR RELAUF ;REL-DATEI OEFFNEN 

JSR POSIT ;AUF RECORD 'STRING+2' 

POSITIONIEREN 

LDX #$01 ; AUSGABE AUF 

JSR CKOUT ;REL-DATEI LEGEN 

LDA #$FF ;FREIGABEKENNZEICHEN $FF 

JSR BSOUT ;IN RECORD SCHREIBEN 

JSR RELZU ;REL-DATEI SCHLIESSEN= 

>ANLEGEN 

Der Befehlskanal wird unter Angabe der logischen File¬ 
nummer 15 geöffnet, das Unterprogramm RELAUF zum Öff¬ 
nen der relativen Datei aufgerufen und anschließend das 
Unterprogramm POSIT zum Positionieren auf Record Num¬ 
mer 50. 

Beachten Sie bitte, daß das Low-Byte der Recordnummer 
im Befehlsstring den Wert $32 enthält, exakt die gewünschte 
Recordnummer, in die nun das Freigabekennzeichen $FF 
geschrieben werden soll. Zuvor wird die Ausgabe auf die logi¬ 
sche Datei mit der Filenummer $01 gelegt (die Datei »REL- 
DATEI«), Wenn der Wert $FF ausgegeben wurde, wird die 
relative Datei mit der Routine RELZU wieder geschlossen. 
Die Datei wird nun von der Floppystation selbständig ange¬ 
legt werden. 

Datensätze in eine 
relative Datei schreiben 

Bevor der erste Datensatz in die Datei geschrieben werden 
kann, muß dafür gesorgt werden, daß POSIT auf den 
gewünschten Record 1 positioniert. Die Recordnummer ist 
das dritte Byte des Befehlsstrings (STRING+2). Dieses Byte 
erhält den Wert Eins. 

;* DATENSAETZE SCHREIBEN * 


LDA #$01 ;RECORDNUMMER MIT 1 

STA STRING+2 ;INITIALISIEREN 
Der erste Aufruf von POSIT führt daher zum Positionieren 
auf den ersten Record der relativen Datei. Da die Routine 
POSIT das Low-Byte der Recordnummer nach erfolgter Posi¬ 
tionierung inkrementiert, führt der zweite Aufruf von POSIT 
dazu, daß auf Record 2 positioniert wird, der dritte Datensatz 
wird demnach in Record 3 geschrieben werden und so 
weiter. 

Der erste Datensatz kann nun vom Benutzer eingegeben 
werden. Zum Einlesen verwendet das Programm die 
Betriebssystemroutine BASIN. Ebenso wie beim Basic- 
Befehl INPUT blinkt der Cursor und der Benutzer kann seine 
Eingabe beliebig editieren, bevor er sie mit < RETURN > 
abschließt. 

BENUTZEREINGABEN 
HOLEN UND 

IM PUFFER 'DATEN,X' 
SPEICHERN 
EINGABEENDE? 

NEIN => 

EINGABELAENGE 1 (+RETURN)? 
JA (=ENDE EINGABE) => 

Die eingelesenen Zeichen werden von der Routine in dem 
Puffer DATEN,X gespeichert, der sich am Programmende 
befindet. Die Routine liest Zeichen für Zeichen mit BASIN ein 
und speichert die Zeichen in diesem Puffer, bis der Code 
$0D (Carriage Return) gelesen wird. 

Der nun folgende Programmteil wird übersprungen, wenn 
das X-Register nach dem Einlesen den Wert Zwei besitzt, das 
heißt, wenn außer Carriage Return nur ein weiteres Zeichen 
eingelesen wurde. Der Sinn dieser Überprüfung: 

Nachdem ein vom Benutzer eingegebener String in der 
relativen Datei gespeichert wurde, soll der Benutzer ebenso 
wie in dem Basic-Demoprogramm beliebige weitere Daten¬ 
sätze eingeben können. Das Basic-Programm erkannte an 
der Eingabe »E«, daß die Eingabe beendet und die Sätze wie¬ 
der aus der Datei eingelesen werden sollten. Diese 
»Abbruchbedingung« wurde von mir im Maschinenprogramm 
leicht abgewandelt. Das Eingabeende wird an der String¬ 
länge eins erkannt. Wenn Sie keine weiteren Datensätze 
mehr eingeben wollen, können Sie daher ein beliebiges Zei¬ 
chen - unter anderem auch »E« (wie im Basic-Programm) ein¬ 
geben, um die Datensatzeingabe zu beenden. 


LDX #$00 
JSR BASIN 
STA DATEN,X 
INX 

CMP #$0D 
BNE WRITE2 
CPX #$02 
BEQ READ1 


WRITE3 


JSR RELAUF 
JSR POSIT 
LDX #$01 
JSR CKOUT 

LDX #$00 
LDA DATEN,X 
JSR BSOUT 
INX 

CMP #$0D 
BNE WRITE3 
JSR RELZU 


;REL-DATEI OEFFNEN 
;AUF 'STRING+2'POSITIONIEREN 
;AUSGABE AUF 
;REL-DATEI LEGEN 

;X INITIALISIEREN 
;DATEN ZEICHENWEISE AUS 
;PUFFER HOLEN UND AUF 
;REL-DATEI AUSGEBEN 
;DATENSATZENDE? 

;NEIN => 

;REL-DATEI SCHLIESSEN 
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JMP WRITE1 ;=> ANFANG EINGABE/ 
SCHREIBSCHLEIFE 

Die relative Datei wird nun geöffnet, mit POSIT auf Record 1 
positioniert (erinnern Sie sich: Vor der Eingabe des ersten 
Satzes wird STRING+2, das Low-Byte der Recordnummer, 
mit Eins initialisiert), und die Ausgabe wird auf die relative 
Datei gelegt. 

Die Daten werden aus dem Puffer geholt und mit BASIN auf 
die Datei ausgegeben, wobei das Stringende an dem Code 
$0D (Carriage Return) erkannt wird. Die Datei wird geschlos¬ 
sen und der Beginn der »Schreibroutine« angesprungen, die 
Datensatzeingabe des Benutzers. Wie bereits erwähnt, wird 
diese Schleife wiederholt, bis ein String in der Länge Eins 
(plus Carriage Return) eingegeben wurde. 

Wenn Sie sich wundern sollten, daß die Datei wegen jedem 
einzelnen Datensatz geöffnet und geschlossen wird: Es ist 
möglich, die relative Datei einmalig vor Beginn der Routine 
zum Schreiben von Sätzen zu öffnen und erst dann zu schlie¬ 
ßen, wenn der letzte Datensatz eingetragen wurde. Diese 
Vorgehensweise beinhaltet jedoch ein Sicherheitsrisiko. Das 
Betriebssystem sammelt Daten, die in eine logische Datei 
geschrieben werden, in einem Puffer. Der Inhalt dieses Puf¬ 
fers wird erst dann tatsächlich in den jeweiligen Record über¬ 
tragen, wenn der Puffer entweder voll ist oder aber wenn die 
Datei - wie im Beispiel nach jedem Satz - geschlossen wird. 
Ich empfehle Ihnen, bei Schreibzugriffen auf eine relative 
Datei diese nach jedem Satz zu schließen. Dadurch wird 
gewährleistet, daß zum Beispiel bei einem Stromausfall nie¬ 
mals mehrere im Puffer enthaltene Datensätze verloren¬ 
gehen können, sondern nur der gerade bearbeitete Satz. 


Datensätze aus einer 
relativen Datei lesen 


»€R ont-l! 


Bevor die Daten nun wieder eingelesen werden können, muß 
zuerst auf den ersten Record der Datei positioniert werden 
(Das X-Register enthält nach Verlassen der Leseroutine den 
Wert Zwei): 

j# DATENSAETZE LESEN * 

READ1 DEX ;X WAR 2, NUN 1 I 

STX STRING+2 ;RECORDNUMMER MIT 1 
INITIALISIEREN 

Die relative Datei wird geöffnet, auf Record 1 positioniert 
und die Eingabe auf die Datei gelegt: 

JSR RELAUF ;REL-DATEI OEFFNEN 

READ2 JSR POSIT ;AUF 'STRING+2'POSITIONIEREN 

LDX #$01 ;EINGABE AUF 

JSR CHKIN ;REL-DATEI LEGEN 

Die Datensätze können nun mit BASIN zeichenweise ein¬ 
gelesen und mit BSOUT auf dem Bildschirm ausgegeben 
werden, wobei der Code $0D das Ende eines Datensatzes 
markiert. Wurde ein Datensatz komplett eingelesen, erfolgt 
ein Sprung nach READ2. Anschließend wird auf den näch¬ 
sten Record positioniert und dieser eingelesen: 

READ3 JSR BASIN jEINGABE VON REL-DATEI 

CMP #$FF ;$FF(=ERSTER UNBELEGTER 

RECORD)? 

BEQ READ4 ;JA (=DATEIENDE) => 

JSR BSOUT ;ZEICHEN AUF SCREEN AUSGEBEN 

CMP #$0D ;CARR.RETURN (=SATZENDE)? 

BNE READ3 ;NEIN => 

BEQ READ2 ;IMMER SPRINGEN ! 

$FF wird eingelesen, wenn auf den ersten nicht belegten 
Record positioniert wurde, das heißt, wenn alle belegten 
Records bereits gelesen und ausgegeben wurden (Erinnern 
Sie sich: Mit $FF werden alle Records beim Anlegen der 
Datei automatisch von der Floppystation als nicht belegt 
gekennzeichnet). In diesem Fall werden mit CLRCH die Stan¬ 


dardgeräte gesetzt und die geöffneten Dateien mit CLOSE 
geschlossen, bevor die Rückkehr nach Basic erfolgt: 

READ4 JSR CLRCH ;KANAELE 'SAEUBERN', 

STANDARDGERAETE 

JSR RELZU ;REL-DATEI SCHLIESSEN 

LDA #$0F ;BEFEHLSKANAL SCHLIESSEN 

JMP CLOSE ;UND NACH BASIC (RTS !) 

Dieses Demoprogramm ist in mehrfacher Hinsicht sehr ein¬ 
fach gestaltet, da sowohl beim Schreiben als auch beim 
Lesen der Reihe nach auf unmittelbar folgende Records posi¬ 
tioniert wird (Record 1, Record 2, Record 3 etc.). Die Positio¬ 
nierung wird sehr einfach, denn bei jedem Aufruf von POSIT 
kann der Zähler für die Recordnummer einfach inkrementiert 
werden. In der Praxis kommt dieser Idealfall leider nur selten 
vor. 

Zum zweiten wird im Beispiel nur das Low-Byte der Record¬ 
nummer verwendet (STRING+2), während das High-Byte 
(STRING+3) immer den Wert Null enthält. Bei Dateien mit 
mehr als 255 Records müssen Sie selbstverständlich auch 
das High-Byte entsprechend setzen. 

In der Praxis werden Sie auf eine relative Datei meist über 
eine im Speicher gehaltene Indexdatei zugreifen, die die 
Recordnummer und beispielsweise den Namen des zugehö¬ 
rigen Datensatzes enthält. Der Benutzer sucht Herrn »Mül¬ 
ler«, Ihr Programm durchsucht die Indexdatei nach »Müller« 
und findet zum Beispiel die zugehörige Recordnummer 
$20/$03 (Low-Byte/High-Byte). Auf diesen Record könnten 
ie folgendermaßen positionieren: 

;DURCHSUCHEN DER INDEXDATEI 
;NACH AUFFINDEN VON 'MUELLER' 

;WEIST DER ZEIGER P0INTR(+l) AUF 
;DIE ZUGEHOERIGE RECORDNUMMER 
;LOW-UND HIGH-BYTE DER 
;RECORDNUMMER WERDEN NACH 
;STRING+2 UND STRING+2 UEBERTRAGEN 
;ANSCHLIESSEND WIRD DIE 
;POSITIONIERROUTINE AUFGERUFEN 


LDA (POINTR),Y 
( §2^STRING+2 

LDA (POINTR),Y 
STA STRING+3 
JSR POSIT 


Auf diese Weise dürfte die Positionierung in einer vollstän¬ 
digen Dateiverwaltung ablaufen. Zweck des Demopro¬ 
gramms ist nicht die Praxisnähe, sondern allein die Darstel¬ 
lung der relevanten Prinzipien. 

Verwenden Sie zur Eingabe des Programms das MSE- 
Listing 2. Zum Testen rufen Sie das Programm mit SYS 49152 
auf. Geben Sie mehrere Datensätze ein. Beenden Sie die Ein¬ 
gabe durch die Eingabe eines Satzes, der aus einem einzigen 
Zeichen besteht (»E« oder »X« etc.). Die Sätze werden nun 
der Reihe nach aus der relativen Datei eingelesen. 

Achten Sie bei der Behandlung relativer Dateien generell 
auf folgende Punkte: 

1. Beim Schreiben in eine relative Datei sind sowohl die 
Datei selbst als auch der Befehlskanal geöffnet, und Daten 
müssen abwechselnd über den Datei- und den Befehlskanal 
gesendet werden. Die Ausgabe muß daher ständig mit 
CKOUT umgelenkt werden. Vergessen Sie in solchen Fällen 
bitte keinesfalls, vor dem Aufruf von CKOUT die Übertra¬ 
gungskanäle durch den Aufruf von CLRCH zu »säubern«. 

2. Wenn Sie an einer Routine arbeiten und allmählich ver¬ 
zweifeln, weil die Aus- beziehungsweise Eingaben sich prin¬ 
zipiell auf die falsche Datei beziehen, liegt die Ursache - 
zumindest bei meinen eigenen Programmen - meist in einem 
noch gültigen, vom Programmierer jedoch inzwischen ver¬ 
gessenen früheren Aufruf von CKOUT oder CHKIN. 

3. Wenn Datensätze wie im Demoprogramm in unmittelbar 
aufeinanderfolgende Records geschrieben werden, müssen 
Sie nur beim ersten Datensatz auf den Anfangsrecord posi¬ 
tionieren. Die Floppystation positioniert beim Schreiben von 
Daten in Record n selbständig auf den jeweils nächsten 
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Record +1. Im Demoprogramm hätte daher beim Schreiben 
der Datensätze auf das Inkrementieren der Recordnummer 
verzichtet werden können. 

Beachten Sie bitte, daß diese »automatische Inkrementie¬ 
rung« nur beim Schreiben, nicht jedoch beim Lesen aus einer 
relativen Datei vorgenommen wird! 

Die Diiektzugriffsbefehle 
B-P, Ul und U2 


Der Benutzer kann nun eine neue ID eingeben, die dem 
String ID$ zugewiesen wird. Der Pufferpointer wird wieder 
auf das erste Byte der ID gesetzt (beim Einlesen aus dem Puf¬ 
fer wurde er verändert). Die beiden ersten Zeichen der neu 
eingegebenen ID werden über den Datenkanal gesendet und 
die alte ID damit überschrieben. Die Änderung wird erst wirk¬ 
sam, wenn der Inhalt des Puffers mit »U2« auf die Diskette 
zurückgeschrieben wird. 

Im Floppy-RAM befindet sich die unveränderte Directory. 
Wenn Sie sich die Directory anschauen, sehen Sie daher 
unverändert die alte ID. Zum Abschluß wird deshalb der Initia¬ 


Relative Dateien sind zwar recht nützlich, jedoch nicht unbe¬ 
dingt die schnellste Art und Weise zur Verwaltung einer 
Direktzugriffsdatei. Die Ursache liegt in der nötigen zweimali¬ 
gen - und sehr gemächlichen - Kopfpositionierung der Flop- 
pystation. Zuerst wird auf die sogenannten »Side-Sektoren« 
positioniert, die eine Tabelle aller Records mit ihrer jeweiligen 
Position (Spur und Sektor) enthalten. Erst anschließend wird 
auf den gewünschten Record zugegriffen. 

Erheblich schneller ist die Verwaltung von Direktzugriffsda¬ 
teien mit den »Direktzugriffsbefehlen«, da hier durch Angabe 
von Spur und Sektor sofort auf einen Datensatz zugegriffen 
wird. 

Nur mit diesen Befehlen ist es möglich, auf die Directory 
zuzugreifen, um den Diskettennamen oder die ID zu verän¬ 
dern, gelöschte Files wiederherzustellen und andere Mani¬ 
pulationen vorzunehmen. 

Aus Platzgründen muß ich im folgenden wieder davon aus¬ 
gehen, daß Ihnen diese Befehle bereits in Basic vertraut sind 
und werde mich auf knappe Erläuterungen beschränken. Die 
Verbindung zwischen Basic und Maschinensprache stelle 
ich anhand eines kleinen Demoprogramms her, das die Ände¬ 
rung der Disketten-ID erlaubt. 

ID ändern (Basic) 

100 OPEN 15,8,15:REM BEFEHLSKANAL OEFFNEN 
110 OPEN 2,8,2, "#":REM DATENKANAL OEFFNEN 
120 PRINT# 15,"Ul:"2;0;18;0:REM SPUR 18, SEKTOR 0 
IN PUFFER 

130 PRINT#15,"B-P: "2; 162:REM PUFFER-POINTER AUF 
BYTE NR.162 
140 PRINT "ALTE ID: 

150 GET#2,A$:PRINT A$:GET#2,A$:PRINT A$:REM 
ID LESEN/AUSGEBEN 
160 : 

170 INPUT"NEUE ID";ID$:REM BENUTZEREINGABE DER 
NEUEN ID 

180 PRINT #15,"B-P:"2;162:REM PUFFER-POINTER WIEDER 
AUF BYTE 162 

190 PRINT#2,LEFT$(ID$,2);:REM ID-BYTES 
UEBERSCHREIBEN 

200 PRINT#15,"U2:"2;0;18;0:REM PUFFERINHALT 
ZURUECKSCHREIBEN 

210 PRINT#15,"I":REM FLOPPY INITIALISIEREN 
220 CL0SE 2:CL0SE 15:REM KANAELE SCHLIESSEN 

Beim Öffnen des Datenkanals wird als Dateiname »#« 
angegeben. Der Grund: Durch dieses Zeichen reserviert die 
Floppystation intern einen freien Pufferspeicher für die 
Datenübertragung. Sie könnte durch »#0«, »#1«, »#2« 
oder »#3« auch gezwungen werden, einen bestimmten 
Puffer zu reservieren, was jedoch nicht empfehlenswert ist. 

Die ID befindet sich in Sektor 0 von Spur 18. Dieser Block 
wird mit »Ul« von der Diskette gelesen und befindet sich 
zunächst im reservierten Puffer der Floppystation. Der 
Pufferpointer wird mit »B-P« auf das erste Byte der ID gesetzt 
(Byte 162), das erste und zweite Byte der ID werden mit 
GET # aus dem Puffer gelesen und auf dem Bildschirm aus¬ 
gegeben. 


lisierungsbefehl »I« an die Floppystation gesendet, der das 
Neueinlesen der Directory von der eingelegten Diskette be¬ 
wirkt. Erst jetzt »weiß« die Floppystation die geänderte ID. 

Übrigens: Dieses Programm verwendet für die ID nur zwei 
Zeichen, ebenso wie es im Floppy-Handbuch beschrieben 
ist. Tatsächlich kann die ID bis zu fünf Zeichen lang sein (pro¬ 
bieren Sie’s aus und ändern Sie das Basic-Programm in Zeile 
190 entsprechend). 

ID ändern (Maschinensprache) 


ln Maschinensprache ist diese Aktion leider ungleich auf¬ 
wendiger und verlangt nach einem recht langen Programm 
(zumindest bei mir, vielleicht können Sie es besser). Da ein 
Disassemblerlisting dieses Programms zu unübersichtlich 
wäre, wird die Darstellung als Assembler-Sourcecode ver¬ 
wendet. Listing 3 zeigt den fertigen Objectcode. 


Name : 

id.ass 




cOOO cOel 


cOOO : 

20 

e7 

ff 

a9 

Of 

a8 

a2 

08 

la 


cOC" . 

20 

ba 

ff 

20 

cO 

ff 

a9 

02 

40 


cOlO : 

a8 

a2 

08 

20 

ba 

ff 

a9 

01 

64 


c018 : 

a2 

a4 

aO 

cO 

20 

bd 

ff 

20 

7d 


c020 : 

cO 

ff 

a9 

c9 

aO 

cO 

20 

86 

21 


c028 : 

cO 

a9 

af 

aO 

cO 

20 

97 

cO 

aa 


c030 : 

a9 

a5 

aO 

cO 

20 

97 

cO 

a 2 

f3 


c038 : 

02 

20 

c6 

ff 

20 

cf 

ff 

20 

bd 


c040 : 

d2 

ff 

20 

cf 

ff 

20 

d2 

ff 

60 


c048 : 

a9 

Od 

20 

d2 

ff 

a9 

a5 

aO 

ff 


c050 : 

cO 

20 

97 

cO 

a9 

d3 

aO 

cO 

5b 


c058 : 

20 

86 

cO 

a2 

02 

20 

c9 

ff 

88 


c060 : 

20 

cf 

ff 

20 

d2 

ff 

20 

cf 

b9 


c068 : 

ff 

c9 

Od 

dO 

02 

a9 

aO 

20 

d9 


c070 : 

d2 

ff 

a9 

bd 

aO 

cO 

20 

97 

24 


c078 : 

cO 

a2 

Of 

20 

c9 

ff 

a9 

49 

27 


c080 : 

20 

d2 

ff 

4c 

e7 

ff 

85 

fO 

09 


c088 : 

84 

fl 

aO 

00 

bl 

fO 

fO 

06 

9f 


c090 : 

20 

d2 

ff 

c8 

dO 

f6 

60 

48 

09 


c098 : 

a2 

Of 

20 

c9 

ff 

68 

20 

86 

d4 


cOaO : 

cO 

4c 

cc 

ff 

23 

42 

2d 

50 

53 


c0a8 : 

3a 

32 

2c 

31 

36 

32 

00 

55 

CC 


cObO : 

31 

3a 

32 

2c 

30 

2c 

31 

38 

aa 


c0b8 : 

2c 

30 

00 

00 

ff 

55 

32 

3a 

e4 


cOcO : 

32 

2c 

30 

2c 

31 

38 

2c 

30 

80 

Listing 3. 

V . 

c0c8 : 

00 

4l 

4c 

54 

45 

20 

49 

44 

09 

cOdO : 

20 

3a 

00 

4e 

45 

55 

45 

20 

2c 

Ändern der 

c0d8 : 

49 

44 

20 

3f 

00 

00 

cO 

00 

36 

DIsketten-ID 

cOeO : 

cO 

40 

00 

00 

00 

fb 

00 

00 

aO 



i******************* 
i* DISK-ID AENDERN * 

;# S.BAL0UI # 

J******************* 

’.BA $C000 ; PROGRAMMSTART 

;* BETRIEBSSYSTEMROUTINEN/ZEROPAGEADRESSEN * 
.EQP0INTR = $F0 ;POINTER F.INDIR.INDIZ. 

ADRESSIERG. 
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.EQ SETPAR 

= $FFBA 

.EQ SETNAM 

= $FFBD 

.EQ OPEN 

= $FFC0 

.EQ CLALL 

= $FFE7 

.EQ CLRCH 

= $FFCC 

.EQ CHKIN 

= $FFC6 

.EQ CKOUT 

= $FFC9 

.EQ BSOUT 

= $FFD2 

.EQ BASIN 

= $FFCF 


;FILEPAR.SETZEN 
;FILENAME SETZEN 
;LOG.DATEI OEFFNEN 
jSCHLIESST ALLE (!) DATEIEN 
;KANAELE 'SAUEBERN'/ 
STANDARDDEVICES 
jEINGABE AUF LOG.DATEI LEGEN 
;AUSGABE AUF LOG.DATEI LEGEN 
;ZEICHEN AUSGEBEN 
;ZEICHEN EINLESEN 


JSR CLALL 


;OFFENE DATEIEN SCHLIESSEN 

Die verwendeten Betriebssystemroutinen dürften Ihnen 
nun bekannt sein. Neu hinzu kommt in diesem Deklarations¬ 
teil die Routine CLALL, die ebenso wie CLRCH die Kanäle 
bereinigt und alle (!) offenen Dateien schließt. CLALL sollte 
zur Vermeidung eines »FILE OPEN ERROR« am Beginn jedes 
Programms aufgerufen werden. 

;* BEFEHLS- UND DATENKANAL OEFFNEN * 


LDA # $0F 
TAY 

LDX # $08 
JSR SETPAR 
JSR OPEN 

LDA #$02 
TAY 

LDX #$08 
JSR SETPAR 
LDA #$01 
LDX # <NAME 
LDY # >NAME 
JSR SETNAM 
JSR OPEN 


BEFEHLSKANAL OEFFNEN 
(LF=15, SA=15, GA=8) 
KEIN NAME ERFORDERLICH 


DATENKANAL OEFFNEN 
(LF=2, SA=2, GA=8) 

ALS DATEINAME WIRD 
'#'VERWENDET (AM 
PROGRAMMENDE ABGELEGT) 

546R 


JSR BSOUT ;ID AUS DEM PUFFER 

JSR BASIN jEINLESEN UND AUF 

JSR BSOUT jDEM BILDSCHIRM AUSGEBEN 

LDA # $0D jZUM ABSCHLUSS ZEILEN¬ 

VORSCHUB 

JSR BSOUT ;AUF SCREEN AUSGEBEN 
Nachdem die Eingabe auf den Datenkanal umgeleitet 
wurde, wird die ID eingelesen und auf dem Bildschirm ausge¬ 
geben. Daß zum Abschluß ein Zeilenvorschub auf dem Bild¬ 
schirm ausgegeben wird, hat nur den Zweck, die folgende 
Ausgabe von »NEUE ID ?« in der nächsten Bildschirmzeile 
beginnen zu lassen. 

;* NEUE ID EINLESEN UND DIRECTORY AENDERN * 

LDA # <BP ;"B-P "-BEFEHLSSTRING 

LDY #>BP ; AUF BEFEHLSKANAL 

JSR BEFEHL jAUSGEBEN 

LDA # <NEU ;STRING 'NEUE ID ?' 

LDY #> NEU ;AUF SCREEN AUSGEBEN 

JSR STROUT 

Bevor auf die Eingabe der neuen ID durch den Benutzer 
gewartet wird, wird der Pufferpointer wieder auf das Byte 
162 gesetzt, indem der entsprechende Befehlsstring ausge¬ 
geben wird. Anschließend wird die Aufforderung »NEUE ID ?« 
auf dem Bildschirm ausgegeben. 


LDX #$02 
JSR CKOUT 
JSR BASIN 
JSR BSOUT 
JSR BASIN 
CMP #$0D 
BNE IDWRIT1 


AUSGABE AUF 
DATENKANAL SETZEN 
2 ZEICHEN VON DER 
TASTATUR EINLESEN 
UND AUF BEFEHLSKANAL 
AUSGEBEN 

ALS 2.ZEICHEN 160 
(INVERSES SPACE) SENDEN, 
WENN NUR 1 ZEICHEN EINGEG. 


Das Öffnen von Befehls- und Datenkanal verläuft äquiva¬ 
lent zur Behandlung relativer Dateien. Der Filename wurde 
ebenso wie verschiedene andere Strings am Programmende 
abgelegt. 

;* AKTUELLE ID LESEN UND AUSGEBEN * 

;DEM UNTERPROG. 'STROUT' WIRD EIN 
;POINTER AUF 'ID ALT:' UEBERGEBEN 


LDA 

LDY 


# < ALT 
#> ALT 
JSR STROUT 
LDA # < LIES 


LDY # > LIES 

JSR BEFEHL 
LDA # <BP 

LDY # >BP 
JSR BEFEHL 


;AUSGABE VON 'ID ALT:'AUF SCREEN 
;POINTER AUF DEN BLOCK-READ- 
STRING 

;("Ul:2,0,18,0") UND STRING¬ 
AUSGABE 

;AUF BEFEHLSKANAL 
;POINTER AUF PUFFER-POINTER¬ 
BEFEHL 

;("B-P:2,l62") UND AUSGABE AUF 
;BEFEHLSKANAL 


LDA #160 
oni irifigKTl JSR BSOUT 

Die Ausgabe wird nun auf den Datenkanal umgeleitet und 
zwei Zeichen - die neue ID -, die von der Tastatur eingelesen 
werden, auf den Datenkanal ausgegeben. Wenn der Benut¬ 
zer nur ein Zeichen als ID eingab und danach die Eingabe mit 
< RETURN > beendete, liest BASIN als zweites Zeichen den 
Code $OD (=Carriage Return). 

In diesem Fall wird ein inverses Leerzeichen (Code 160) als 
zweites Zeichen der ID verwendet und auf den Datenkanal 
ausgegeben. Warum ausgerechnet ein inverses Space be¬ 
nutzt wird, erkennen Sie sofort, wenn Sie sich ein beliebiges 
Directory anschauen: Die »Kopfleiste« des Directory ist mit 
inversen Spaces aufgefüllt. 

LDA # <WRITE ;'U2'-BEFEHLSSTRING UEBER 
LDY # > WRITE ;BEFEHLSKANAL AUSGEBEN UND 


Am Programmende befinden sich die Unterprogramme 
STROUT und BEFEHL. STROUT gibt einen String aus, auf 
den in Akku und Y-Register ein Pointer übergeben wird. Vor 
dem Einlesen der ID wird mit STROUT der String »ID ALT :« 
auf dem Bildschirm ausgegeben. 

Zum Einlesen der ID muß zuerst der »U1«-Befehl und 
anschließend der »B-P«-Befehl über den Befehlskanal 
gesendet werden. Das Unterprogramm BEFEHL leitet die 
Ausgabe auf die logische Datei $OF, den Befehlskanal, um, 
gibt den String aus, auf den mit Akku und Y-Register ein Poin¬ 
ter übergeben wurde, und ruft zuletzt CLRCH auf, um die 
Kanäle zu »bereinigen« und die Standardein-/ausgabegeräte 
zu setzen. 

LDX #$02 ; EINGABE AUF 

JSR CHKIN ;DATENKANAL LEGEN 

JSR BASIN jDIE BEIDEN ZEICHEN DER 


JSR BEFEHL ;DAMIT PUFFERINHALT ZURUECK- 
LDX #$0F ; SCHREIBEN 

JSR CKOUT ;INITIALISIERUNGSBEFEHL 

LDA #"I" ; AN FLOPPY SENDEN, UM 

DIRECTORY 

JSR BSOUT jZU AKTUALISIEREN 

JMP CLALL ;DATEIEN SCHLIESSEN + BASIC! 

Die geänderte ID befindet sich zwar nun im Puffer, in dem 
Sektor 0 von Spur 18 eingelesen wurde. Der neue Pufferin¬ 
halt muß jedoch mit dem »U2«-Befehl auf die Diskette zurück¬ 
geschrieben werden, um die Änderung wirksam werden zu 
lassen. 

Da sich im Floppy-RAM jedoch immer noch das alte Direc¬ 
tory befindet, wird der Initialisierungsbefehl »I« gesendet. Bei 
der Initialisierung liest die Floppystation das (geänderte!) 
Directory ein. Wenn Sie nun das Directory laden, wird die 
geänderte ID ausgegeben. 

Den Abschluß der Routine bildet das Bereinigen der Kanäle 
und Schließen aller offenen Dateien durch die Betriebssy¬ 
stemroutine CLALL. 


'ifcfcii* 
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Zum Verständnis dieses Programms fehlt noch die Darstel¬ 
lung der verwendeten Unterprogramme und Strings: 

J# VERWENDETE STRINGS * 

;SCHEINARGUMENT 
;PUFFER-POINTER SETZEN 

;BLOCK LESEN 

;BLOCK SCHREIBEN 


NAME 

.BY 

"# " 

BP 

.TX 

"B-P:2,162" 


.BY 

$00 

LIES 

.TX 

"Ul:2,0,18,0 


.BY 

$00 

WRITE 

.TX 

"U2:2,0,18,0 


.BY 

$00 

ALT 

.TX 

"ALTE ID 


.BY 

$00 

NEU 

.TX 

"NEUE ID ?" 


.BY 

$00 

!en 




;PROGRAMMENDE 

Alle mit STROUT beziehungsweise BEFEHL auszugeben¬ 
den Strings schließen mit dem Byte $00 als »Endemarke« ab. 
Die in den Befehlen »B-P«, »Ul« und »U2« anzugebenden 
Parameter müssen (!) bei Verwendung eines Assemblers als 
String abgelegt (bei Hypra-Ass mit dem Befehl ».TX«) und mit 
Kommata voneinander getrennt werden. 

J* STRINGAUSGABE 

;IN AKKU UND Y UEBERGEBEN 
;ZEIGER NACH P0INTR(+1) 

;Y INITIALISIEREN 
;STRINGZEICHEN HOLEN 
;ENDEMARKE $00 ERREICHT? 
JA=> 

;SONST AUSGEBEN 
;ZEIGER AUF NEAECHSTES 
ZEICHEN 

; IMMER SPRUNG ! s*en 
;ENDE DER STRINGAUSGABE 


STROUT 


STR1 


* 

STA POINTR 
STY POINTR+1 
LDY #$00 
LDA (POINTR),Y 
BEQ STR2 

JSR BSOUT 
INY 


nummer, Laufwerk (0), Spur, Sektor, Byte) müssen als String 
übergeben und durch Kommata voneinander getrennt wer¬ 
den. 

2. Wenn Sie einzelne Bytes eines Sektors verändern wol¬ 
len (zum Beispiel die für den Diskettennamen verwendeten 
Bytes), müssen Sie diesen Block unbedingt zuvor einie¬ 
sen, da alle anderen Daten des Blocks unverändert auf die 
Diskette zurückgeschrieben werden sollen. Wenn Sie 
Directory-Manipulationen vornehmen, ohne diese Bedin¬ 
gung zu beachten, können Sie problemlos das Directory rui¬ 
nieren und dadurch jeden weiteren Zugriff auf die Diskette - 
fast - unmöglich machen. 

3. Denken Sie bitte daran, daß es beim Schreiben von 
Daten nicht genügt, den Pufferpointer auf die gewünschte 
Position zu setzen und die Daten über den Datenkanal an die 
Floppy zu senden. Ohne Abschluß der Schreibzugfiffe mit 
dem Befehl »U2« befinden sich die Daten zwar im Floppy- 
Puffer, der Pufferinhalt wurde jedoch noch nicht auf die Dis¬ 
kette selbst geschrieben. 

Dieses Problem kennen Sie bestimmt von der Arbeit mit 
sequentiellen Dateien in Basic, wo Sie ebenfalls Daten verlie¬ 
ren, wenn die Datei nach Schreibzugriffen nicht ordnungsge¬ 
mäß geschlossen wird. 


STR2 


BNE 

RTS 


STR1 


;* BEFEHLSAUSGABE * 

BEFEHL PHA ;HIGH-BYTE DES STRINGZEIGERS 

RETTEN 

LDX #$0F jAUSGABE AUF BEFEHLSKANAL 

LEGEN 

JSR CKOUT ;( 1 CKOUT' AENDERT 

AKKUINHALTI) 

PLA ;HIGH-BYTE DES STRINGZEIGERS 

HOLEN 

JSR STROUT ;STRINGAUSGABE AUFRUFEN 

JMP CLRCH ;STANDARDDEVICES + RTS ! 

Die Routine STROUT, die einen beliebigen String auf dem 
aktuellen Ausgabegerät ausgibt, sollte Ihnen keine Ver¬ 
ständnisschwierigkeiten bereiten. Um die Routine BEFEHL 
zu verstehen, müssen Sie wissen, daß CKOUT den Inhalt des 
Akkus verändert, in unserem Fall das High-Byte des Zeigers 
auf den auszugebenden String. Bevor die Ausgabe auf den 
Befehlskanal gelegt wird, wird daher der Akkuinhalt auf den 
Stapel gerettet und nach Rückkehr von CKOUT wieder 
geholt. 

Durch das Umleiten der Ausgabe gibt STROUT den betref¬ 
fenden String auf dem Befehlskanal aus. Mit CLRCH werden 
zum Abschluß wieder die Standardgeräte für die Ein-/Aus- 
galje gesetzt. 

Nach der Eingabe des MSE-Listing 5 kann die Routine mit 
SYS 49152 aufgerufen werden. Sie können nun beliebige 
Qisketten-ID's jederzeit ohne Neuformatierung und entspre¬ 
chenden Datenverlust ändern. 

Beachten Sie die folgenden Punkte, wenn Sie Programme 
erstellen, die Direktzugriffsbefehle verwenden: 

1. Die Direktzugriffsbefehle werden immer als String 
über den Befehlskanal (Sekundäradresse 15) an die Floppy- 
station gesendet. Auch die zugehörigen Parameter (log. File¬ 


NAME 

FUNKTION 

PARAMETER HIN 

PARAMETER ZURUECK 

ADRESSE 

SETFLS 

HLEPARAMETER SETZEN 

AKKU=LF; X=GA; Y=SA 


SFFBA 

SETNAM 

DATEINAME UBERGEBEN 

AKKU=UNGE; 

X/Y=P0INT. AUF NAME 


SFFBD 

OPEN 

10G. DATEI ÖFFNEN 

VORBEREITUNG: SETFLS, 
SETNAM 

FEHLER: SEC, 

FEHLER NR.IM AKKU 

SFFCO 

CUDSE 

L0a DATEI SCHUESSEN 

AKKU=L0G. FILENUMMER 

FEHLER: SEC, 
FEHLERNRIM AKKU 

5FFC3 

m 

CHKIN 

SCHUESST ALLE FILES 



SFFE7 

EINGABE VON LOG. DATEI 

X=10G. FILENUMMER 

FEHLER: SEC, 

FEHLERNR. IM AKKU 

SFFC6 

CKOUT 

AUSGABE AUF LOG. DATEI 

X=L0G. FILENUMMER 

FEHLER: SEC, 

FEHLERNR. IM AKKU 

SFFC9 

READST 

I/O-STATUS ABFRAGEN 


STATUS IM AKKU 
(BIT 6=DATEIENDE) 

SFFB7 

BASIN 

ZEICHEN EINLESEN 


ZEICHEN IM AKKU 

SFFCF 

BSOUT 

ZEICHEN AUSGEBEN 

ZEICHEN IM AKKU 


JFFD2 

LISTEN 

'OSTEN'SENDEN 

AKKU=GERÄTEADRESSE 


SFFB1 

UNÜSTEN 

UNUSTEN' SENDEN 



SFFAE 

CHKK0M 

KOMMA LESEN 



SAEFD 

GETBYT 

EIN-BYTE-WERT LESEN 


X-ÜBERGEBENES BYTE 

JB79E 

STRPOS 

VARIABLENADRESSE HOLEN 


$47/$48=P0INT. AUF 
LÄNGENDESCR. 

SB08B 

STRRES 

STRINGPUTZ RESERVIEREN 

AKKU=STR1NGLÄNGE 


JB4F4 


Tabelle. Übersicht über alle Im Artikel erwähnten 
Betriebssystem- und Interpreterroutinen 

Mein Wissen über die Dateiverwaltung in Maschinenspra¬ 
che ist nun erschöpft, und ich kann Ihnen nur viel Erfolg bei 
der Programmierung wünschen. Wie Sie sehen, gibt es kei¬ 
nerlei prinzipiellen Unterschiede zur Dateiverwaltung in 
Basic. Auch Direktzugriffsdateien können problemlos verwal¬ 
tetwerden, wenn man weiß, wie Befehlsstrings an die Floppy- 
station übermittelt werden können. 

Den Schluß dieses Artikels bildet eine Tabelle, in der alle 
verwendeten Betriebssystemroutinen aufgelistet sind. Wenn 
Sie einzelne der vorgestellten Demoprogramme weiterver¬ 
wenden wollen, halten Sie sich bitte zur Eingabe an die MSE- 
Listings. 

Den Assembler »Hypra-Ass« finden Sie im Sonderheft 
8/85. Wesentlich leistungsfähiger ist jedoch der »Giga- 
Ass«, der im Sonderheft 21 veröffentlicht wurde. 

(Said Baloui/rs) 
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DATEI VERWALTUNG-LISTING 



Dateiverwaltung 

für hödiste 
Ansprüche 


Sagen Sie Ihren alten Zettelkästen und Adreß¬ 
büchern ade! Mit »DATEC V3.1« steigen Sie 
voll in das elektronische Zeitalter der Datei¬ 
verwaltung ein. Die Bedienung des Pro¬ 
gramms ist einfach, die Funktionen sind 
dagegen ungeheuer leistungsfähig. 


D as universelle Dateiverwaltungsprogramm 
»DATEC V3.1« (Listing 1) ist vollständig in 
Assembler geschrieben und besitzt viele 
Funktionen, die man eigentlich nur von einem teuren 
professionellen Programm erwarten würde. Es ermöglicht 
die Verwaltung von bis zu 1024 Datensätzen bei einer maxi¬ 
malen Datensatzlänge von 256 Zeichen. Bis zu drei von 
maximal 15 Feldern können hierbei jeweils als Indexfelder 
definiert werden (Indexfelder erlauben den schnellen, di¬ 
rekten Zugriff auf einen Datensatz). Systematisches Durch¬ 
suchen der Einträge nach bestimmten Kriterienkombina¬ 
tionen ist ebenfalls über die Indexfelder möglich. Die ge¬ 
speicherten Datensätze können auf Wunsch nach diesen 
Feldern sortiert werden. Die Form der Ausgabe auf dem 
Bildschirm oder einen Drucker kann über eine spezielle 
Formatzeile definiert werden. Auf diese Weise stellt auch 
das Drucken von Etiketten kein Problem dar. In der Version 
3.1 bietet Datec nun auch Umlaute, die durch einen geän¬ 
derten Zeichensatz realisiert werden. 

Bedienungshinweise 


Das Programm wird mit »LOAD"DATEC V3.1 ",8« geladen 
und mit »RUN« gestartet. Auf der Diskette müssen sich un¬ 
bedingt die Programme »EW.1« (Listing 2) und »Zeichen¬ 
satz« (Listing 3) befinden, da Datec diese nachlädt. Listing 
2 und Listing 3 sind also ebenfalls einzugeben. Nach dem 
Start erscheint zunächst das Hauptmenü, in dem die Datei 
gewählt wird und Floppy-Befehle gesendet werden. Durch 
Drücken der Funktionstasten erreichen Sie folgende Routi¬ 
nen: 

< Fl > Laden einer Datei von Diskette 

<F2> Senden von Befehlen zur VC 1541 

<F3> Inhaltsverzeichnis der Diskette 

<F5> Neue Datei anlegen 

< RUN/STOP > Programmende 

Wurde zuvor eine Datei geladen, zusätzlich noch: 
<F7> Geladene Datei aktivieren 

Neue Datei anlegen (<F5>): 

Wenn Sie diesen Programmteil anwählen, ist es wichtig, 
daß Sie sich über die Anzahl und Länge der einzelnen Fel¬ 
der im klaren sind, da ein Ändern der Eingabemaske nach 
dem Eröffnen der Datei nicht mehr möglich ist. Eine große 
Rolle spielen dabei auch die Indexfelder (siehe auch unter 
Programmteil »Suchen«). 


Geben Sie 
nun Ihre Maske 
ein. Dabei wird der 
Anfang eines Feldes mit »<« 
und das Ende mit »>« gekennzeichnet. 

Indexfelder werden am Anfang mit einem reversen » < « ge¬ 
kennzeichnet. Als Beispiel soll die Maske einer Adreßdatei 
dienen (Bild 1). 

Der Einfachheit halber sind die Zeichen zur Kennzeich¬ 
nung der Felder auch auf die Funktionstasten <F1>, 
<F3> und <F5> gelegt (Bild 2). Nachdem Sie die Maske 
erstellt haben, speichern Sie diese ab. Drücken Sie dazu 
<F7>, und geben Sie dann einen Dateinamen ein. Nach 
dem Abschluß der Eingabe mit < RETURN > wird die Datei 
auf der Diskette angelegt. Dieser Vorgang kann je nach 
Größe der Datei, bedingt durch die geringe Geschwindig¬ 
keit der Floppy 1541, bis zu einigen Minuten dauern. Da¬ 
nach befinden Sie sich wieder im Auswahlmenü. 

Nach dem Öffnen der Datei sind die ersten 256 Datensät¬ 
ze freigegeben. Sind diese editiert, wird Platz für weitere 
256 Datensätze geschaffen. Wurden bereits 1024 Daten¬ 
sätze eingegeben, so erscheint die Systemmeldung »Datei 
voll«. 

Datei laden (< Fl >): 

Zur Eingabe der Daten muß die Datei zuvor mit diesem 
Programmpunkt geladen werden. Drücken Sie die Taste 
< Fl >, und geben Sie den Namen der Datei ein. Dieser 
kann mit »*« abgekürzt werden. Wenn Sie anstelle eines 
Namens nur < RETURN> drücken, oder auch nach einer 
Fehlermeldung, gelangen Sie wieder ins Auswahlmenü. 
Nachdem die Datei geladen ist, befinden Sie sich im Einga¬ 
bemodus. 

Dateneingabe:: 

Die Eingabe eines jeden Feldes wird mit < RETURN > 
abgeschlossen. Ist das letzte Feld erreicht, wird der Daten¬ 
satz auf Diskette gespeichert und der nächste Datensatz 
kann eingegeben werden. 

Durch Drücken der < Fl >-Taste wird die letzte Eingabe 
des Feldes wieder sichtbar. 

Folgende Verbesserungen gegenüber der älteren Ver¬ 
sion von Datec (Sonderheft 9/86) stehen zusätzlich bereit: 
- Daten können in ein sequentielles File exportiert werden 
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- Umlaute sind auf Bildschirm und Drucker darstellbar 

- Bei der Suche können Sie nun auch Joker (»?«) anstelle 
einzelner Buchstaben setzen. 

- Nach der Suche wird in der Systemzeile die Anzahl der 
gefundenen Datensätze angezeigt. 

- Bei der Eingabe kann mit < F7 > ein Feld zurückgesprun¬ 
gen werden. 

- Bisher war es nur möglich, die Datensätze nach dem An¬ 
fangsbuchstaben eines Schlüsselfeldes zu sortieren. 
Durch die Änderung werden nun bei der Sortierung alle ein¬ 
gegebenen Zeichen des Feldes berücksichtigt. 

- Es konnte gelegentlich passieren, daß bei einer bestimm¬ 
ten Datensatzlänge nicht mehr als 256 Datensätze einge¬ 
geben werden konnten. Dieses Problem wurde in der Er¬ 
weiterung gelöst. 

Besitzen Sie bereits die Version 3.0 (aus 64’er Magazin, 
Ausgabe 10/87) von »Datec«, können Sie mit »GEN VX.1« 
(Listing 4) die neuen Befehle einbinden. 


Kommandos: 


Mit der CBM-Taste erreichen Sie die Kommandoeingabe. 

Folgende Befehle stehen zur Verfügung: 

(ungeSHIFTet) 

<l> 

sa 

Löschen 


<a> 

= 

Ändern 


<d> 

SB 

Drucken 


<s> 

= 

Suchen 


<f> 

= 

Formatieren (Ausgabe Drucker) 


<e> 

= 

Eingabe 


<q> 

= 

Quit (Programmende) 


<c> 

SB 

Color (Farben ändern) 


<w> 

SB 

Wählen 


<+ > 

SB 

Blättern (vor) 


<-> 

SB 

Blättern (zurück) 

C 

<h> 

= 

Hardcopy 


<z> 

= 

Zeichensatz wechseln 


<-> 

S= 

Sortieren 


<0> 

= 

ODER-Verknüpfung beim Suchen 


(geSHIFTet) 

<A> 

S 

Ändern (global) 


<D> 

sa 

Drucken (global) 


<M> 

SB 

Monitor (global) 


<L> 

= 

Löschen (global) 


<E> 

■ 

Export von Daten 



Bei Dateien ohne Indexfelder entfällt das Kommando »s« 
(Suchen) und somit auch die Kommandos »I« (Löschen), 
»a« (Andern) und »m« (Monitor). Das Kommando »d« 
(Drucken) bewirkt einen Ausdruck der gesamten Datei. 
Löschen (<L>): 

Nach Bestätigen der Sicherheitsabfrage mit »J« für Ja 
wird der angezeigte Datensatz gelöscht. 

Andern (<A>): 

Der gerade angezeigte Datensatz kann durch Über¬ 
schreiben geändert werden. 

Drucken (<D>): 

Der angezeigte Datensatz wird ausgedruckt (siehe auch 
Programmteil »Formatieren«). Datec spricht in der abge¬ 
druckten Form einen Drucker mit Centronics-Interface am 
User-Port an. Der Drucker muß über den ESC-Modus verfü¬ 
gen, da das Programm die ESC-Kommandos verwendet. 
Sollte Ihr Drucker mit Parallel-Interface diesen Modus nicht 
besitzen, ist vor dem Starten mit Run folgendes einzuge¬ 
ben: 

POKE 8847, 208 
POKE 8848, 11 

Soll ein serieller Drucker angeschlossen werden, so muß 
vor dem Starten des Programms »POKE 8613,0« eingege¬ 
ben und die geänderte Version danach mit »SAVE"filena- 
me'',8« gespeichert werden. 


Eingabe (<E>): 

Mit dieser Taste verlassen Sie den Kommandomodus 
und kehren zurück zur Dateneingabe. 

Suchen (<S>): 

Dieses Kommando ist nur möglich, wenn Indexfelder de¬ 
finiert wurden. Der Cursor befindet sich im ersten Index¬ 
feld, und Sie können den ersten Suchbegriff eingeben (ma¬ 
ximal 8 Zeichen). Die Eingabe wird mit < RETURN > been¬ 
det, worauf der Cursor ins nächste Indexfeld springt. Sie 
können Indexfelder leer lassen, indem Sie nur 
< RETURN > drücken. Nach der letzten Eingabe wird die 
Suche gestartet. Wurden Datensätze gefunden, kann die 
Ausgabe wahlweise über Drucker oder Monitor erfolgen. 
Die Suchfunktion arbeitet folgendermaßen: Jedes Index¬ 
feld wird nacheinander mit den im Speicher stehenden Da¬ 
ten verglichen. Dabei werden als gefunden in die Tabelle 
eingetragen: 

- Indexfelder, die leer sind (kein Suchbegriff eingegeben) 

- Indexfelder mit Übereinstimmung der ersten acht Zei¬ 
chen 

- Indexfelder, die bis zum ersten Leerzeichen Übereinstim¬ 
mung haben. 

Haben Sie beispielsweise eine Adreßkartei mit den In¬ 
dexfeldern NAME und PLZ angelegt und möchten nun alle 
»Müllers« in »Düsseldorf« suchen, geben Sie im Indexfeld 
NAME »Müller« und im Indexfeld PLZ »4000« ein. Es wer¬ 
den nun alle Müllers, die in Düsseldorf wohnen, in die Ta¬ 
belle eingetragen. Geben Sie bei PLZ nur »4« ein, so wer¬ 
den alle Adressen mit der Postleitzahl 4xxx eingetragen (x 
steht hier für beliebige Zeichen). Dort stehen sie dann zur 
Ausgabe zur Verfügung. Wenn Sie alle Indexfelder leer las¬ 
sen (nur < RETURN > drücken), wird die gesamte Datei in 
die Tabelle eingetragen und kann dann zum Beispiel aus- 
gedr7- ;t werden. 

Oder-Filter (<o>): 

Bei der Suche in den gespeicherten Datensätzen können 
mit <CBM> <0> weitere Suchkriterien eingegeben 
werden (zum Beispiel »Schulz« und »6000«). Als Resultat 
dieser Suche würden nun alle Datensätze von Personen 
mit dem Namen »Meier«, die in München wohnen, und alle 
Personen mit dem Namen »Schulz«, in Frankfurt (Postleit¬ 
zahl 6000)ausgegeben werden. 

Wählen (<W>): 

Durch Eingabe einer zulässigen Datensatznummer 
kann jeder Datensatz direkt angewählt und angezeigt wer¬ 
den. 

Farben ändern (<C>): 

Mit den Funktionstasten <F1>, <F3>, <F5> und 
<F7> werden die Farben geändert. < RETURN > führt 
wieder zur Kommandoeingabe. 

Quit (<Q>): 

Das Programm wird beendet und alle Änderungen auf 
Diskette gespeichert. Es ist empfehlenswert, die Datei 
nach längerem Arbeiten zu speichern. Vom Auswahlmenü 
können Sie die Datei durch Drücken der Taste <F7> wie¬ 
der aktivieren. 

Formatieren (<F>): 

Im Eingabefeld erscheint eine Leerzeile mit einem ab¬ 
schließenden »:«. Über diese Zeile wird der Ausdruck ge¬ 
steuert. Hierbei bedeuten: 

»:« Ende der Formatzeile 
»0« bis »9« Feldnummern 
»;« Leerfeld 
»,« Zeilenvorschub 
»*« Datensatznummer 

Die Feldnummern werden von links nach rechts und von 
oben nach unten festgelegt. Die Ziffern können auch bei 
der Maskeneingabe vor die Felder geschrieben werden. 
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liHHJ adressen 



NAMrHDUsentrieb 

VORNAMECDaniel 3 

STRflPECEntenhäuserstr. 33 3 

PLZH10Oe> MOHNORTHDörOen 
TEL<0111/2345678> 

Benerkungen:Cbärtige Ente Mit Bid 


Bild 1. Die Maske einer Adreßverwaltung. Die revers darge¬ 
stellten spitzen Klammern kennzeichnen die Index-Felder. 

Nehmen wir als Beispiel unsere Adreßdatei. Wollen Sie 
zum Beispiel Adressen auf Etiketten drucken, könnte die 
Formatzeile wie folgt aussehen: 

»1,2,3,,4;;5,:« , _ ,, 

Als erstes wird die Anrede ausgedruckt, dann ein Zeilen¬ 
vorschub, danach Name/Vorname, wieder ein Zeilenvor¬ 
schub, nun die Straße, jetzt zwei Zeilenvorschübe, dann die 
PLZ gefolgt von zwei Leerzeichen, daneben der Ort, und 
zum Abschluß noch ein Zeilenvorschub. Der Doppelpunkt 
kennzeichnet das Ende. Durch Ändern der Formatzeile 
kann die Druckausgabe jederzeit neu formatiert werden. Es 
ist notwendig, als letztes einen Zeilenvorschub (»,«) in die 
Formatzeile einzugeben. Ausnahme ist der Fall, daß das 
letzte Feld in der Druckausgabe auch das letzte Feld des 
Datensatzes ist (beispielsweise in Bild 1 das Feld »Bemer¬ 
kungen«). 

Blättern (<+ >/<->): 

Der nächste beziehungsweise vorhergehende Daten¬ 
satz wird angezeigt. Mit diesem Kommando können Sie 
sämtliche Datensätze in der eingegebenen Reihenfolge 
durchblättern. Mit < RETURN > kommen Sie zurück zur 
Kommandoeingabe. 

Hardcopy (<H>): 

Nach Drücken dieser Taste wird eine Kopie des Bild¬ 
schirms auf dem Drucker ausgegeben. 

Zeichensatz laden (<Z>): 

Das Programm lädt einen Zeichensatz nach, wenn er 
sich unter dem Namen »ZEICHENSATZ 3« auf der Diskette 
befindet. Der Zeichensatz muß den Speicherplatz von 
$0800 bis $1000 belegen. Diese Routine wird nach dem 
Start von »Datec« automatisch ausgeführt. Mit dieser Funk¬ 
tion schalten Sie zwischen dem Original-Zeichensatz und 
einem eventuell geladenen, geänderten Zeichensatz um. 
Vor allem bei der Eingabe des »Jokers« < * > ist dies nötig, 
da dieses Zeichen durch einen Umlaut belegt ist. 
Sortieren (<->): 

Der Cursor befindet sich nach diesem Funktionsaufruf im 
ersten Indexfeld. Zum Sortieren der gefundenen Datensät¬ 
ze (nach »Suchen«) gibt man < — > in das Indexfeld ein, 
nach dem sortiert werden soll. Die restlichen Indexfelder 
werden mit < RETURN > übersprungen. 

Globale Kommandos 


Formatzeile auf dem Drucker ausgegeben. Die Ausgabe 
kann mit <RUN/STOP> gestoppt, mit < RETURN> fort¬ 
gesetzt, beziehungsweise mit der <CBM>-Taste abge¬ 
brochen werden. 

Global Löschen (< SHIFT > < L >): 

Alle Datensätze in der Tabelle werden nach Bestätigung 
der Sicherheitsabfrage mit »J« gelöscht. 

Monitor (<SHIFT> <M>): 

Hier gilt das gleiche wie bei »Drucken«, die Ausgabe er¬ 
folgt jedoch nun auf den Bildschirm. 

Global Ändern (< SHIFT > <A>): 

Alle Datensätze in der Tabelle können mit diesem Befehl 
gleichzeitig geändert werden. Felder, die nicht geändert 
werden sollen, überspringen Sie einfach mit 
< RETURN >. In die Felder, die global geändert werden 
sollen, geben Sie den neuen Eintrag ein. Nach Beendigung 
der Eingabe werden alle Datensätze in der Tabelle auf die 
gleiche Weise geändert. 

Export von Daten (<SHIFT> <E>): 

Die vorher selektierten Daten werden als sequentielles 
File auf Diskette übertragen. Die Felder und die Reihenfol¬ 
ge, in der sie in die sequentielle Datei geschrieben werden, 
ist über die Formatzeile (siehe »Global Drucken«) festge¬ 
legt. Die Daten können vor dem Speichern sortiert werden. 

System-Fehlermeldungen_ 

»Eingabe nicht erlaubt«: 

Es wurde ein falsches Kommando eingegeben. Geben 
Sie erneut einen Befehl ein. 

»Feldlänge zu groß«: 

Ein Feld übersteigt die maximale Länge von 255 Zei¬ 
chen. Ändern Sie die Maske entsprechend. 

»|\/w#. 15 Felder«: 

Es wurden mehr als 15 Felder definiert. Andern Sie die 
Maske. 

»Max. drei Indexfelder«: 

Es wurden mehr als 3 Indexfelder definiert. Die Maske 
muß korrigiert werden. 

»Datensatz zu lang«: 

Alle Felder zusammen übersteigen die maximale Länge 
von 255 Zeichen. Kürzen Sie die Feldlängen. 

»Datensatz-Nr. zu hoch«: 

Es wurde eine Datensatz-Nummer angesprochen, die 
nicht existiert. Wählen Sie eine kleinere Nummer. 
»Drucker nicht bereit«: Es wurde versucht eine Ausgabe 
auf den Drucker zu leiten, dieser ist jedoch nicht betriebs¬ 
bereit. Eventuell mit »Install« (Listing 5) die Druckeranpas¬ 
sung vornehmen. 

»Bitte eine Zahl eingeben«: Es wurden unerlaubte Zei- 
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Die geSHIFTeten Kommandos »L«, »D«, »M«, »A« und »E« 
beziehen sich immer auf die von der Suchroutine erstellte 
Tabelle. Das heißt alle in dieser Tabelle eingetragenen Da¬ 
tensätze werden von diesen Kommandos beeinflußt. 
Global Drucken (<SHIFT> <D>): 

Alle Datensätze der Tabelle werden nach Vorgabe der 
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Bild 2. Bei der Eingabe einer Dateimaske bestimmen Sie 
das Aussehen selbst. Die Menüliste oben zeigt die Bele¬ 
gung der Funktionstasten. 
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chen eingegeben. Der Computer verlangt jedoch eine 
Zahl. 

»Ausgabe Formatieren«: Sie wollten etwas ausdrucken 
und haben die Formatzeile noch nicht eingegeben. 
»Datentabelle leer«: Sie haben ein globales Kommando 
eingegeben, jedoch über die Suchfunktion die Tabelle 
noch nicht erstellt. 

»Datei voll«: Die maximale Anzahl von 1024 Datensätzen 
ist erreicht. Löschen Sie, wenn möglich, unwichtige Daten¬ 
sätze. 

»Falscher Dateiname«: Sie haben einen Namen eingege¬ 
ben, der auf der Diskette existiert, jedoch keine Datei ist. 
»Datensatz nicht gefunden«: Es wurde kein Datensatz mit 
dem(n) angegebenen Suchbegriff(en) gefunden. 

Hinweise zum Programm 


Geben Sie bitte die Listings 1, 2 und 3 mit dem MSE ein 
(Eingabehinweise Seite 159). Die Programme müssen alle 
auf der gleichen Diskette gespeichert werden. Laden Sie 
dann das Programm mit »LOAD " DATEC V3.1 ",8« und star¬ 
ten es mit RUN. Die Zusatzprogramme »EW1« und »Zei¬ 
chensatz 3« lädt Datec automatisch nach. 

Wenn Sie bereits die Version 3.0 des Programms Datec 
(Ausgabe 10/87 des 64’er-Magazins) besitzen, sind mit der 
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Bild 3. Mit Hil¬ 
fe des Basic- 
Programms 
»Install« pas¬ 
sen Sie Ihren 
Drucker an 
Datec an 


Erweiterung »GEN VX.1« die Verbesserungen folgender¬ 
maßen einzubinden: 

1. Geben Sie »GEN VX.1« (Listing 4) ein und speichern 
Sie das Programm. 

2. Laden Sie es mit »LOAD "GEN VX.1 ",8,1. 

3. Laden Sie danach die alte Version von Datec. 

4. Geben Sie den Befehl »SYS 36864« ein. 

5. Speichern Sie die nun erneuerte Version mit »SAVE 
"DATEC V3.1 ",8« auf Diskette. 

Das Programm belegt 33 Blöcke auf Diskette. Die zusätz¬ 
lich benötigten Listings 2 und 3 belegen vier beziehungs¬ 
weise neun Blöcke auf der Diskette. Wurde die Bearbeitung 
von Datec versehentlich mit < RUN/STOP > unterbrochen, 
kann das Programm durch Eingabe des Befehls »SYS 
32768« erneut gestartet werden. 

Mit Hilfe von »INSTALL« (Listing 5) können die Sekundär¬ 
adresse des Druckers sowie die Codes zur Umwandlung der 
Darstellung auf Monitor und Drucker verändert werden (Bild 
3). In der Beispieldatei sind folgende Parameter eingestellt: 

Sekundäradresse Drucker 255 
Code Bildschirm-> Drucker 64->125 

42-> 124 
94-> 123 
192 -> 92 
222 -> 91 
186-> 93 
92-> 126 

Damit ergibt sich folgende Tastenbelegung: 
ü-> @ ö-> * ä-> I ß-> £ 

Die Großbuchstaben befinden sich auf den gleichen Ta¬ 
sten (mit <SHIFT>). 

Die Verkürzung einer Eingabe, beispielsweise beim Su¬ 
chen nach einem Datensatz, kann durch die Eingabe von 
»*« er» igen. Arbeiten Sie mit geändertem Zeichensatz, ist 
vorher mit <Z> zu wechseln, da die Taste < * > eventuell 
belegt ist. (Wilfried Lengert/rs) 
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e4 

9c 

20 

c3 

ff 

60 

9c 

9230 : 

: 00 

aO 

e7 

b9 

03 

90 

99 

e3 

94 

9238 : 

: 22 

88 

cO 

ff 

dO 

f5 

aO 

00 

Oe 

9240 : 

; b9 

eb 

90 

99 

cb 

23 

c8 

dO 

el 

9248 : 

: f7 

b9 

ea 

91 

99 

ca 

24 

c8 

lb 

9250 : 

; cO 

48 

dO 

f5 

ad 

dO 

Oa 

c9 

44 

9258 : 

: 33 

fO 

12 

a9 

4c 

8d 

33 

Of 

d9 

9260 : 

: a9 

b7 

8d 

34 

Of 

a9 

9a 

8d 

92 

9268 : 

: 35 

Of 

4c 

7c 

92 

a9 

4c 

8d 

8a 

9270 : 

: cc 

26 

a9 

b7 

8d 

cd 

26 

a9 

e4 

9278 : 

: 9a 

8d 

ce 

26 

a9 

4c 

8d 

88 

95 

9280 : 

: 21 

a9 

cb 

8d 

89 

21 

a9 

9a 

98 

9288 : 

: 8d 

8a 

21 

a9 

20 

8d 

01 

Of 

68 

9290 : 

: a9 

el 

8d 

02 

Of 

a9 

9a 

8d 

91 

9298 : 

: 03 

Of 

a9 

4c 

8d 

68 

la 

a9 

ef 

92a0 : 

: 03 

8d 

69 

la 

a9 

9b 

8d 

6a 

8a 

92a8 : 

; la 

a9 

e4 

8d 

6b 

21 

a9 

9c 

21 

92b0 : 

: 8d 

6c 

21 

a9 

dd 

8d 

56 

25 

df 

92b8 : 

; a9 

9c 

8d 

57 

25, 

a9 

31 

8d 

7d 

92c0 : 

: d2 

Oa 

a9 

20 

8d 

d3 

Oa 

60 

66 


Listlng 4. Mit »GEN VX. 1« ergänzen 
Sie ältere Datec-Versionen um die 
neuen Befehle. Bitte mit dem MSE 
(Seite 159) eingeben. 
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DATEI VERWALTUNG-LISTING 


C64 


INSTALL 
24.09.B7 
12 . 02.88 


10 REM 

20 REM #*#*#•»*#**********####******#** 

30 REM * 

40 REM * NAME : 

50 REM * DATUM i 

60 REM » GEAENDERT s 

70 REM * 

B0 REM #*#*##**#*#«*##*#***#***#*#**** 

90 REM 

100 POKE 532B0,0:POKE 53281,0:PRINT"CWHITE 
>" 

110 PRINT"<CLR>" 

120 PRINT"INBTALL 


DATEC":PRINT:PRINT 


130 

140 

150 

160 

170 

180 

190 


REM DATEINAME EINLESEN 
t 

RESTORE 

PRINT"BEBEN SIE DEN NAMEN DER DATEI EI 
N.":PRINT s PRINT 
INPUT N*:PRINTjPRINT 

IF LENIN*)>12 THEN PRINT"MAXIMAL 12 ZE 
ICHEN!":PRINT:PRINT:GOTO 160 
GDSUB 1000:REM LADEN 
IF F< >0 THEN 160 


200 
210 
220 : 

230 REM SEKUNDAERADRESSE AENDERN 
240 : 

250 PRINT"CCLR>" 

260 SP=PEEK(50990) 

270 PRINT"SEKUNDAERADRESSE DRUCKER "; SP 
280 GOSUB 950 

IF A*="N" THEN 390 
1 *=" " 

INPUT"NEUE SEKUNDAERADRESSE ";I* 

IF LEN(I*)=0 THEN 250 
SP=VAL(I*> 

IF SP>255 THEN 310 
POKE 50990,SP:BOTO 250 


290 
300 
310 
320 
330 
340 
350 
360 

370 REM CODETABELLE MONITOR/DRUCKER 
380 : 

390 PRINT"CCLR}" 

400 FOR N=0 TO 9 

410 PI(N)=PEEK(51935+N) 

420 P2(N)=PEEK(51945+N) 

430 NEXT N 
440 : 

450 PRINT“MONITOR—> DRUCKER":PRINT 

460 FOR N=0 TO 9 

470 PRINT PI(N),P2(N) 

4B0 NEXT 

490 GOSUB 950 

500 IF A*="N" THEN 730 

510 : 

520 PRINT"<CLR>" 

530 FOR N=0 TO 9 

540 PRINT "BILDSCHIRM-CODE "sPl(N) 


550 

560 

570 

5B0 

590 


I*=" 


INPUT "NEUER CODEI6SPACE>"!I* 

IF LEN(I*> =0 THEN 620 
P1=VAL(LEFT*(I*,3)) 

IF PI>255 THEN PI=255 
600 PI(N)=P1 
610 : 

PR'JNT"DRUCKER-CODE C5SPACE; P2 <N> 
I*=" " 

INPUT "NEUER CODEC6SPACEJ";I* 

IF LEN(I*)=0 THEN 690 
660 P2=VAL(LEFT*(I*,3>) 

670 IF P2>255 THEN P2=255 
P2(N)=P2 
PRINT"tCLRI" 

NEXT N 
GOTO 450 
9 

PRINT"TCLRJ" 

FOR N=0 TO 9 


620 

630 

640 

650 


680 

690 

700 

710 

720 

730 

740 


<072> 
<15B> 
<079> 
<039 > 

< 177> 

< 034 > 
•; H9> 
<218> 
<152> 

<228 > 
<098 > 
<10B> 

< 106> 
<086> 
< 126> 
< 210 > 

<049 > 
<225> 

<206> 

<036> 

<223> 

< 196> 
< 012 > 
<216> 
<238> 
<149> 
<178> 

< 114> 
<172> 

< 107 > 

< 125> 

< 112 > 
<034> 

<082 > 

< 171 > 

< 102 > 

< 124> 
< 000 > 

< 254 > 
<04B> 
<044> 
<162> 

< 155> 

< 060 > 
<221 > 
<236> 
<06B> 
<094> 
<232> 
< 000 > 

< 132> 
<209> 

< 103> 
<067> 
<092> 

< 176> 
<023> 

< 198> 
<07B> 
<193> 
<183> 

< 147> 
<028> 

<008> 

< 127> 
<032> 

< 170> 
<060> 
<234> 

< 188 > 
< 210 > 
<0B6> 


750 POKE(51935+N),PI(N) <201> 
760 POKE(51945+N),P2<N) <14B> 
770 NEXT N <132> 
7B0 PRINT "SEKUNDAERADRESSE DRUCKER " 5 SP <1B0> 
790 PRINT "CDOWNIMONITOR—> DRUCKER<DOWN>" <133> 
800 FOR N=0 TO 9 <1B5> 
810 PRINT PI(N),P2(N) <053> 
B20 NEXT N <1B2> 
830 GOSUB 950 <156> 
840 IF A*="J"THEN 250 <176> 
B50 : <064> 
860 REM DATEI SPEICHERN <172> 
870 : <084> 
880 PRINT"<CLR>" <106>, 
890 PRINT"DATEI WIRD MIT DEN NEUEN WERTEN" 

:PRINT"GEBPEICHERT." <018> 
900 GOSUB 1200 <126> 
910 END <150> 
920 : <134> 
930 REM UNTERPROGRAMME <110> 
940 : < 154 > 
950 PRINT"<2D0WN>AENDER J/N“:PRINT:PR INT <035> 
960 GET A*:IF A*=""THEN 960 <201> 
970 IF A*<>"N" AND A*<>"J" THEN 960 <042> 
980 RETURN <020> 
990 9 <204> 
1000 REM MASCHINENCODE LADEN <049> 
1010 DATA 162,035,160,144,169,003,032 <255> 
1020 DATA 189,255,169,001,162,008,160 <197> 
1030 DATA 002,032,186,255,169,000,168 <254> 
1040 DATA 076,213,255 <213> 
1050 : <010> 
1060 FOR N=0 TO 23 <074> 
1070 READ C9 POKE 36864+N,C <236> 
1080 NEXT N <1B8> 


1090 


< 050 > 


1 =LEN(N*> 

OKE 36869,L 

<041 > 

< 172> 

1120 

FOR N=1 TO LEN(N*) 

<216> 

1130 

W=ASC(MID*(N*,N,1)) 

<025> 

1 140 

POKE 36898+N,W 

<247> 

1150 

NEXT N 

< 002 > 

1160 

SYS 36864 

< 180> 

1170 

GOSUB 1410 

<206> 

1180 

RETURN 

<222> 

1190 

9 

<150> 

1200 

REM MASCHINENCODE SAVEN 

<074> 

1210 

DATA 162,035,160,144,169,003,032 

<201 > 

1220 

DATA 189,255,169,001,162,008,160 

<143> 

1230 

DATA 001,032,186,255,169,000,133 

<213> 

1240 

DATA 096,169,192,133,097,162,000 

<130> 

1250 

DATA 160,203,169,096,076,216,255 

<148> 

1260 

DATA 064,058 

<052> 

1270 

9 

<230> 

1280 

FOR N=0 TO 36 

< 171 > 

1290 

READ C:POKE 36864+N.C 

<202> 

1300 

NEXT N 

<154 > 

1310 

9 

<016> 

1320 

L=LEN(N*> 

<007 > 

1330 

POKE 36869,L+2 

< 197 > 

1340 

FOR N=1 TO LENIN*) 

< 182> 

1350 

W=ASC(MID*(N*,N,1>> 

<247> 

1360 

POKE 36900+N,W 

< 175> 

1370 

NEXT N 

<224> 

1380 

SYS 36864 

< 146> 

1390 

GOSUB 1410 

<172> 

1400 

RETURN 

<18B> 

1410 

3 

< 116 > 

1420 

OPEN 15,8,15 

< 052 > 

1430 

INPUTttl5,F,F* 

<072> 

1440 

IF F< >0 THEN PRINT F*:PRINT9 PRINT 

<03B> 

1450 

CLOSE 15 

< 0 ia> 

1460 

RETURN 

<248> 


Listing 5. Mit »INSTALL« passen Sie Ihren Drucker an 
Datec an. Bitte mit dem li/ISE (Seite 159) eingeben. 
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C64 


BÜCHER 


Masterbase 64 

Der Verlag Markt ÄTechnik 
stellt mit Masterbase 64 eine 
Dateiverwaltung als »Bookwa- 
re« vor. Dem ausführlichen Be¬ 
gleitbuch liegt eine Diskette 
mit dem Programm bei, das 
wohl die beste aktuelle Datei¬ 
verwaltung für den C64 ist, 

Diese Bookware besticht 
durch große Bedienungs¬ 
freundlichkeit mit Pull-Down- 
Menüs, Windows, Hilfstexten, 
Status-/lnfozellen und Einga¬ 
bemasken. Sogar ein Ma¬ 
kro-Recorder, der das sofortige 
Ausführen mehrerer Tasten¬ 
drücke durch einen einzigen 
Makro-Aufruf erlaubt, wurde 
integriert; für C64-Verhältnis¬ 
se eine kleine Sensation. 

Vor allem aber gefällt an Ma¬ 
sterbase neben dem ausge¬ 
zeichneten Handbuch (zirka 
200 Seiten), das auch Einstei¬ 
gern den Weg in die Welt der 
Dateiverwaltung ebnet, die 
ausgefeilte Fehlerbehandlung. 



Masterbase fängt nicht nur je¬ 
den denkbaren Fehler ab und 
ist somit vollkommen absturz¬ 
sicher, sondern gibt auch 
gleich kurze Erläuterungen, 
wodurch der Fehler entstand 
und wie man ihn behebt. 

Neben allen Standardfunk¬ 
tionen wie Suchen/Ersetzen, 
Editieren, Anlegen von Mas¬ 
ken ist auch die Druckeranpas¬ 
sung mit Möglichkeiten zu Fett¬ 
oder Engschrift sehr flexibel. 
Masterbase Ist dabei außeror¬ 
dentlich schnell. Auch der Da¬ 
tenaustausch mit anderen Pro¬ 
grammen (Export/Import) wird 
unterstützt. 

Masterbase ist ein rundum 
gelungenes Produkt, das gro¬ 
ßen Nutzen mit einem hohen 
Grad an Faszination verbindet. 

(G. Huber/rs) 

Said Baloul, Masterbase 64 (Bookware), zirka 
200 Sellen Inkl. Programmdiskette mH Bei¬ 
spielen, Mark! & Technik Verlag, ISBN 
3-B9090-527-7, 59 Mark 


fr 

Commoilort' 

Sachbuch 



deutsch 



C64-GE0S 1.3 
(deutsch) 

Dieses Werk ist der Nachfol- 
gervon »Alles überGEOS 1.2«. 
Das Buch zur neuen Geos-Ver- 
sion ist nicht nur eine Überar¬ 
beitung seines Vorgängers, 
der Anwendungsteil wurde völ¬ 
lig neu verfaßt. 

Der erste Buchteil beinhaltet 
viele neue Tips und Tricks, 
aber auch die bereits bekann¬ 
ten Hinweise, die ebenfalls für 
die neueste Version von Geos 
zutreffen. Der dadurch größere 
Umfang kommt sowohl Einstei¬ 
gern zugute, die ausführliche¬ 
re Erklärungen benötigen, als 
auch Fortgeschrittenen, die 
mit noch mehr Informationen 
versorgt werden. Die Orientie¬ 
rung in diesem Buch fällt auf¬ 
grund einer übersichtlichen 
Gliederung leicht. 

Der Programmierteil bein¬ 
haltet eingehende Informatio¬ 
nen zum Geos-Diskettenfor- 
mat und zahlreiche Tools. Un¬ 
terschiede zur Geos-Version 
1.2 (englische Geos-Version) 
erwähnt der Autor ebenso wie 
den neuen Speicheraufbau, 
durch den sich die »Inoffiziel¬ 
len« Einsprungadressen ver¬ 
ändert haben. 

Im dritten Teil findet der Le¬ 
ser die Beschreibung der 
Geos-Applikationen (Geofile, 
Geowrite Workshop, Geocalc, 
Desk Pack/Geodex, Font Pack, 
Geoprogrammer, Geopublish). 
Neu sind zusätzliche Anhänge 
zur Tastaturbelegung und Zei¬ 
chencodierung. 

Für Geos-Anwender, die alle 
Vorteile der Benutzeroberflä¬ 
che intensiv nutzen wollen, ist 
das Buch »C64-GEOS 1.3«, 
ebenso wie sein Vorgänger für 
die Besitzer der englischen 
Geos-Version, sehr empfeh¬ 
lenswert. (G. Huber/rs) 

Florian MOIIer/Thorsten Pelrowski. Commo- 
dore Sachbuch: C64-GEOS 1.3 (deutsch), 
576 Selten Inkl. doppelseitige Diskette mit 
Beispielen und Utilities, Insgesamt 250 Abbil¬ 


dungen, Markt ÄTechnik Verlag, ISBN 3-890 
90-570-6, 59 Mark 

Florian Müller/Thorsten Petrowski, Commo- 
dore Sachbuch: C64-Allos Ober GEOS 1.2, 
532 Selten Inkl. doppelseitige Diskette mit 
Beispielen und Utilities, last 250 Abbildun¬ 
gen, Markt 5 Technik Verlag, ISBN 
3-89090-461-0, 49 Mark 

The Official GEOS 
Programmer's 
Reference Guide 

Zu jedem Betriebssystem 
wünscht man sich ein offiziel¬ 
les Programmierhandbuch, al¬ 
so eine Dokumentation der 
Entwickler. Obwohl in Deutsch¬ 
land wenig bekannt, hat Berke¬ 
ley Softworks eine hervorra¬ 
gende Publikation zu »seinem« 
Geos herausgegeben. Diese 
ist nur in den Vereinigten Staa¬ 
ten und Kanada erhältlich, 
aber selbst ein umständlicher 
Bestellweg dürfte für Geos- 
Programmierer mehr als loh¬ 
nend sein. 

Das Buch enthält zunächst 
Erläuterungen zum allgemei¬ 
nen Aufbau von Geos, davon 
20 Seiten über das Disketten¬ 
format. 

Alle weiteren Abschnitte 
sind so gegliedert, daß auf eine 
informative Einführung in ein 
Thema alle Routinen von Geos 
erklärt werden, die dazu exi- 
stierpn, Die Beschreibungen 
der Routinen orientieren sich 
leider ausschließlich an festen 
Label-Bezeichnungen; deren 
numerische Äquivalente sind 
zwar in einem Anhang zu fin¬ 
den, doch wer nicht vordefi¬ 
nierte Konstanten wie im Geo¬ 
programmer (siehe dazu »Pro¬ 
grammieren hoch 4«, Seite 50) 
hat, wird dadurch im Arbeits¬ 
fluß leicht aufgehalten. Dafür 
aber sind die Erklärungen in 
dieser Ausführlichkeit und mit 
zahlreichen Beispielen wirk¬ 
lich einmalig. 

Die einzelnen Abschnitte 
widmen sich allen wichtigen 
Bereichen, beispielsweise 
Grafik oder VLIR-Files. 

Deshalb ist der »Reference 
Guide«, der sich auf alle Geos- 
Versionen bezieht, eine her¬ 
vorragende Fundgrube. Besit- 
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zer des Geoprogrammer kön¬ 
nen sich kein besseres Infor¬ 
mationsmaterial wünschen. 

(G. Huber/rs) 

Berkeley Sollworks, The Olllclal GEOS Pro¬ 
grammer's Reference Guide, 461 Sellen, 
ISBN 0-553-34404-8. Veröffentlicht In den 
USA und Kanada bei Bantam Booka, 666 Flfth 
Avenue, New York, NY 10103, Preis 19.95 Dol¬ 
lar. 



Profi-Tools 

Jeder Programmierer möch¬ 
te seine Programme gerne mit 
größtmöglichem Bedienungs¬ 
komfort ausstatten. Die »C64 
Profi-Tools« sind eine Samm¬ 
lung vieler Maschinenrouti¬ 
nen, die teilweise in sich abge¬ 
schlossen sind, aber allesamt 
parallel betrieben werden kön¬ 
nen. Alle Routinen sind von 
Basic aus aufzurufen. Das 
Ziel, Basic-Programme zu ent¬ 
wickeln, die von außen keine 
Unterschiede zu reinen Ma¬ 
schinenprogrammen aufwei¬ 
sen, wird damit voll und ganz 
erreicht. 

Die Profi-Tools decken sehr 
viele Bereiche ab, sind aber 
hauptsächlich für die Entwick¬ 
lung eigener Dateibehand- 
lungs-Programme bestimmt. 

Insgesamt erhält der enga¬ 
gierte Programmierer eine 
mächtige Bibliothek von be¬ 
triebssicheren und blitzschnel¬ 
len Routinen, deren Vielseitig¬ 
keit dieses Paket sehr wertvoll 
macht. Obwohl die Profi-Tools 
auch ohne Kenntnisse in Ma- , 
schinensprache verwendbar 
sind (Basic ist allerdings Vor¬ 
aussetzung), darf man den auf 
Diskette beiliegenden Quell¬ 
text als eine Schatzkiste für 
Assembler-Programmierer be¬ 
zeichnen. 

Die Profi-Tools sind übrigens 
dieselben Routinen, mit denen 
auch Masterbase 64 realisiert 
wurde: Ein Beweis für deren 
Leistungsfähigkeit. 

(G. Huber/rs) 

Said Baloul, C64 Profi-Tools, 164 Selten Inkl. 
Programmdiskette mit Quelltexten, Markt 5 
Technik Verlag, ISBN 3-89090-617-6, 49 Mark 
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EINGABEHILFEN 


C64 


GeoCheck - So tippt man 
Geos-Listings ab 


Durch das spezielle Geos-Disketten-Format 
reicht es nicht, Programme, die unter Geos lau¬ 
fen, einfach mit dem MSE abzutippen. Sie brau¬ 
chen eine kleine »Nachbehandlung«. Wie diese 
funktioniert, erfahren Sie hier. 

I n diesem Heft finden Sie viele hochklassige Geos-Pro- 
gramme zum Abtippen. Zusätzlich zur Bedienung von 
Checksummer und MSE (Seite 159) müssen Sie auch 
noch wissen, wie Geos-Listings lauffähig gemacht werden. 
Dies betrifft nicht Programme, die sich zwar auf Geos be¬ 
ziehen, aber nicht unter Geos ablaufen (beispielsweise der 
Diskettenmonitor GDM aus dem Kurs »Der Schlüssel zu 
Geos«), sind nach Eingabe mit Checksummer und/oder 
MSE bereits verwendbar. 

Sobald jedoch Programme unter der Geos-Benutzer- 
oberfläche als Applikationen, Hilfsmittel (Desk Accesso- 
ries) oder Druckertreiber laufen sollen, genügt das normale 
Speichern mit SAVE nicht mehr. Denn Geos kennt sein ei¬ 
genes Diskettenformat, ohne das kein Geos-Programm ge¬ 
startet werden kann. Der Kurs »Schlüssel zu Geos« (ab Sei¬ 
te 69) beschreibt dies näher. 

Aus dieser Notlage heraus haben manche Programm¬ 
autoren zusätzliche Routinen entwickelt, mit denen ihre 
Geos-Software lauffähig wird (Beispiel: »Geos Pattern- 
Editor« von Uwe Khatchikian mit »lnstall«-Programm). 

In Zukunft können jedoch alle Leser des 64’er-Magazins 
auf ein einheitliches Abtipp-System für Geos zurückgrei¬ 
fen. 

Und so geht man nun vor (am Beispiel des Programms 
»Bitmap-Converter«, dessen Beschreibung nähere Hinwei¬ 
se enthält): 


Byte-Nr. 

Bedeutung 

1. Byte 

GEOS-Filetyp 

2. Byte 

Datum (Byte für »Jahr«) 

3. Byte 

Datum (Byte für »Monat«) 

4. Byte 

Datum (Byte für »Tag«) 

5. Byte 

Uhrzeit (Byte für »Stunde«) 

6. Byte 

Uhrzeit (Byte für »Minute«) 

7.-263. Byte 

Infosektor der Datei 


(enthält Icon usw.) 


Tabelle 1. Der Aufbau einer »Check Scrap«-Datel 


1. Man tippt mit dem MSE zum einen die Programmdatei 
(»BITMAP-CONVERTER«) und zum anderen die kurze, 
aber »lebenswichtige« Datei »CHECK SCRAP« ab und 
speichert beide auf einer beliebigen Diskette. 

Das Hauptprogramm ist der Objektcode eines Assem¬ 
blerprogramms, könnte jedoch in diesem Zustand nicht un¬ 
ter Geos ablaufen: deshalb enthält das »CHECK SCRAP« 
alle Zusatzinformationen, darunter beispielsweise das 
Datei-Icon, die Uhrzeit der letzten Modifikation, den Filetyp, 
den Info-Text usw. 

2. Nun formatiert (am besten unter Geos Desktop) eine 
neue Diskette oder eine solche, deren Inhalt man nicht 
mehr benötigt. Auf diese kopiert man zuerst das Hauptpro¬ 
gramm (im Beispiel das File »BITMAP-CONVERTER«) und 
dann das »CHECK SCRAP«, das zu dieser Datei gehört. 


Wichtig ist, daß das Hauptprogramm die allererste Datei 
ist, die auf die neue Diskette geschrieben wird. Die Position 
des »CHECK SCRAP« ist normalerweise unmittelbar hinter 
dem Hauptprogramm, kann jedoch auch weiter hinten im 
Directory liegen. 

3. Anschließend startet man GeoCheck (Listing 1) und 
folgt den Anweisungen, die am Bildschirm erscheinen. 
GeoCheck »mischt« Hauptprogramm und »CHECK 
SCRAP« zu einer fertigen Geos-Datei. Im Directory wird 
dies höchstens dadurch sichtbar, daß ein freier Block weni¬ 
ger zur Verfügung steht. 

4. Nun lädt man Geos und sieht die Arbeitsdiskette unter 
Desktop an. Hat alles funktioniert, ist dann bereits das Pik¬ 
togramm (Icon) des Hauptprogramms sichtbar. In dieser 
Form ist das Hauptprogramm Geos-kompatibel. Um es nun 
verwenden zu können, wählen Sie zuerst Validate (Aufräu¬ 
men) im Menü »Disk« des Desktop an, und kopieren Sie mit 
Desktop (!) die fertige Datei auf eine andere Diskette. Das 
»CHECK SCRAP« benötigen Sie nicht mehr, sollten es je¬ 
doch ebenso wie das Hauptprogramm in der ersten Phase 
(nach dem Abtippen mit MSE, aber vor der Bearbeitung mit 
GeoCheck) speichern; falls nämlich Probleme (Disketten¬ 
fehler) auftreten, benötigen Sie Ihre alten Dateien wieder. 


wi.;,:: ger Hinweis: Nach der Bearbeitung mit GeoCheck darf das 
Hauptprogramm nur noch mit Geos bearbeitet werden. Das Kopieren 
mit anderen C64-Programmen oder das Umbenennen beziehungs¬ 
weise Validieren der Diskette zerstört nämlich ausgerechnet diejeni¬ 
gen Daten - nämlich den Infoblock die mit Hilfe von GeoCheck müh¬ 
sam installiert wurden. 


Auf der Programmservice-Diskette befinden sich jedoch 
fertige, unter Geos startbare Files. Obiger Hinweis gilt auch 
(oder gerade) für Leserservice-Disketten mit Geos-Da- 
teien. 

Hinweise für Programmautoren 


Falls Sie zu denjenigen Geos-Freaks zählen, die nicht nur 
fertige Software anwenden, sondern auch eigene Geos- 
Programme entwickeln wollen, so freuen wir uns über Ihre 
Listing-Einsendungen sehr. Damit der Abtippaufwand für 
alle Leser möglichst gering bleibt, haben wir GeoCheck (Li¬ 
sting 1) entwickelt. Dadurch ist es möglich, alle Angaben zu 
einer Datei, die der C64 nur im Geos-Betrieb kennt, mit Hil¬ 
fe von »Check Scraps« weiterzugeben. 

Alle zukünftigen Geos-Listings werden wir deshalb - so¬ 
weit als möglich - in dieser Form (Hauptprogramm und 
Check Scrap) veröffentlichen. Bedenken Sie dies bitte bei 
Ihrer Programmeinsendung. Wir benötigen von Ihnen also 
folgende drei Dateien: 

1. Unter Geos lauffähiges Programm 

2. Hauptprogramm als C64-Datei (dies ist einfach der as- 
semblierte Objektcode ohne Geos-Einbindung), 

3. Check Scrap. 

Deshalb finden Sie als Listing 2 ein Utility namens »Geo¬ 
Check Part Two«, das »Check Scraps« generiert. Dazu for¬ 
dert es Sie zunächst dazu auf, eine Geos-Diskette mit Ih¬ 
rem Programm einzulegen. Nach der Auswahl der Datei, zu 
der ein Check Scrap ermittelt werden soll, liest »GeoCheck 
Part Two« den Fileeintrag sowie den Infosektor ein. Nach 
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Wechseln der Diskette (Sie können auch Ihre alte Diskette 
im Laufwerk lassen, sofern noch genügend Platz frei ist) 
wird die Datei »Check Scrap« auf Diskette gespeichert. 
Eventuelle Diskettenfehler werden angezeigt und führen 
zum Programmabbruch. 

Ein »Check Scrap« ist eine sequentielle PRG-Datei mit 
dem in Tabelle 1 dargestellten Aufbau. Da auch der Datei- 
Infoblock Teil des »Check Scrap« ist, werden also auch Pik¬ 


togramm (Icon), Info-Text, »Klasse« und »Autor« einer Datei 
in Check Scraps verewigt. Es lohnt sich also, eigene Pro¬ 
gramme mit schönen und vor allem aussagekräftigen Pik- 
togrammen zu versehen! 

Mit diesen umfassenden Informationen ist es fortan kein 
Problem mehr, auch zu Geos Listings zu veröffentlichen. 
Der Abtippaufwand erhöht sich für den Anwender lediglich 
um das Basic-Utility »GeoCheck«. (Florian Müller/sk) 


100 

REM «** GEOCHECK #»* 

<211> 

380 

PRINT "AN. (SPACE. RVSCJN > AU -E.KE.KS.TE_R. (RVOFF 


110 

REM *** FLORIAN MUELLER *** 

<061 > 


,SPACE>Position B££iHB£M!" 

<123> 

120 

REM 

<1B2> 

390 

PRINT" (2D0WN>«EITER - < RL-TU.RJO , <.R_UK/ S. 


130 

REM REQUESTS CHECK SCRAP CREATED BY GE 



Xfl£> “ ABBRUCH" 

<150> 


OCHECK PART TWO 

< 229 > 

400 

POKE 190,0 

<054> 

140 

s 

< 116> 

410 

GET A*:IF A*OCHR*(13)THEN 410 

<034> 

150 

CLRiDIM IB*(256) 

< 175 > 

420 

PRINT"JETZT WIRD DER INFO-SEKTOR AUF D 


160 

PR I NT CHR* (14) “ TCL-R , RVSONJGEOfiHECK <5SP 



ISKETTE“ 

<12B> 


ACE > (INSTALL IERT .Q.E.0.5-.L.I ST INGS) " 

< 168 > 

430 

PRINT"UNTERGEBRACHT." 

< 124> 

170 

PRINT"CDOWN,2SPACE}VONC3SPACE > B-OR1AN 


440 

OPEN 1,B,15,"I":OPEN 2,0,2,"#" 

<177> 


ÜUELLER (flARKT&IECHNIK >" 

<051 > 

450 

IT=1:IS=0 

< 134> 

100 

PRINT"{DOWN,SPACElflUTOR VON '£64 - ALL 


460 

PRINT#1,"B-A 0";IT?IS:INPUT#1,A,B*,IT, 



ES UEBER GLOS 1.2'" 

< 157> 


IS 

<241 > 

190 

PRINT" C7SPACEJUND '£64 - fif.0.5. 1.3 DEUT 


470 

IF A=0 THEN IT=1:IS=0:BOTO 510 

<139> 


SCH ' " 

<03B> 

480 

IF IT=1B THEN IT=19:IS=0:PRINT#1,"B-A 


200 

PRINT"T3D0WN,SPACE}£OPYRIGHT (£) 19BB 



0"SIT:IS:INPUT#1,A,B*,IT,IS 

<232> 


BY REDAKTION 64'ER” 

<104> 

490 

IF A—65 AND IT=0 THEN PRINT"KEIN PLATZ 


210 

PRINT"{3D0WNJBITTE EINE BIBKETTE MIT £ 



FUER INFO-BLOCK“cSTOP 

< 105> 


ROGRAMM C2SPACE > UND" 

<061 > 

500 

IF A=65 THEN PRINTH1,"B-A 0";IT;IS 

<058 > 

220 

PR INT"'CHECK SCRAP' EINLEGEN." 

< 173> 

510 

PRINT"INFO-BLOCK KOMMT AUF SPUR"IT"/SE 


230 

PRINT" <DOWNKSHIFT>":POKE 653,0sWAIT 6 



KTOR"IS 

< 171 > 


53,1:PRINT"CCLRJ" 

<071 > 

520 

PRINT#1,"B-P 2 0":FOR F=1 TO 256 

<179> 

240 

OPEN 1,8,0, "CHECK SCRAP,P,R" 

<105> 

525 

IF IB*(F)<>"" THEN PRINT#2,1B*(F> 5 :GOT 


250 

GET#1,FG*,DY*,DM*,DD*,DH*,MI*,B1*,B2* 

<039> 


0 527 

<00B> 

251 

FG=ASC (FG*+CHR*(0)):DY=ASC(DY*+CHR*(0) 


526 

F'RINT#2,CHR*(0> ; 

< 12B> 


):DM=ASC(DM*+CHR*(0)> 

< 011 > 

527 

NEXT 

<029> 

252 

DD=ASC < DD*+CHR* (0 > >:DH=ASC(DH*+CHR*(0 > 


530 

PRINT#1, "U2: 2 0";IT-, IS 

<097> 


>:MI=ASC(MI*+CHR*(0)) 

<061 > 

540 

PRINTttl,"Ul 2 0 10 1" 

< 108> 

253 

B1=ASC ( B1*+CHR*(0 > > :B2=ASC(B2*+CHR*(0) 


550 

PRINT#1,"B—P 2 21":PRINT#2,CHR*(IT>;CH 



> S ‘ 

<004> 

ui n®» 

R*(IS) ;CHR*(0) ;CHR*(FG); 

<253> 

260 

PRINT"GEOS—FILETYP #"FG 

< 107> 

560 

PRINT#2,CHR*(DY);CHR*< DM >;CHR*(DD);CHR 


270 

IF FG=5 THEN PRINT"= HILFSMITTEL (DESK 



* < DH >:CHR*(MI); 

< 117> 


ACCESSORY)“ 

<049> 

570 

PRINT#1,"U2:2 0 1B 1" 

< 1B1 > 

2 B 0 

IF FG =6 THEN PRINT"= ANWENDUNG (APPLIC 


572 

PRINT# 1, "Ul 2 0 17 0" : PRINTttl , "B—P 2 2 



ATION)" 

<214> 


":PRINT#2,CHR*(Bl);CHR*(B2); 

< 050 > 

290 

IF FG=9 THEN PRINT"DRUCKERTREIBER" 

<005> 

573 

PRINTttl,"U2 2 0 17 0" 

<246> 

300 

PRINT"DATUM:"DD"."DM"."1900+DY 

<068> 

5B0 

CLOSE 1:CLOSE 2 

<150> 

310 

PRINT"UHRZEIT: 11 DH "UHR "MI 

< 200 > 

590 

PRINT"C2D0WN>INSTALLATION FERTIB. JETZ 


320 

3 

<042> 


T UNTER DESKTOP" 

<236> 

330 

FOR F=1 ro 256: GET tt 1 , IB* (F > 

<162> 

600 

PRINT“DIE FUNKTION 'VALIDATE' (AUFRAEU 


333 

IF IB*(F>="" THEN IB*(F>=CHR*(0) 

< 022 > 


MEN) " 

< 159> 

335 

NEXT 

<091> 

610 

PRINT”(DOWN!ANWAEHLEN UND DIE INSTALLI 


340 

CLOSE 1 

<097> 


ERTE DATEI" 

< 115> 

350 

PRINT"{DOWNJHUN KANN DAS HAUPTPROGRAMM 


620 

PRINT" (DOWN>UMKOPIEREN. 11 

< 113> 


MIT ALLEN" 

<15B> 

630 

PRINT " C4D0WN,RVSON JGEOCHECK " 

<221 > 

360 

PRINT"IDOWN >££££— SPEZIFISCHEN BATEN VE 
RSEHEN WERDEN. " 

<163> 

640 

END 

< 134> 

370 

PRINT" CDOWNJUP.S. HftU.PXP.KO.G.RJLMTKSHIFT—SP 
ACElfljj.5.5. .S.l.cjt ia{SHIFT-SPACE>ÄI£££iB££ 

<236> 

Listing 1. »GEOCHECK« macht Geos-Listings erst lauffähig. 
Es wird mit dem Checksummer (Seite 159) eingegeben. 


100 

REM #*« GEOCHECK - PT 2 *** 

<20B> 

170 

M*="GEOS "+CHR*(102)+CHR*(111)+CHR*(11 


105 

REM **» FLORIAN MUELLER *** 

<056> 


4 > +CHR*(109)+CHR*(97)+CHR*(116)+" VI.0 


110 

REM 

< 172> 


" 

<249> 

115 

REM BASED ON THE PROGRAM "GEOS FILE-AN 


175 

DIM D*(150),T*(150),S*(150),DS(150>,DB 



ALYZER" (C“—BUCH "ALLES UEBER GEOS") 

<217> 


(150),FD*(7),FS*(1),FG*(14),IB*<256) 

<149> 

120 

: 

<096> 

100 

DIM R*(20) 

< 116> 

125 

: 

< 101 > 

185 

FOR F=0 TO 7:READ FD*(F):NEXT 

<021 > 

130 

CLR:FOR F=49152 TO 49109:READ X:POKE F 


190 

DATA DEL,SEQ,PRG,USR,REL,???,???,??? 

<193> 


,X:NEXT 

< 155> 

195 

FS*(0)“"SEQUENTIELL"t FS*(1)="VLIR" 

< 17 4 > 

135 

SYS 49152 

<193> 

200 

FOR F=0 ro 14:READ FG*(F):NEXT 

< 1 B2> 

140 

DATA 169 ,11, 160, 192, 141, 3B, 3, 14 


205 

DATA "C= PRG","BASIC-PROGRAMM",ASSEMBL 



0, 39 

<030> 


ERPROG.,REINE DATEN,SYSTEMDATEI 

< 149> 

145 

DATA 3, 96, 201, 65, 144 

< 195 > 

210 

DATA HILFSPROGRAMM,ANWENDUNG,DOKUMENT, 


150 

DATA 9,201,91,176,5,73 ,32, 76, 202, 2 



SCHRIFTART,DRUCKERTREIBER 

<142> 


41,201,97,144,249,201,123,176,245 

<064> 




155 

DATA 73,32,76,202,241,255 

< 114 > 

Listing 2. »GEOCHECK TEIL2« ist mit dem Checksummer 

160 

PRINT"<CTRL-N>":C*=“ ":FOR F=1 TO 6 :C* 
=C*+C*:NEXT 

<011 > 

(Seite 159) einzugeben und nur für Programmierer von 

165 

SS*=CHR*(160 >:FOR F=1 TO 4:SS*=SS*+SS* 


Belang, die uns Geos-Listings einsenden möchten. Es ist 


: NEXT 

<205> 

zum Abtippen fertiger Listings nicht notwendig. 
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215 DATA EINBABETREIBER,DISK-TREIBER,START 

PROBRAMM,TEMPORAER,SELBSTAUSFUEHREND < 059 > 
220 BOTO 325 <100> 

225 REM SUB <086> 

230 POKE B06,202:POKE 807,241:RETURN <173> 

235 DS=1:P=1:OPEN 1,B,15:0PEN 2,8,2,"#" <233> 

240 PRINTttl,"Ul 2 0 18";DS <040> 

245 SETtt2,NT*8BET#2,NS*sNT*»NT*+CHR*(0> <221> 
250 FOR 1=0 TO 7sIF P>1 THEN PRINT"«HOME>" 

jP-1 <129> 

255 PRINT#1,"B-P 2";1*32+2 , <071> 

260 BET#2,TY*sTY*=TY*+CHR*(0>:IF TY*=CHR*( 

O) OR TY*=CHR*<128)THEN 280 <022> 

265 PRINT#1,"B-P 2";I#32+5 <089> 

270 FOR J=1 TO 165ßET#2,A*sD*<P>=D*<P>+A*s 

NEXT:DB <P)=DSs DB <P)=1*32 <149> 

275 ßEr#2,T*sBET#2,S*sT*<P>=T*+CMR*(0> sS*< 

P) =S*+CHR*(0)sP=P+l <142> 

280 NEXTsIF P>149 THEN 290 <041> 

285 IF NT*OCHR*(0)THEN DS=ASC(NS*>sBOTO 2 

40 <151> 

290 CLOSE 2:CLQSE 1sP=P-1sRETURN <167> 

295 OPEN 1,8,15sOPEN 2,8,2,"#" <07B> 

300 PRINTttl,"Ul 2 0 18 0" <106> 

305 PRINTttl,"B-P 2 173"sl*="" <070> 

310 FOR 1=1 TO 16sBET#2,A*sI*=I*+A*sNEXT <226> 
315 CLOSE 2sCLOSE lsRETURN <254> 

320 s <042> 

325 REM **« HAUPTPROBRAMM **» <135> 

330 s <052> 

335 PRINT"{CLR,DOWN,RVSON >BEO£HECK C2SPACE > 

TEIL 2 (CHECK SCRAP ERSTELLEN)<RVOFF>" <190> 
340 PRINTsPRINT" VON Ö-ORIAN UUELLER (flARK 

T & IECHNIK)" <124> 

345 PRINT” AUTOR VON 'C64 - ALLES UEBER BE 
OS 1.2'C2SPACE}UND 'C64 - BEOS 1.3 DEU 
TSCH' <005> 

350 PRINT" C4D0WN,SPACE JSITTE EINE .BTL0.5- JIS 
KETTE EINLEBEN UND<3SPACE>< RE.TURN > DRU 
ECKEN" <212> 

355 POKE 53296,0sPOKE 53265,27 <236> 

360 BET A*sIF A*<>CHR*(13)THEN 360 E' <002 > 

365 BOSUB 225s BOSUB 295s IF I*<>M*THEN 350 <092> 

370 PRINT"{CLR,7D0WN,RVSON,9SPACE JfilRECTOR 

Y WIRD BELESEN.C8SPACE,RV0FF>” <172> 

375 PRINT" {HOME,4SPACE>«- ANZAHL DER BELESE 

NEN £1 LEEINTRAEBE" <23B> 

380 BOSUB 235s0=1 <103> 

385 s <107> 

390 s <112> 

395 PRINT"{CLR,DOWN,RVSON,5SPACE)£ILE ZUR 

SEARBEITUNß AUSWAEHLEN{4SPACE>" <155> 

400 PRINT"{2D0WN,SPACEJfllSK ENTHAELT{SPACE 
,RVSON>"; P;"{LEFT,SPACE,RVOFF,SPACE)£I 
LE";sIF INT(P)<>1 THEN PRINT"S"; <246> 

405 PRINT"." <052> 

410 PR I NT " {2D0WN . SPACE , RVSON T .C.UAS.O.R UEIRVO 
FF,4SPACE>1 £ILE ZURUECK"sPRINT"{DOWN, 

SPACE.RVSON> CU-R-S.O.R. .H.O-KK {RVOFF , 2SPACE> 1 
EILE VOR" <193> 

415 PRINT"(DOWN,SPACE,RVSONJÄEXÜEIKRVOFF,7 
SPACEJEILE NEHMEN"sPRINT"{DOWN,SPACE,R 
VS0N>£.1{RV0FF, 11 SPACEJZSEUE JIISKETTE" <108> 
420 SYS 49152SPRINT" {HOME,17D0WN)";C*sPRIN 

T"OIP>£ILE #";0;"s{3SPACEV; D* (0) <016> 

425 BET A*sIF A*=""THEN 425 <142> 

430 IF A*= "{UP>"THEN 0=0-1sIF 0=0 THEN 0=P <144> 
435 IF A*="{DOWN>"THEN 0=0+1sIF 0>P THEN 0 

=1 <162> 

440 IF A*="{F1>"THEN RUN 135 <209> 

445 IF A*OCHR*(13)THEN 420 <065> 

450 IF T*(O > < >CHR*(0> THEN PRINTsPRINTsPRIN 

TsBOTO 480 <227> 

455 PRINT" {CLR>JS£IN BJLO.S -FILE !" <251 > 

460 PRINT <052> 

465 PRINT" {2D0WNX .RE-T.U-KK >" <139> 

470 BET A*aIF A*<>CHR*(13)THEN 470 <118> 

475 BOTO 395 <213> 

400 s <202> 

485 N*=""sl=l <199> 

490 IF MID*(D*(0>,I,1)=CHR*(160) THEN 500 <132> 

495 N*=N*+MID*(D*(0),1,1)s1=1+1sIF I<-16 T 

HEN 490 <061> 

500 FE*=""sBOSUB 225 <107> 

505 OPEN l,B,15,"I"s OPEN 2,B,2,"tt" <242> 


510 PRINTttl,"Ul 2 0 18";DS(0) 

515 PRINTttl,"B-P 2";DB(O) 

520 FOR F=1 TO 32 

525 sßET#2,A*sIF A*="" THEN A*=CHR*(0) 

530 sFE*=FE*+A* 

535 NEXT 

540 CLOSE lsCLOSE 2 

545 IT=ABC(MID*(FE*,22,1)+CHR*(0>) 

550 IS=ASC(MID*(FE*,23,1)+CHR*(0> > 

555 FB=ASC(MID*(FE*,25,1)+CHR*(0>) 

560 DY=ASC(MID*(FE*,26,1)+CHR*(0)> 

565 DM=ASC(MID*(FE*,27,1)+CHR*(0)) 

570 DD=ASC(MID*(FE*,28,1)+CHR*(0)> 

575 DH=ASC(MID*(FE*,29,1> +CHR*(0)) 

580 MI=ASC(MID*(FE*,30,1)+CHR*(0)) 

585 PRINT "FILEEINTRAB tt";0 
590 PRINT "FILEEINTRAB AUF SPUR 18/BLOCK"s 
DS (0) 

595 PRINT "INFO-BLOCK AUF SPUR";IT;"/SEKTO 
R"S IS 

600 PRINT "BEOS-FILETYPs{ 6 BPACE}"; 

605 IF FB>14 THEN PRINT "FUEHRT ZU ABSTURZ 
"S 

610 IF FB<=14 THEN PRINT FE*(FB>; 

615 PRINT " (";FB;">" . 

620 PRINT "DATUM DER LETZTEN MODIFIKATIONs 

II 

625 PRINT RIEHT*(STR*(DD+100),2) 5 ".";RIEHT 
*(STR*(DM+100),2) 5 ".";DY+1900s 
630 PRINT "<4SPACE>";RIBHT*(STR*(DH+100),2 
) 5 "."sRIBHT*(BTR*(MI+ 100 ),2) 

635 BOSUB 225 

640 PRINTsPRINTsPRINT"NUN WIRD DER INFO-BL 
OCK EINBELESEN."SPRINT 
645 s 

650 OPEN l,B,15,"I"s OPEN 2,8,2,"#" 

655 PRINTttl,"Ul 2 0";IT;IS 
660 PRINTttl, "B-P 2 0" 

665 s 

670 FOR F=1 TO 256 

675 EET#2,A*sIF A*="" THEN A*=CHR*(0> 

60? • B*(F)=A* 

685 NEXT 
690 s 

695 CLOSE lsCLOSE 2 

700 3 

701 OPEN 1 , 8 , 0 ,D*(0)+",P,R"s BET ttl,Bl*,B2* 
sCLOSE 1 

702 IF Bl*="" THEN B1*=CHR*(0) 

703 IF B2*="" THEN B2*=CHR*(0) 

704 PRINT"BYTE ttls"ASC(B1*)sPRINT"BYTE #2s 
"ASC(B2*> 

705 REM *»* INFO-BLOCK STEHT JETZT *** 

710 REM *** IM ARRAY IB*() «** 

715 s 

720 s 

725 REM #** ABLEBEN DER EINBELESENEN 
730 REM *** DATEN IN EINEM CHECK SCRAP 
735 3 

740 PRINT"{2D0WN>£ITTE NUN EINE ZIELDISKET 
TE FUER DAS" 

745 PRINT" {DOWN>BEO£HECK-£ILE EINLEBEN. Jäl 
ESE DISKETTE" 

750 PRINT" {DOWN)MUSS NICHT DAS .QE.0.5.- FORMAT 
AUFWEISEN." 

755 a 

760 PRINT" {2D0WN,RVSONXSHIFT>" 

765 POKE 653,0sWAIT 653,1 
770 OPEN 1,8,15,"8sCHECK SCRAP" 

775 INPUT#1,A,A*,B,Cs PRINT"DISKs"A;A* 5 BjC 

780 CLOSE 1sIF A>19 THEN STOP 

785 CLOSE 1sOPEN 2,8,2,"CHECK SCRAP,P,W" 

790 PRINT#2,CHR*(FB)CHR*(DY)CHR*(DM)CHR* < D 
D> CHR*(DH)CHR*(MI); 

791 IF Bl*="" THEN B1*=CHR*(0) 

792 IF B2*=" 11 THEN B2*=CHR*<0> 

793 PRINTW2,Bl*;B2*; 

795 FOR F=1 TO 256sPRINT#2,IB*(F);sNEXT 
800 CLOSE 2 

805 PRINT"SCHREIBVORBANB ABBESCHLOSSEN."sß 
OSUB 225s END 


I Llsting 2. (Schluß) 


< 162> 

< 153> 

< 137> 

< 153> 
<090> 
<037> 
<110> 

< 195> 
<000> 
<026> 
<231 > 
<204> 
<202> 
<047> 
<062> 

< 060 > 

<232> 

<254> 

< 113> 

< 1B4> 

< 1B5> 
<073> 

< 131 > 

<254> 

<210> 

<015> 

<253> 

< 113> 

< 133> 
<071 > 
<052> 

< 133> 
<014> 
<244> 
<019> 

< 187> 
<15B> 
<009> 

< 16B> 

< 171 > 

< 120 > 

< 145> 

<211 > 

< 120 > 
<229> 

< 1B3> 

< 18B> 
<076> 
<062> 
<203> 

<224> 

<064> 

<203> 

<223> 

<022> 

<20B> 

< 155> 
<00B> 
<030> 
<030> 

<241 > 
<211 > 
<236> 
<213> 

< 196> 
<012> 

< 113> 
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Cheiksummer 
V3 und MSE 

Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehler vor allem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 

N obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig Vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: s^eR or 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 

1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1 REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64’er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


10 PRINT"CHECKSUMMER FUER C 64" 

11 PRINT:PRINT"EINEN MOMENT, BITTE ..." 

12 FOR 1=828 TO 864:READ A.’POKE I,A:PS=PS+ 

A: NEXT I 

13 IF PS05765 TUEN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A : NEXT I 

15 IF PS016147 THEN PRINT "TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"CHECKSUMMER AKTIVIERT." 

18 PRINT:PRINT" AUSSCHALTEN : POKE1.55 ODE 
R'SPCf 27>"<RUN/STOP*RESTORE>" 

19 PRINT:PRINT" ANSCHALTEN : POKE1.53" 

20 DATA 169,0,133,254,162.1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255.24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12.0,92,72, 
32,201,255,170,104 

28 DATA 144.1,138,96,202,16,228.166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 
0 64’er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 




5 PRINT CHR*(14) 
10 PRINT"ICLRJ" 
RINT "t 


I RINT"C4D0WN,2SPACE > JEST{SPACE,BLUE,6SP 


<242> 

<254> 

<130> 

< 022 > 

<10B> 


ACE>" 

40 PRINT" 

© 64 '«- 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben < Q >, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben < W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann < SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7 > und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


CTRL sieht für Control-Taste, so bedeutet |CTRL+A|, daß Sie die Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

|DOWN| 

Taste neben rechtem Shift, 

|SPACE| 

Leertaste 

IRVSONI 

Control-Taste 8 9 


Cursor unten 

ISHIFT-Spacej 

Shift-Taste & Leertaste 

|RVOFF| 

Control-Taste 8 0 

(UP| 

Shift-Taste & Taste neben 

|F1| bis |F8| 

Funktionstasten 

lORANGE] 

Commodore-Taste 8 1 


rechtem Shift; Cursor hoch 

|RETURN| 

Return-Taste 

IBROWNI 

Commodore-Taste 8 2 

fCLRJ 

Shift-Taste & 2. Taste 

IBLACKi 

Control-Taste 8 1 

ILIG.REDI 

Commodore-Taste 8 3 


ganz rechts oben 

IWHITEI 

Control-Taste 8 2 

|GREY 1| 

Commodore-Taste 8 4 

(INSTI 

Shift-Taste & Taste 

IREDJ 

Control-Taste 8 3 

|GREY 21 

Commodore-Taste 8 5 


ganz rechts oben 

|CYAN| 

Control-Taste 8 4 

[LIG.GREENI 

Commodore-Taste 8 6 

IHOMEI 

2. Taste von ganz rechts oben 

|PURPLE| 

Control-Taste 8 5 

(LiG-BLUE) 

Commodore-Taste 8 7 

(DEL) 

Taste ganz rechts oben 

|GREEN| 

Control-Taste 8 6 

IGREY 3] 

Commodore-Taste 8 8 

(RIGHTI 

Taste ganz rechts unten 

|BLUE| 

Control-Taste 8 7 

Tabelle 1. 


ILEFTI 

Shift-Taste & Taste unten rechts 

IYELLOWI 

Control-Taste 8 8 

Die Steuerbefehle in den Listings 
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C64 


Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer {). Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT " (CLR)" 


bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). In Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes »T« nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Taste drücken müssen, also < SHIFTT>. Wenn ein Zeichen 
»überstrichen« ist, müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


100 REM DIEBES PROGRAMM ERZEUGT DEN <210> 

110 REM MSE VI.1 AUF DISKETTE. <039> 

120 REM BESITZER EINER DATASETTE <178> 

130 REM MUESSEN DIE '8' AM ENDE VON <145> 

140 REM ZEILE 343 IN EINE ’l' AENDERN! <176> 

150 REM <212> 

230 IE PEEK<44><>32 TUEN PRINT"CCLR3SIE HA 
BEN VERGESSEN, DIE POKES EINZUGE- BEN! 

":END <050> 

240 PRINT"CCLR>";:DIM H(75):FOR 1=0 TO 9 <042> 

250 H(48+1) = 1:H(65+1) =1 + 10:NEXTZ=1000 <136> 

260 FOR 1=2048 TO 3755 STEP 20:PRINT"CHOME 

3ICH LESE ZEILE:"Z <253> 

261 FOR N=0 TO 19:READ A$:IF LEN(A$><>2 TH 

EN '900 <062> 

262 IF PEEK(63)+PEEK< 64>*256<>Z THEN 800 <011> 

270 H=ASC<LEFTS< A$,1)) = L=ASC(RIGHTS< A$ , 1)) <199> 

280 D=H<H)*16+H(L) ■ S=S+DsPOKE I+N.I) <165> 

290 NEXTsREAD VsIF SOV THEN 900 <139> 

300 S=0:Z=Z+1:NEXTsR=PEEK(2111):H=PEEK(210 

6) <126> 

301 POKE 53280,R:POKE 53281,HsPOKE 646,RsP 

RINT"CCLR3DIE DATA-ZEILEN SIND FEHLERF 
REI!" <0B0> 

302 PRINT"SIE KOENNEN NUN DIE FARBEN DES M 

SE" <209> 

303 PRINT"EINSTELLEN."=PRINT"C2DOWN.SPACE, 

RVSON3DRUECKEN SIE <1>, <2> ODER <9> <205> 

304 PRINT"CDOUN,2SPACE><1> - RAHMEN-/SCHRI 

FTFARBE <013> 

305 PRINT"C2SPACEX2> - HINTERGRUNDFARBE <233> 

306 PRINT"CDOWN,2SPACE><9> - FARBEN UEBERN 

EHMEN <15B> 

307 PRINT"C2DOWN3FARBE <1>:"RsPRINT"FARBE 

<2> s"H <066> 

308 GET AsIF A=0 THEN 308 <210> 

309 IF A=1 THEN R=(R+1)AND 15 <098> 

310 IF A=2 THEN H=(H+1)AND 15 <086> 

311 IF A=9 THEN 340 <217> 

312 GOTO 301 <034> 

340 POKE 2106,H:POKE 2111,R <153> 

342 POKE 631,19:POKE 632,13sPOKE 198,2 <135> 

343 PRINT"CCLR3SAVE"CHRS(34)"MSE V1.1"CHR$ 

(34)",8 <091> 

344 POKE 43,1sPOKE 44,8sPOKE 45,172sPOKE 4 

6,14sEND <140> 

800 PRINT"CCLR,RVSON3SIE HABEN ZEILE"Z"CLE 

FT,SPACE3VERGESSENs"sA=PEEK(646)AND 15 <124> 
610 POKE 646,PEEK(53281)AND 15:PRINT"LIST" 

Z-2“-"Z+2sPOKE 646,A <224> 

820 GOTO 920 <082> 

900 PRINT"CCLR,RVSONDSIE HABEN EINEN TIPPF 

EHLER GEMACHT:":A=PEEK(646)AND 15 <154> 

910 POKE 646,PEEK(53281)AND 15sPRINT"LIST" 

ZsPOKE 646,A <173> 

920 POKE 631,19sPOKE 632,17sPOKE 633.13sPO 

KE 198,3 = END <126> 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 

,00,00,A2,08.A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0.85,A7 

.A0,00,Bl,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

. 4C, 00, B0,20, Dl, Bl , A9,00,8D, 2781 <096> 

1003 DATA 21,D0,A9,0F,8D,20,D0,8D,86,02,A0 

,B3,A9■74,20,FFiBl,A0,B3,A9, 2679 <089> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 <217> 

1005 DATA C0.11,90,02,A0,10,8C,00,02,20,EA 

,B1,A0,B3.A9,CF,20,FF,B1,20, 2327 <045> 

1006 DATA 8E.B4,85,FC,85,62,20,8E,B4,85,FB 

,85.61,20,A7,B4,D0.20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF,B1,20,6E,B4,85,60.20 


,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 

1008 DATA A5.61,C5,5F,A5,62,E5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA EA,EA,E6,FB,D0.02,E6,FC,20.3F,B2 

,90,EF,4C,FB,B4,A2,02,86,58, 3190 <041> 

1010 DATA A9,A6,A0,9D,20,F2,Bl,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,Bl,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C.D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C 

.BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E.D0,06,20,5F,B4,4C.64,Bl,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,85,F9,A5,F8,20,02.Bl,05.F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,IF,A6,58,E0,02 

,B0,06.20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,Bl,CA,D0,FA 

,84,57,68,68,4C,BB,Bl,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

, 58, E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F.C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,Dl,Bl,20,48,B2,20, 2261 <073> 

10?’ ’OATA EA.Bl,20,9F,B2,A5,FC,20,4E,Bl,A5 

,FB,20,4E,B1,20,ED,Bl,A9■3A■ 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED.B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,C8,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2.FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20.F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92.20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20.D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA.9D,00,DB, 2476 <237> 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,1)2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D.85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8.D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,64,5B,B1 

,FB,ie,65,5A,65,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A.26,5B.C8,C0.08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5.FB, 2467 <219> 

1031 DATA 69,08,65,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF.B1,A0,01,B9,00,02,20 

,D2,FF.CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2457 <060> 

1034 DATA Bl,20,ED,Bl,A5.60,20,4E,Bl.A5.5F 

,20,4E,Bl,EA,EA,EA,EA,EA,EA, 3122 <190> 

1035 DATA EA,EA.24.SE,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,Bl,CA,D0,FA, 2703 <087> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85.A7,A2,13,A0.27,B1 

,A4,91,A6,88,10,F9,CA.F0,19, 2671 <20B> 

1038 DATA 10.A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7.8D,06, D4.A9.il ,80,04,D4.A9 

,32,8D,01,D4,A9,00,8D,00.D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,SD,04,D4,60 

,A2,FF.CA.D0,FD,88,D0,FB,60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,8D,05,D4.A9 

,A5,8D,06,D4.A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4.A9,05,8D.00,D4,A0 
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.FF,20,09,B3,A9.20>8Di04.D4. 2250 <078> 

1044 DATA A9,00,8D,01,D4,8D,00,D4,60,38,20 

,F0,FFi8A,48,98.48,18,A0.06. 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

.Bl,20,12,B3,20,E4,FFiF0,FBi 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 
, A8,68, AA, 18,40', F0, FF, 0D, 0D, 2704 

1047 DATA 0D,20,20,20.20,20.20,20,40,41,53 

,43,48,49,4E,45,4E,53,50,52. 1144 , <21G> 

1048 DATA 41,43,48,45,20,20.20,45,44,49, M 

,4F, 52,20,00.01), 20,20,20,20, 1023 :03B 

1049 DATA 20,20,20,20,56,4F,4E,20.4E,2E,4,0 

, 41,4E,4E, 20,26,20,44,2E, 57 , 1128 J 

1050 DATA 45,49,4E,45,43,4B,00,0D.0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 :117 > 

1051 DATA 4D.4E.41,40,45,20,3A,20,00,00.00 

,20,20,20.53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45.53,53,45,20.20,20,3A,20 

,24,00,92,01,01,50,52,4F,47, 1136 <228> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

, 2A,2A,2A,20,46,41,4C,53,43 , 1024 <027> 

1055 DATA 48,45,20,45.49,4E,47,41,42,45,20 

,2A,2A,2A,20.20,92,00,0D,00, 1058 <098> 

1056 DATA 2A,2A,2A,20.45,4E,44,45,20,2A,2A 

,2A,00,13,01,20,20,12,44,92, 916 <153> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,00,00,13,20,20, 1151 <035> 

1058 DATA 49,2F.4F,20,20,20,46,45,48,40,45 

,52,00,20,01,Bl,20,48,B2.A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61.A5.FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,05,5F,A5,FC,E5 

,60,B0,19,20,A7.B4,00,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,00,85.F9,20,A7,B4,F0 

,05,85,F8,4C,EF,B0,68,68,20, 2749 <068> 

1062 DATA 43,B3,40,5F.B4,20.CF.FF,09,40,00 

.09,20,Dl,Bl,20,48,B2,40,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E.20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,El.FF,F0,26 - - 

,20,9F,B2,24,5E,1-0,09,20,4E. 2435 '‘TT98. 1 

1065 DATA B5,20,0D,B5,20,60,B5,20.33,B2,20 

,3F,B2,90,07,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,Bl,20,E4,FF,09,0D.D0,F9,A9,00 

.85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2.40,64,Bl,A5,FC,20,4E 

,Bl,A5,FB,85,FF,20,4E,Bl,A9, 3003 <221> 

1068 DATA 20.A0,3A,20,F2,Bl,A0,00,20,ED,Bl 

,Bl,FB,20,4E.Bl,CB,00,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,20 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl,A9,92,20,D2,FF,40,EA 

,B1,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,00,FF,A2,FF,40,09,FF,20 

,CC>FF,A9,FF.40,03,FF,20,5F. 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20.48,B2 

,A2,24,A9,2D.20,D2,FF.CA.D0, 2596 <111> 

1073 DATA FA,20.EA.Bl,20,EA,Bl,20,60,B5,40 

,C1,B4,20,B8.B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9.61,20,D8,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,40,FB,B4,A9,01.20, 2577 <201> 

1075 DATA C3,FF,20.68,B6,A0,B4.A9,4F,20,FF 

,B1,20,F9,B1,4C,FB,B4,20.68. 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,Fl,A9,01,A8,20,BA,FF,A0■00 

,E0,01.F0.1A.A9,40,80,20,02, 2403 <101> 

1078 DATA A9,3A.8D,21,02.B9,01,02,99,22,02 

,08.CC,00.02.90,F4,08,08,00, 2182 <127> 

1079 DATA 00,B9,01,02,99.20,02,08,00,00,02 

,D0,F4,98,A2.20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2000 <022> 

1001 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB.FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,40,A3,B5 

,06,5F,84,60,A5.BA,C9.01 ,D0, 2639 <-131> 

1084 DATA 0A.AD.3D.03,85,61,AD,3E.03,85,62 

,4C,FB,B4,A9,13,20,02,FF,A2, 2300 <120> 

1005 DATA IC,20.ED,Bl,CA,00,FA.60,00,00,00 

,00,00,00,00,00,00,00,00,00, 1230 <143> 

0 64 • er Listing 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sie den Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI.0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten e$ mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden, vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
lade" 'vollen, um an einer bestimmten Stelle weiterzutip¬ 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie <D> oder <T> drückende nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/O-ERROR«. In diesem Fall drücken Sie 

< RUN/STOP RESTORE> und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch <SPACE> können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRLP> ausdrucken. Mit <CTRLL> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/tr) 
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